MODULE basfun
SAVE
INTEGER,PARAMETER::lcharacter=25
PRIVATE::icompar,add,listael
PRIVATE::gather1,gather2
PRIVATE::ininterval1,ininterval2
PRIVATE::heapsortr,heapsortrp,heapsorti,heapsortip,rheapp,dynaint,dynareal
PRIVATE::ninsertcopy,rinsertcopy,cinsertcopy
PRIVATE::ninsertget,rinsertget,cinsertget
PRIVATE::fillin1,fillin2,fillin3,fillin4,salloc1,salloc2,salloc1a,salloc1l,salloc3,salloc4,salloc5,salloc6,salloc7,salloc8,salloccount1,salloccount2
PRIVATE::invind_one,invind_two1,invind_two2,invind_two3,invind_two4,removenpos
PRIVATE::insertvINT,insertvreal
PRIVATE::trimsINT,trimsreal
INTERFACE gather
MODULE PROCEDURE gather1,gather2
END INTERFACE gather
INTERFACE ininterval
MODULE PROCEDURE ininterval1,ininterval2
END INTERFACE ininterval
INTERFACE insertcopy
MODULE PROCEDURE ninsertcopy,rinsertcopy,cinsertcopy
END INTERFACE insertcopy
INTERFACE insertget
MODULE PROCEDURE ninsertget,rinsertget,cinsertget
END INTERFACE insertget
INTERFACE trims
MODULE PROCEDURE trimsint,trimsreal
END INTERFACE trims
INTERFACE copies
MODULE PROCEDURE copy,ncopy
END INTERFACE copies
INTERFACE swaps
MODULE PROCEDURE nswap,rswap
END INTERFACE swaps
INTERFACE fillin
MODULE PROCEDURE fillin1,fillin2,fillin3,fillin4
END INTERFACE fillin
INTERFACE salloc
MODULE PROCEDURE salloc1,salloc2,salloc1a,salloc1l,salloc3,salloc4,salloc5,salloc6,salloc7,salloc8,salloccount1,salloccount2
END INTERFACE salloc
INTERFACE sort
MODULE PROCEDURE heapsortr,heapsortrp,heapsorti,heapsortip
END INTERFACE sort
INTERFACE permut
MODULE PROCEDURE rheapp
END INTERFACE permut
INTERFACE invind
MODULE PROCEDURE invind_one,invind_two1,invind_two2,invind_two3,invind_two4
END INTERFACE invind
INTERFACE insert
MODULE PROCEDURE insertvINT,insertvreal,insertvchar
END INTERFACE insert
INTERFACE remove
MODULE PROCEDURE removevint,removevreal
END INTERFACE remove
REAL(8)::macheps=0.d00
CONTAINS
REAL(8) FUNCTION epsmach()
DOUBLE PRECISION BETA,A,B
IF(ABS(macheps).LE.TINY(macheps))THEN
BETA=2.0D0
A=1.0D0
10     B=1.0D0+A
IF(B .GT. 1.0D0)THEN
A=A/BETA
GOTO 10
ENDIF
macheps=A*BETA
END IF
epsmach=macheps
END FUNCTION epsmach
LOGICAL FUNCTION ifsamereal(r1,r2)
IMPLICIT REAL(8)(a-h,o-z)
ifsamereal=.FALSE.
small=TINY(small)
IF(ABS(r1-r2).LE.small.OR.ABS(r2-r1).LE.small)ifsamereal=.TRUE.
END FUNCTION ifsamereal
INTEGER FUNCTION ininterval1(in,imin,imax)
INTEGER::in,imax,imin
ininterval1=MAX(imin,MIN(imax,in))
END FUNCTION ininterval1
REAL(8) FUNCTION ininterval2(in,imin,imax)
REAL(8)::in,imax,imin
ininterval2=MAX(imin,MIN(imax,in))
END FUNCTION ininterval2
SUBROUTINE salloc1(num,lis)
INTEGER,DIMENSION(:),ALLOCATABLE::lis
IF(ALLOCATED(lis))THEN
igash=SIZE(lis)
IF(igash.EQ.num)THEN
CALL pconsi(num,lis)
ELSE
DEALLOCATE(lis)
END IF
END IF
IF(num.GT.0.AND..NOT.ALLOCATED(lis))THEN
ALLOCATE(lis(num))
CALL pconsi(num,lis)
END IF
END SUBROUTINE salloc1
SUBROUTINE salloc2(num,lis)
REAL(8),DIMENSION(:),ALLOCATABLE::lis
IF(ALLOCATED(lis))THEN
igash=SIZE(lis)
IF(igash.EQ.num)THEN
CALL pconsr(num,lis)
ELSE
DEALLOCATE(lis)
END IF
END IF
IF(num.GT.0.AND..NOT.ALLOCATED(lis))THEN
ALLOCATE(lis(num))
CALL pconsr(num,lis)
END IF
END SUBROUTINE salloc2
SUBROUTINE salloc1a(num,lis)
CHARACTER(*),DIMENSION(:),ALLOCATABLE::lis
IF(ALLOCATED(lis))THEN
igash=SIZE(lis)
IF(igash.EQ.num)THEN
DO i=1,num
lis(i)=""
END DO
ELSE
DEALLOCATE(lis)
END IF
END IF
IF(num.GT.0.AND..NOT.ALLOCATED(lis))THEN
ALLOCATE(lis(num))
DO i=1,num
lis(i)=""
END DO
END IF
END SUBROUTINE salloc1a
SUBROUTINE salloc1l(num,lis)
LOGICAL,DIMENSION(:),ALLOCATABLE::lis
IF(ALLOCATED(lis))THEN
igash=SIZE(lis)
IF(igash.EQ.num)THEN
DO i=1,num
lis(i)=.FALSE.
END DO
ELSE
DEALLOCATE(lis)
END IF
END IF
IF(num.GT.0.AND..NOT.ALLOCATED(lis))THEN
ALLOCATE(lis(num))
DO i=1,num
lis(i)=.FALSE.
END DO
END IF
END SUBROUTINE salloc1l
SUBROUTINE salloc3(num1,num2,lis)
INTEGER,DIMENSION(:,:),ALLOCATABLE::lis
IF(ALLOCATED(lis))THEN
igash=SIZE(lis,1)
jgash=SIZE(lis,2)
IF(igash.EQ.num1.AND.jgash.EQ.num2)THEN
CALL pconsi(num1*num2,lis)
ELSE
DEALLOCATE(lis)
END IF
END IF
IF(num1.GT.0.AND.num2.GT.0.AND..NOT.ALLOCATED(lis))THEN
ALLOCATE(lis(num1,num2))
CALL pconsi(num1*num2,lis)
END IF
END SUBROUTINE salloc3
SUBROUTINE salloc4(num1,num2,lis)
REAL(8),DIMENSION(:,:),ALLOCATABLE::lis
IF(ALLOCATED(lis))THEN
igash=SIZE(lis,1)
jgash=SIZE(lis,2)
IF(igash.EQ.num1.AND.jgash.EQ.num2)THEN
CALL pconsr(num1*num2,lis)
ELSE
DEALLOCATE(lis)
END IF
END IF
IF(num1.GT.0.AND.num2.GT.0.AND..NOT.ALLOCATED(lis))THEN
ALLOCATE(lis(num1,num2))
CALL pconsr(num1*num2,lis)
END IF
END SUBROUTINE salloc4
SUBROUTINE salloc5(num1,num2,num3,lis)
INTEGER,DIMENSION(:,:,:),ALLOCATABLE::lis
IF(ALLOCATED(lis))THEN
igash=SIZE(lis,1)
jgash=SIZE(lis,2)
kgash=SIZE(lis,3)
IF(igash.EQ.num1.AND.jgash.EQ.num2.AND.kgash.EQ.num3)THEN
CALL pconsi(num1*num2*num3,lis)
ELSE
DEALLOCATE(lis)
END IF
END IF
IF(num1.GT.0.AND.num2.GT.0.AND.num3.GT.0.AND..NOT.ALLOCATED(lis))THEN
ALLOCATE(lis(num1,num2,num3))
CALL pconsi(num1*num2*num3,lis)
END IF
END SUBROUTINE salloc5
SUBROUTINE salloc6(num1,num2,num3,lis)
REAL(8),DIMENSION(:,:,:),ALLOCATABLE::lis
IF(ALLOCATED(lis))THEN
igash=SIZE(lis,1)
jgash=SIZE(lis,2)
kgash=SIZE(lis,3)
IF(igash.EQ.num1.AND.jgash.EQ.num2.AND.kgash.EQ.num3)THEN
CALL pconsr(num1*num2*num3,lis)
ELSE
DEALLOCATE(lis)
END IF
END IF
IF(num1.GT.0.AND.num2.GT.0.AND.num3.GT.0.AND..NOT.ALLOCATED(lis))THEN
ALLOCATE(lis(num1,num2,num3))
CALL pconsr(num1*num2*num3,lis)
END IF
END SUBROUTINE salloc6
SUBROUTINE salloc7(num1,num2,num3,num4,lis)
INTEGER,DIMENSION(:,:,:,:),ALLOCATABLE::lis
IF(ALLOCATED(lis))THEN
igash=SIZE(lis,1)
jgash=SIZE(lis,2)
kgash=SIZE(lis,3)
lgash=SIZE(lis,4)
IF(igash.EQ.num1.AND.jgash.EQ.num2.AND.kgash.EQ.num3.AND.lgash.EQ.num4)THEN
CALL pconsi(num1*num2*num3*num4,lis)
ELSE
DEALLOCATE(lis)
END IF
END IF
IF(num1.GT.0.AND.num2.GT.0.AND.num3.GT.0.AND.num4.GT.0.AND..NOT.ALLOCATED(lis))THEN
ALLOCATE(lis(num1,num2,num3,num4))
CALL pconsi(num1*num2*num3*num4,lis)
END IF
END SUBROUTINE salloc7
SUBROUTINE salloc8(num1,num2,num3,num4,lis)
REAL(8),DIMENSION(:,:,:,:),ALLOCATABLE::lis
IF(ALLOCATED(lis))THEN
igash=SIZE(lis,1)
jgash=SIZE(lis,2)
kgash=SIZE(lis,3)
lgash=SIZE(lis,4)
IF(igash.EQ.num1.AND.jgash.EQ.num2.AND.kgash.EQ.num3.AND.lgash.EQ.num4)THEN
CALL pconsr(num1*num2*num3*num4,lis)
ELSE
DEALLOCATE(lis)
END IF
END IF
IF(num1.GT.0.AND.num2.GT.0.AND.num3.GT.0.AND.num4.GT.0.AND..NOT.ALLOCATED(lis))THEN
ALLOCATE(lis(num1,num2,num3,num4))
CALL pconsr(num1*num2*num3*num4,lis)
END IF
END SUBROUTINE salloc8
SUBROUTINE gather1(ig,ip,id,xl,xg)
IMPLICIT REAL(8)(a-h,o-z)
INTEGER,DIMENSION(:)::ip,id
REAL(8),DIMENSION(:,:)::xl,xg
IF(ig.GT.0)THEN
nl=MIN(SIZE(xg,1),SIZE(xl,1))
DO il=1,nl
ik=0
DO ipo=ip(ig),ip(ig+1)-1
ik=ik+1
ing=id(ipo)
IF(ing.GT.0)THEN
xl(il,ik)=xg(il,ing)
ELSE
xl(il,ik)=0.0d00
END IF
END DO
END DO
END IF
END SUBROUTINE gather1
SUBROUTINE gather2(ig,ip,id,xl,xg)
IMPLICIT REAL(8)(a-h,o-z)
INTEGER,DIMENSION(:)::ip,id
INTEGER,DIMENSION(:,:)::xl,xg
IF(ig.GT.0)THEN
nl=MIN(SIZE(xg,1),SIZE(xl,1))
DO il=1,nl
ik=0
DO ipo=ip(ig),ip(ig+1)-1
ik=ik+1
ing=id(ipo)
IF(ing.GT.0)THEN
xl(il,ik)=xg(il,ing)
ELSE
xl(il,ik)=0.0d00
END IF
END DO
END DO
END IF
END SUBROUTINE gather2
REAL(8) FUNCTION deltak(i,j)
IF(i.NE.j)THEN
deltak=0.0d00
ELSE
deltak=1.0d00
ENDIF
END FUNCTION deltak
REAL(8) FUNCTION rodr4(i,j,k,l)
IMPLICIT REAL(8) (a-h,o-z)
rodr4=0.5d00*(deltak(i,k)*deltak(j,l)+deltak(i,l)*deltak(j,k))
END FUNCTION rodr4
real(8) function alternating(i,j,k)
res=0.0d00
if(i.eq.j.or.i.eq.k.or.j.eq.k)then
res=0.0d00
else if &
( &
(i.eq.1.and.j.eq.2.and.k.eq.3).or. &
(i.eq.2.and.j.eq.3.and.k.eq.1).or. &
(i.eq.3.and.j.eq.1.and.k.eq.2))then
res=1.0d00
else
res=-1.0d00
end if
alternating=res
end function alternating
SUBROUTINE deviatoricfilter(filter,n)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(n,n)::filter
CALL pconsr(n*n,filter)
rcons1=2.0d00/3.0d00
rcons2=-1.0d00/3.0d00
rcons3=1.0d00
SELECT CASE(n)
CASE(6)
filter(1,1)=rcons1
filter(1,2)=rcons2
filter(1,3)=rcons2
filter(2,2)=rcons1
filter(2,3)=rcons2
filter(3,3)=rcons1
DO i=4,6
filter(i,i)=rcons3
END DO
CASE(4)
filter(1,1)=rcons1
filter(1,2)=rcons2
filter(1,3)=rcons2
filter(2,2)=rcons1
filter(2,3)=rcons2
filter(3,3)=rcons1
DO i=4,4
filter(i,i)=rcons3
END DO
CASE(3)
filter(1,1)=0.5d00
filter(1,2)=-0.5d00
filter(2,2)=0.5d00
filter(3,3)=1.0d00
END SELECT
CALL simtot(filter,n)
END SUBROUTINE deviatoricfilter
SUBROUTINE prve3d(v1,v2,v)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3)::v1,v2,v
v(1)=v1(2)*v2(3)-v1(3)*v2(2)
v(2)=v2(1)*v1(3)-v2(3)*v1(1)
v(3)=v1(1)*v2(2)-v1(2)*v2(1)
END SUBROUTINE prve3d
REAL(8) FUNCTION prtrip(v1,v2,v3)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3)::v1,v2,v3
r1=v1(2)*v2(3)-v1(3)*v2(2)
r2=v2(1)*v1(3)-v2(3)*v1(1)
r3=v1(1)*v2(2)-v1(2)*v2(1)
prtrip=r1*v3(1)+r2*v3(2)+r3*v3(3)
END FUNCTION prtrip
SUBROUTINE projlin(xn,x1,x2,xi,g)
IMPLICIT NONE
DOUBLE PRECISION v(5001),xn(2),x1(2),x2(2),xi,g
v(236)=-x1(1)/2d0+x2(1)/2d0
v(54)=(-2d0)*xn(1)
v(62)=(-2d0)*xn(2)
v(33)=(-2d0)*x1(1)
v(82)=-v(33)+v(54)
v(46)=(-2d0)*x1(2)
v(83)=-v(46)+v(62)
v(55)=2d0*x2(1)
v(84)=-v(54)-v(55)
v(28)=v(33)+v(55)
v(22)=-x1(1)+x2(1)
v(41)=(v(22)*v(22))
v(63)=2d0*x2(2)
v(85)=-v(62)-v(63)
v(44)=v(46)+v(63)
v(18)=-x1(2)+x2(2)
v(221)=v(18)*v(22)
v(219)=v(18)/2d0
v(49)=(v(18)*v(18))
v(20)=v(41)+v(49)
v(210)=1d0/(2d0*v(20))
v(120)=1d0/v(20)**0.25d1
v(223)=0.15d1*v(120)
v(121)=v(223)*v(44)
v(75)=1d0/v(20)**0.15d1
v(222)=-(v(41)*v(75))
v(220)=v(49)*v(75)
v(208)=v(75)/2d0
v(77)=v(208)*v(44)
v(76)=v(208)*v(28)
v(123)=v(121)*v(221)-v(76)
v(70)=(2d0*v(28))/v(20)**3
v(45)=1d0/v(20)**2
v(216)=v(44)*v(45)
v(214)=-(v(28)*v(45))
v(209)=-(v(45)*v(82))
v(165)=v(214)*v(84)
v(111)=v(209)*v(44)
v(109)=v(209)*v(28)
v(108)=2d0/v(20)
v(19)=1d0/SQRT(v(20))
v(235)=v(18)*v(19)
v(233)=-(v(19)*v(22))
v(212)=v(19)*v(219)
v(21)=v(210)*v(28)
v(211)=-(v(21)*v(22))
v(124)=1d0+v(211)
v(129)=-(v(124)*v(19))
v(149)=-v(211)
v(158)=v(149)*v(19)
v(35)=x1(1)**2+x1(2)**2-x2(1)**2-x2(2)**2+v(28)*xn(1)+v(44)*xn(2)
v(213)=-(v(35)*v(70))
v(98)=v(213)*v(28)
v(92)=2d0*v(35)*v(45)
v(99)=v(165)-v(92)-v(98)
v(166)=v(108)-v(165)-v(99)
v(201)=-(v(166)*v(212)*v(22))
v(113)=-v(109)+v(99)
v(196)=-(v(113)*v(212)*v(22))
v(110)=-v(108)+2d0*v(109)+v(92)+v(98)
v(185)=-(v(110)*v(212)*v(22))
v(90)=v(213)*v(44)
v(100)=v(214)*v(85)-v(90)
v(168)=-v(100)+v(216)*v(84)
v(239)=v(168)*v(236)
v(114)=v(100)-v(111)
v(215)=v(114)/2d0
v(192)=v(215)*x2(1)
v(191)=-(v(215)*x1(1))
v(237)=v(191)+v(192)
v(190)=v(215)*x2(2)
v(189)=-(v(215)*x1(2))
v(112)=v(111)+v(214)*v(83)+v(90)
v(232)=v(112)*v(236)
v(231)=v(112)*v(219)
v(61)=-(v(216)*v(35))
v(106)=-v(61)-v(85)/v(20)
v(217)=v(106)/2d0
v(128)=v(217)*v(22)
v(195)=-(v(128)*v(19))
v(118)=-v(217)
v(104)=v(61)-v(83)/v(20)
v(218)=v(104)/2d0
v(126)=v(218)*v(22)
v(116)=-v(218)
v(53)=-(v(28)*v(92))/2d0
v(105)=-v(53)-v(84)/v(20)
v(238)=v(105)+v(166)*v(236)
v(152)=v(105)*v(219)
v(198)=v(152)*v(19)
v(117)=-v(105)/2d0
v(103)=v(53)-v(82)/v(20)
v(115)=-v(103)/2d0
v(39)=v(35)/v(20)
v(150)=-(v(115)*v(18))
v(37)=(-1d0)+v(39)
v(225)=v(37)/2d0
v(151)=(v(37)-v(104)*x1(2)+v(104)*x2(2))/2d0
v(228)=v(19)*(v(126)*v(18)-v(151)*v(22))
v(172)=v(151)*v(19)
v(125)=(v(37)-v(103)*x1(1)+v(103)*x2(1))/2d0
v(227)=v(19)*(v(125)*v(18)-v(150)*v(22))
v(177)=v(128)*v(220)
v(174)=v(151)*v(222)
v(170)=v(126)*v(220)
v(51)=v(221)*v(75)
v(180)=v(128)*v(51)
v(173)=v(126)*v(51)
v(169)=-(v(151)*v(51))
v(40)=1d0+v(39)
v(226)=-v(40)/2d0
v(153)=(-v(40)-v(106)*x1(2)+v(106)*x2(2))/2d0
v(230)=v(19)*(v(128)*v(18)-v(153)*v(22))
v(181)=v(153)*v(222)
v(179)=v(153)*v(19)
v(176)=-(v(153)*v(51))
v(234)=-v(176)-v(177)
v(127)=(-v(40)-v(105)*x1(1)+v(105)*x2(1))/2d0
v(229)=v(19)*(v(127)*v(18)-v(152)*v(22))
v(188)=v(127)*v(220)
v(187)=-(v(127)*v(19))
v(50)=v(225)*x1(1)+v(226)*x2(1)+xn(1)
v(224)=v(49)*v(50)
v(147)=v(123)*v(50)
v(146)=v(147)+v(173)
v(144)=v(177)+v(50)*(-(v(121)*v(49))+v(44)*v(75))
v(140)=v(223)*v(224)*v(28)
v(138)=v(140)+v(125)*v(220)
v(135)=v(195)+v(50)*v(77)
v(132)=-(v(50)*v(76))
v(130)=v(132)-v(125)*v(19)
v(42)=v(225)*x1(2)+v(226)*x2(2)+xn(2)
v(157)=v(176)+v(123)*v(42)
xi=v(39)
g=v(19)*(-(v(22)*v(42))+v(18)*v(50))
END SUBROUTINE projlin
SUBROUTINE segment2d(x,w,dw,d2w)
LOGICAL b50,b53
DOUBLE PRECISION v(50001),x(3,2),w,dw(6),d2w(6,6)
v(82)=x(2,1)-x(3,1)
v(288)=v(82)/2d0
v(98)=2d0*v(82)
v(88)=(v(82)*v(82))
v(77)=v(82)
v(85)=-x(2,2)+x(3,2)
v(287)=v(85)/2d0
v(286)=(v(85)*v(85))
v(285)=v(286)+v(88)
v(102)=2d0*v(85)
v(99)=1d0/v(285)**2
v(101)=v(102)*v(99)
v(100)=-(v(98)*v(99))
v(89)=1d0/v(285)
v(297)=v(89)*v(98)
v(83)=-v(85)
v(80)=v(286)
v(81)=v(89)
v(300)=v(102)*v(89)
v(75)=v(285)
v(294)=1d0/sqrt(v(75))
v(184)=v(294)/(2d0*v(75))
v(185)=v(102)*v(184)
v(281)=v(185)*v(77)
v(188)=v(185)*v(287)
v(183)=v(184)*v(98)
v(295)=-(v(183)*v(83))
v(186)=-(v(183)*v(287))
b50=(x(2,1)**2-2d0*x(1,2)*x(2,2)+x(2,2)**2-x(3,1)**2+2d0*x(1,1)*(-x(2,1)+x(3,1))+2d0*x(1,2)*x(3,2)-x(3,2)**2)/((x(2,1)&
&-x(3,1))**2+(x(2,2)-x(3,2))**2).lt.1d0
IF(b50) THEN
v(107)=(-2d0)*x(1,2)
v(108)=-v(107)-2d0*x(3,2)
v(105)=(-2d0)*x(1,1)
v(106)=-v(105)-2d0*x(3,1)
v(104)=v(107)+2d0*x(2,2)
v(103)=v(105)+2d0*x(2,1)
v(58)=v(105)*v(77)-v(107)*v(85)+x(2,1)**2+x(2,2)**2-x(3,1)**2-x(3,2)**2
v(115)=v(101)*v(58)
v(292)=v(115)+v(104)*v(89)
v(291)=-v(115)+v(108)*v(89)
v(113)=v(100)*v(58)
v(109)=-v(297)
v(110)=v(300)
v(111)=v(113)+v(103)*v(89)
v(112)=v(292)
v(114)=-v(113)+v(106)*v(89)
v(116)=v(291)
v(52)=v(58)*v(89)
ELSE
v(109)=0d0
v(110)=0d0
v(111)=0d0
v(112)=0d0
v(114)=0d0
v(116)=0d0
v(52)=1d0
ENDIF
b53=v(52).gt.(-1d0)
IF(b53) THEN
v(117)=v(109)
v(118)=v(110)
v(119)=v(111)
v(120)=v(112)
v(121)=v(114)
v(122)=v(116)
v(54)=v(52)
ELSE
v(117)=0d0
v(118)=0d0
v(119)=0d0
v(120)=0d0
v(121)=0d0
v(122)=0d0
v(54)=(-1d0)
ENDIF
v(234)=v(122)*v(288)
v(195)=-(v(121)*v(85))/2d0
v(231)=v(120)*v(288)
v(193)=-(v(119)*v(85))/2d0
v(228)=v(118)*v(288)
v(192)=1d0-v(118)*v(287)
v(227)=1d0+v(117)*v(288)
v(191)=-(v(117)*v(85))/2d0
v(84)=1d0-v(54)
v(276)=v(186)*v(84)
v(275)=-(v(188)*v(84))
v(229)=-v(84)/2d0
v(230)=v(229)+v(119)*v(288)
v(194)=v(229)-v(120)*v(287)
v(55)=0d0
IF(b53) THEN
v(55)=0d0
ELSE
ENDIF
IF(b50) THEN
v(293)=v(102)*v(55)
v(289)=2d0*v(99)
v(290)=v(289)*v(77)
v(155)=v(101)*v(108)
v(152)=v(100)*v(108)
v(128)=(4d0*v(58))/v(75)**3
v(132)=v(102)*v(128)
v(130)=-(v(128)*v(98))
v(136)=(v(130)+v(103)*v(289))*v(83)
v(141)=-(v(290)*v(293))
v(154)=(-2d0)*v(81)
v(140)=v(55)*(v(154)+v(290)*v(98))
v(72)=v(154)*v(55)
v(61)=v(289)*v(58)
v(137)=v(61)+(v(132)+v(104)*v(289))*v(83)
v(60)=v(55)*(v(113)+v(154)*x(1,1))
v(148)=-v(141)
v(149)=v(140)
v(150)=(v(136)+v(152))*v(55)
v(151)=(v(137)+v(155))*v(55)
v(153)=v(55)*(-v(152)+(-v(130)+v(106)*v(289))*v(83))
v(156)=-(v(55)*(-v(154)+v(155)+v(61)+(v(132)-v(108)*v(289))*v(83)))
v(64)=v(291)*v(55)
v(157)=v(141)
v(158)=-v(149)
v(159)=(v(100)*v(104)-v(136))*v(55)
v(160)=(v(101)*v(104)-v(137)-v(154))*v(55)
v(161)=v(150)
v(162)=v(151)
v(67)=v(292)*v(55)
v(163)=v(157)
v(164)=-v(149)
v(165)=-v(163)
v(166)=v(149)
v(70)=v(293)*v(81)
v(167)=v(166)
v(168)=v(163)
v(169)=-v(167)
v(170)=-v(168)
v(71)=v(72)*v(77)
v(171)=-v(140)
v(172)=-v(141)
v(173)=-v(162)
v(174)=v(161)
v(175)=-v(156)
v(176)=v(153)
v(73)=-v(60)+v(72)*x(3,1)
v(177)=v(140)
v(178)=v(141)
v(179)=-v(160)
v(180)=v(159)
v(181)=-v(162)
v(182)=v(174)
v(74)=v(60)-v(72)*x(2,1)
ELSE
v(167)=0d0
v(168)=0d0
v(169)=0d0
v(170)=0d0
v(71)=0d0
v(163)=0d0
v(164)=0d0
v(165)=0d0
v(166)=0d0
v(70)=0d0
v(177)=0d0
v(178)=0d0
v(179)=0d0
v(180)=0d0
v(181)=0d0
v(182)=0d0
v(74)=0d0
v(157)=0d0
v(158)=0d0
v(159)=0d0
v(160)=0d0
v(161)=0d0
v(162)=0d0
v(67)=0d0
v(171)=0d0
v(172)=0d0
v(173)=0d0
v(174)=0d0
v(175)=0d0
v(176)=0d0
v(73)=0d0
v(148)=0d0
v(149)=0d0
v(150)=0d0
v(151)=0d0
v(153)=0d0
v(156)=0d0
v(64)=0d0
ENDIF
v(76)=v(294)
v(270)=-(v(195)*v(76))
v(269)=-(v(193)*v(76))
v(267)=v(234)*v(76)
v(265)=v(231)*v(76)
v(258)=v(227)*v(76)
v(244)=(-2d0)*v(184)*v(80)
v(246)=v(228)*v(244)
v(245)=v(227)*v(244)
v(212)=-(v(192)*v(76))
v(197)=2d0*v(184)*v(88)
v(199)=v(192)*v(197)
v(198)=v(191)*v(197)
v(190)=(v(101)*v(76)+v(185)*v(81))*v(82)
v(189)=-(v(183)*v(81)*v(82))+v(76)*(v(81)+v(100)*v(82))
v(187)=v(188)-v(184)*v(75)
v(280)=-(v(187)*v(84))
v(94)=v(184)*v(75)*v(85)
v(279)=-(v(122)*v(94))
v(278)=-(v(120)*v(94))
v(277)=-(v(118)*v(94))
v(90)=v(184)*v(75)*v(77)
v(274)=-(v(121)*v(90))
v(273)=-(v(119)*v(90))
v(272)=-(v(117)*v(90))
v(236)=v(228)*v(295)
v(235)=v(227)*v(295)
v(220)=-(v(192)*v(295))
v(219)=-(v(191)*v(295))
v(78)=1d0+v(54)
v(271)=-(v(187)*v(78))
v(268)=v(186)*v(78)
v(266)=-(v(188)*v(78))
v(232)=-v(78)/2d0
v(233)=v(232)+v(121)*v(288)
v(196)=v(232)-v(122)*v(287)
v(87)=x(1,2)+v(229)*x(2,2)+v(232)*x(3,2)
v(299)=v(76)*v(87)
v(298)=v(87)*v(88)
v(296)=v(83)*v(87)
v(225)=v(190)*v(296)
v(223)=v(189)*v(296)
v(224)=-v(223)-v(195)*v(295)
v(221)=v(223)-v(193)*v(295)
v(217)=-(v(185)*v(87))
v(218)=-v(217)-v(196)*v(76)
v(215)=v(183)*v(87)
v(226)=-v(215)-v(225)-v(196)*v(295)
v(222)=v(215)+v(225)-v(194)*v(295)
v(216)=-v(215)+v(270)
v(214)=v(217)-v(194)*v(76)
v(213)=v(215)+v(269)
v(204)=v(297)*v(299)
v(202)=v(298)*v(89)
v(209)=v(185)*v(202)
v(206)=-(v(183)*v(202))
v(201)=v(298)*v(76)
v(208)=v(101)*v(201)
v(210)=v(196)*v(197)-v(208)-v(209)
v(205)=v(100)*v(201)
v(207)=v(195)*v(197)-v(204)-v(205)-v(206)
v(203)=v(194)*v(197)+v(208)+v(209)
v(200)=v(193)*v(197)+v(204)+v(205)+v(206)
v(97)=v(197)*v(87)
v(96)=-v(299)
v(93)=-(v(295)*v(87))
v(79)=x(1,1)+v(229)*x(2,1)+v(232)*x(3,1)
v(303)=v(76)*v(79)
v(302)=-(v(79)*v(83))
v(301)=v(79)*v(80)
v(263)=v(185)*v(79)
v(264)=-v(263)+v(267)
v(261)=v(263)+v(265)
v(255)=v(300)*v(303)
v(249)=v(301)*v(81)
v(256)=-(v(185)*v(249))
v(252)=v(183)*v(249)
v(248)=-(v(301)*v(76))
v(254)=v(101)*v(248)
v(257)=v(234)*v(244)-v(254)-v(255)-v(256)
v(251)=v(100)*v(248)
v(253)=v(233)*v(244)-v(251)-v(252)
v(250)=v(231)*v(244)+v(254)+v(255)+v(256)
v(247)=v(230)*v(244)+v(251)+v(252)
v(242)=v(190)*v(302)
v(241)=-(v(183)*v(79))
v(262)=-v(241)+v(233)*v(76)
v(260)=v(241)+v(230)*v(76)
v(243)=-v(241)-v(242)+v(234)*v(295)
v(239)=v(189)*v(302)
v(240)=-v(239)+v(233)*v(295)
v(238)=v(241)+v(242)+v(231)*v(295)
v(237)=v(239)+v(230)*v(295)
v(95)=v(295)*v(79)
v(92)=v(244)*v(79)
v(91)=v(303)
v(148)=v(148)+v(219)+v(245)+v(258)+v(272)
v(149)=v(149)+v(220)+v(246)
v(150)=v(150)+v(221)+v(247)+v(260)+v(266)+v(273)
v(151)=v(151)+v(222)+v(250)+v(261)-v(265)+v(268)
v(153)=v(153)+v(224)+v(253)+v(262)-v(266)+v(274)
v(156)=v(156)+v(226)+v(257)+v(264)-v(267)-v(268)
v(64)=v(64)-v(78)*v(90)+v(91)+v(92)+v(93)
v(171)=v(171)+v(198)+v(235)
v(172)=v(172)+v(199)+v(212)+v(236)+v(277)
v(173)=v(173)+v(200)+v(213)+v(237)-v(268)-v(269)
v(174)=v(174)+v(203)+v(214)+v(238)+v(271)+v(278)
v(175)=v(175)+v(207)+v(216)+v(240)+v(268)-v(270)
v(176)=v(176)+v(210)+v(218)+v(243)-v(271)+v(279)
v(73)=v(73)-v(78)*v(94)+v(95)+v(96)+v(97)
v(157)=v(157)-v(219)-v(245)-v(258)-v(272)
v(158)=v(158)-v(220)-v(246)
v(159)=v(159)-v(221)-v(247)-v(260)-v(273)+v(275)
v(160)=v(160)-v(222)-v(250)-v(261)+v(265)+v(276)
v(161)=v(161)-v(224)-v(253)-v(262)-v(274)-v(275)
v(162)=v(162)-v(226)-v(257)-v(264)+v(267)-v(276)
v(67)=v(67)-v(84)*v(90)-v(91)-v(92)-v(93)
v(177)=v(177)-v(198)-v(235)
v(178)=v(178)-v(199)-v(212)-v(236)-v(277)
v(179)=v(179)-v(200)-v(213)-v(237)+v(269)-v(276)
v(180)=v(180)-v(203)-v(214)-v(238)-v(278)+v(280)
v(181)=v(181)-v(207)-v(216)-v(240)+v(270)+v(276)
v(182)=v(182)-v(210)-v(218)-v(243)-v(279)-v(280)
v(74)=v(74)-v(84)*v(94)-v(95)-v(96)-v(97)
v(163)=v(163)-v(197)+v(76)
v(164)=v(164)+v(281)
v(165)=v(165)+v(197)-v(76)
v(166)=v(166)-v(281)
v(70)=v(70)+v(76)*v(77)
v(167)=v(167)-v(281)
v(168)=v(168)-v(244)-v(76)
v(169)=v(169)+v(281)
v(170)=v(170)+v(244)+v(76)
v(71)=v(71)-v(76)*v(83)
w=v(76)*(v(302)+v(77)*v(87))
dw(1)=v(71)
dw(2)=v(70)
dw(3)=v(74)
dw(4)=v(67)
dw(5)=v(73)
dw(6)=v(64)
d2w(1,1)=0d0
d2w(1,2)=0d0
d2w(1,3)=v(167)
d2w(1,4)=v(168)
d2w(1,5)=v(169)
d2w(1,6)=v(170)
d2w(2,1)=0d0
d2w(2,2)=0d0
d2w(2,3)=v(163)
d2w(2,4)=v(164)
d2w(2,5)=v(165)
d2w(2,6)=v(166)
d2w(3,1)=v(177)
d2w(3,2)=v(178)
d2w(3,3)=v(179)
d2w(3,4)=v(180)
d2w(3,5)=v(181)
d2w(3,6)=v(182)
d2w(4,1)=v(157)
d2w(4,2)=v(158)
d2w(4,3)=v(159)
d2w(4,4)=v(160)
d2w(4,5)=v(161)
d2w(4,6)=v(162)
d2w(5,1)=v(171)
d2w(5,2)=v(172)
d2w(5,3)=v(173)
d2w(5,4)=v(174)
d2w(5,5)=v(175)
d2w(5,6)=v(176)
d2w(6,1)=v(148)
d2w(6,2)=v(149)
d2w(6,3)=v(150)
d2w(6,4)=v(151)
d2w(6,5)=v(153)
d2w(6,6)=v(156)
END SUBROUTINE segment2d
SUBROUTINE segment2dnt(xo,x,w,dw,d2w)
IMPLICIT NONE
LOGICAL b99,b102,b105
DOUBLE PRECISION v(50001),xo(3,2),x(3,2),w(2),dw(2,6),d2w(2,6,6)
v(438)=x(3,1)/2d0
v(437)=-x(2,1)/2d0
v(435)=-x(2,2)/2d0
v(434)=x(3,2)/2d0
v(416)=2d0*xo(1,2)
v(415)=xo(2,1)-xo(3,1)
v(412)=(-2d0)*x(1,1)
v(417)=v(412)+2d0*x(2,1)
v(408)=x(2,2)-x(3,2)
v(422)=v(408)/2d0
v(407)=2d0*x(1,2)
v(420)=-v(407)+2d0*x(2,2)
v(409)=-(v(407)*x(2,2))
v(405)=x(2,1)-x(3,1)
v(423)=v(405)/2d0
v(413)=v(409)+v(405)*v(412)+x(2,1)**2+x(2,2)**2-x(3,1)**2+v(407)*x(3,2)-x(3,2)**2
v(410)=2d0*v(413)
v(414)=-(v(408)*v(410))
v(322)=(v(405)*v(405))
v(318)=v(322)
v(297)=v(405)
v(285)=-v(405)
v(268)=v(322)
v(253)=v(405)
v(252)=v(405)
v(307)=v(322)
v(345)=(v(408)*v(408))
v(406)=v(322)+v(345)
v(320)=1d0/v(406)**2
v(411)=v(320)*v(405)*v(410)
v(315)=1d0/v(406)
v(419)=2d0*v(315)
v(296)=v(411)+v(419)*(x(1,1)-x(3,1))
v(295)=v(296)
v(294)=v(408)
v(342)=v(345)
v(291)=v(320)*(v(414)+v(406)*v(420))
v(290)=v(291)
v(282)=-v(411)+v(315)*v(417)
v(281)=v(282)
v(269)=v(315)
v(260)=-v(408)
v(274)=v(345)
v(254)=v(269)*v(413)
v(249)=v(408)
v(302)=v(320)*(-v(414)+2d0*v(406)*(x(1,2)-x(3,2)))
v(301)=v(302)
v(263)=v(315)
v(441)=-(v(249)*v(263))
v(247)=v(406)
v(257)=((-2d0)*v(415)*xo(1,1)+xo(2,1)**2-v(416)*xo(2,2)+xo(2,2)**2-xo(3,1)**2+v(416)*xo(3,2)-xo(3,2)**2)/((v(415)*v(415&
&))+(xo(2,2)-xo(3,2))**2)
IF((xo(2,1)**2-2d0*xo(1,2)*xo(2,2)+xo(2,2)**2-xo(3,1)**2+2d0*xo(1,1)*(-xo(2,1)+xo(3,1))+2d0*xo(1,2)*xo(3,2)-xo(3,2)**2)&
&/((xo(2,1)-xo(3,1))**2+(xo(2,2)-xo(3,2))**2).lt.1d0) THEN
ELSE
ENDIF
IF((x(2,1)**2-2d0*x(1,2)*x(2,2)+x(2,2)**2-x(3,1)**2+2d0*x(1,1)*(-x(2,1)+x(3,1))+2d0*x(1,2)*x(3,2)-x(3,2)**2)/((x(2,1)-x&
&(3,1))**2+(x(2,2)-x(3,2))**2).lt.1d0) THEN
v(124)=-v(407)
v(121)=v(412)
v(140)=-v(121)-2d0*x(3,1)
v(138)=v(417)
v(134)=(-2d0)*v(249)
v(133)=2d0*v(252)
v(135)=v(320)
v(418)=2d0*v(135)
v(142)=v(133)*v(418)
v(137)=v(134)*v(135)
v(177)=v(137)*v(138)
v(136)=-v(142)/2d0
v(175)=v(136)*v(138)
v(112)=v(413)
v(145)=(4d0*v(112))/v(247)**3
v(149)=-(v(134)*v(145))
v(161)=v(252)*(-v(149)+v(418)*(v(124)+2d0*x(3,2)))
v(147)=v(133)*v(145)
v(115)=-(v(112)*v(418))
v(160)=-v(115)-v(252)*(v(147)+v(140)*v(418))
v(110)=-(v(133)*v(263))
v(176)=v(160)-v(175)
v(178)=v(161)-v(177)
v(114)=v(282)
v(183)=v(178)
v(184)=-v(176)
v(119)=v(291)
v(122)=v(296)
v(126)=v(302)
v(202)=v(281)
v(204)=v(290)
v(206)=v(295)
v(208)=v(301)
v(104)=v(254)
ELSE
v(110)=0d0
v(176)=0d0
v(178)=0d0
v(114)=0d0
v(183)=0d0
v(184)=0d0
v(119)=0d0
v(122)=0d0
v(126)=0d0
v(202)=0d0
v(204)=0d0
v(206)=0d0
v(208)=0d0
v(104)=1d0
ENDIF
IF(v(104).gt.(-1d0)) THEN
v(127)=v(110)
v(221)=v(176)
v(222)=v(178)
v(129)=v(114)
v(227)=v(183)
v(228)=v(184)
v(130)=v(119)
v(131)=v(122)
v(132)=v(126)
v(243)=v(202)
v(244)=v(204)
v(245)=v(206)
v(246)=v(208)
v(106)=v(104)
ELSE
v(127)=0d0
v(221)=0d0
v(222)=0d0
v(129)=0d0
v(227)=0d0
v(228)=0d0
v(130)=0d0
v(131)=0d0
v(132)=0d0
v(243)=0d0
v(244)=0d0
v(245)=0d0
v(246)=0d0
v(106)=(-1d0)
ENDIF
v(367)=v(246)/2d0
v(366)=v(367)*v(405)
v(382)=v(245)/2d0
v(421)=v(244)/2d0
v(376)=v(405)*v(421)
v(339)=v(243)*v(422)
v(403)=-v(132)/2d0
v(364)=-(v(403)*v(405))
v(326)=v(131)*v(422)
v(369)=v(130)*v(423)
v(332)=v(129)*v(422)
v(313)=v(127)/2d0
v(306)=v(313)*v(408)
v(305)=1d0+v(127)*v(423)
v(248)=1d0/sqrt(v(247))
v(440)=v(248)*v(408)
v(433)=-(v(248)*v(249))
v(425)=v(248)*v(252)
v(442)=v(425)/2d0
v(424)=v(248)*v(263)
v(401)=-(v(248)*v(366))
v(365)=v(345)*v(424)
v(402)=v(365)*v(366)
v(344)=v(332)*v(425)
v(359)=v(344)*v(441)
v(327)=v(318)*v(424)
v(323)=v(315)*v(425)
v(439)=v(249)*v(323)
v(311)=v(306)*v(424)
v(309)=v(305)*v(424)
v(250)=1d0-v(106)
v(426)=-v(250)/2d0
v(251)=1d0+v(106)
v(427)=-v(251)/2d0
v(266)=x(1,2)+v(426)*x(2,2)+v(427)*x(3,2)
v(388)=-(v(266)*v(323))
v(325)=v(266)*v(425)
v(351)=(-3d0)*v(263)*v(325)
v(276)=v(266)*v(424)
v(356)=-(v(249)*v(276))
v(264)=x(1,1)+v(426)*x(2,1)+v(427)*x(3,1)
v(432)=v(248)*v(264)
v(273)=-(v(264)*v(424))
v(386)=(-3d0)*v(249)*v(273)
v(354)=-(v(252)*v(273))
v(349)=v(386)/3d0
v(255)=1d0-v(254)
v(428)=v(255)/2d0
v(288)=v(428)*x(2,2)
v(279)=v(428)*x(2,1)
v(256)=1d0+v(254)
v(429)=v(256)/2d0
v(289)=v(429)*x(3,2)
v(280)=v(429)*x(3,1)
v(258)=1d0-v(257)
v(430)=-v(258)/2d0
v(292)=v(430)*x(2,2)
v(283)=v(430)*x(2,1)
v(259)=1d0+v(257)
v(431)=-v(259)/2d0
v(293)=v(431)*x(3,2)
v(300)=v(288)+v(289)+v(292)+v(293)
v(284)=v(431)*x(3,1)
w(1)=v(325)-v(249)*v(432)
w(2)=-(v(253)*(v(279)+v(280)+v(283)+v(284)))+v(260)*v(300)
v(265)=-(v(249)*v(354))
v(267)=v(248)*v(266)
v(270)=v(268)*v(276)
v(271)=v(426)
v(381)=v(271)+v(130)*v(422)
v(372)=v(381)*v(425)
v(330)=v(271)+v(129)*v(423)
v(358)=v(330)*v(365)
v(357)=-(v(248)*v(330))
v(272)=v(432)
v(275)=v(273)*v(274)
v(277)=-(v(252)*v(356))
v(278)=v(427)
v(396)=v(278)+v(132)*v(422)
v(383)=v(278)+v(245)*v(423)
v(398)=v(365)*v(383)
v(397)=-(v(248)*v(383))
v(391)=v(383)*v(439)
v(363)=v(396)*v(425)
v(324)=v(278)+v(131)*v(423)
v(443)=-(v(249)*v(324))
v(286)=v(428)
v(287)=v(430)
v(436)=v(286)+v(287)
v(298)=v(429)
v(299)=v(431)
dw(1,1)=-v(440)
dw(1,2)=v(425)
dw(1,3)=-v(265)+v(267)-v(270)+v(344)+v(330)*v(433)
dw(1,4)=-v(272)-v(275)-v(277)+v(372)+v(369)*v(433)
dw(1,5)=v(265)-v(267)+v(270)+v(248)*(v(252)*v(326)+v(443))
dw(1,6)=v(272)+v(275)+v(277)+v(363)+v(364)*v(433)
dw(2,1)=-v(252)
dw(2,2)=-v(249)
dw(2,3)=-v(279)-v(280)-v(283)-v(284)-v(249)*(v(281)*v(434)+v(282)*v(435))+v(285)*(v(436)+v(281)*v(437)+v(282)*v(438))
dw(2,4)=-v(288)-v(289)-v(292)-v(293)-v(294)*(v(291)*v(434)+v(290)*v(435)+v(436))-v(252)*(v(291)*v(437)+v(290)*v(438))
dw(2,5)=v(279)+v(280)+v(283)+v(284)-v(249)*(v(296)*v(434)+v(295)*v(435))-v(297)*(v(298)+v(299)+v(296)*v(437)+v(295)*v&
&(438))
dw(2,6)=v(300)-v(249)*(v(298)+v(299)+v(301)*v(434)+v(302)*v(435))-v(252)*(v(301)*v(437)+v(302)*v(438))
v(308)=-(v(252)*v(260)*v(309))-v(307)*v(311)
v(314)=-v(327)
v(319)=v(365)
v(321)=3d0*v(248)*v(320)
v(385)=-(v(249)**3*v(264)*v(321))
v(362)=v(252)*v(321)*v(342)
v(387)=v(266)*v(362)
v(353)=-(v(264)*v(362))
v(350)=v(252)**3*v(266)*v(321)
v(343)=v(249)*v(321)*v(322)
v(355)=v(266)*v(343)
v(394)=v(353)+v(354)+v(355)+v(356)
v(380)=-v(394)
v(348)=-(v(264)*v(343))
v(328)=v(382)*v(408)
v(395)=-(v(328)*v(439))
v(393)=-(v(327)*v(328))
v(392)=v(248)*v(328)
v(329)=v(348)+v(349)+v(350)+v(351)
v(331)=-(v(330)*v(439))
v(333)=v(248)*v(332)
v(334)=v(327)*v(332)
v(335)=v(129)/2d0
v(346)=v(271)+v(244)*v(422)
v(347)=-(v(327)*v(346))+v(358)+v(359)+v(394)+v(376)*v(439)
v(352)=v(331)-v(333)+v(334)-v(348)-v(349)-v(350)-v(351)+v(391)+v(392)+v(393)+v(221)*v(423)*v(440)-v(248)*v(422)*((-2d0&
&)*v(335)+2d0*v(382)+v(221)*x(2,1)-v(221)*x(3,1))
v(360)=v(278)+v(246)*v(422)
v(400)=-(v(360)*v(439))
v(361)=-v(357)-v(358)-v(359)-v(327)*v(360)+v(380)+v(248)*(v(360)+v(252)*(-v(335)+v(222)*v(422))-v(249)*(v(367)+v(222)*v&
&(423)))+v(366)*v(439)
v(368)=v(385)+v(386)+v(387)+v(388)
v(370)=v(248)*v(369)
v(371)=v(365)*v(369)
v(373)=v(372)*v(441)
v(374)=v(130)/2d0
v(384)=v(380)+v(327)*v(381)+v(395)+v(397)+v(398)+v(248)*(-v(381)+v(252)*(v(382)+v(227)*v(422))-v(249)*(-v(374)+v(227)*v&
&(423)))-v(369)*v(439)
v(389)=v(370)-v(371)-v(373)-v(385)-v(386)-v(387)-v(388)+v(400)+v(401)+v(402)-v(228)*v(249)*v(442)+v(442)*(2d0*v(367)&
&-2d0*v(374)+v(228)*x(2,2)-v(228)*x(3,2))
v(399)=v(394)-v(395)+v(327)*v(396)-v(398)-v(364)*v(439)
d2w(1,1,1)=0d0
d2w(1,1,2)=0d0
d2w(1,1,3)=v(308)
d2w(1,1,4)=v(314)
d2w(1,1,5)=-v(308)
d2w(1,1,6)=-v(314)
d2w(1,2,1)=0d0
d2w(1,2,2)=0d0
d2w(1,2,3)=v(319)
d2w(1,2,4)=-v(308)
d2w(1,2,5)=-v(319)
d2w(1,2,6)=v(308)
d2w(1,3,1)=v(308)
d2w(1,3,2)=v(319)
d2w(1,3,3)=v(329)-v(331)-v(334)-v(327)*v(339)+(v(271)+v(243)*v(423))*v(439)
d2w(1,3,4)=v(347)
d2w(1,3,5)=v(352)
d2w(1,3,6)=v(361)
d2w(1,4,1)=v(314)
d2w(1,4,2)=-v(308)
d2w(1,4,3)=v(347)
d2w(1,4,4)=v(368)+v(371)+v(373)+v(365)*v(376)-v(346)*v(439)
d2w(1,4,5)=v(384)
d2w(1,4,6)=v(389)
d2w(1,5,1)=-v(308)
d2w(1,5,2)=-v(319)
d2w(1,5,3)=v(352)
d2w(1,5,4)=v(384)
d2w(1,5,5)=v(326)*v(327)+v(329)-v(391)-v(393)+v(323)*v(443)
d2w(1,5,6)=v(399)
d2w(1,6,1)=-v(314)
d2w(1,6,2)=v(308)
d2w(1,6,3)=v(361)
d2w(1,6,4)=v(389)
d2w(1,6,5)=v(399)
d2w(1,6,6)=-(v(364)*v(365))+v(368)-v(400)-v(402)-v(363)*v(441)
d2w(2,1,1)=0d0
d2w(2,1,2)=0d0
d2w(2,1,3)=(-1d0)
d2w(2,1,4)=0d0
d2w(2,1,5)=1d0
d2w(2,1,6)=0d0
d2w(2,2,1)=0d0
d2w(2,2,2)=0d0
d2w(2,2,3)=0d0
d2w(2,2,4)=(-1d0)
d2w(2,2,5)=0d0
d2w(2,2,6)=1d0
d2w(2,3,1)=(-1d0)
d2w(2,3,2)=0d0
d2w(2,3,3)=v(258)
d2w(2,3,4)=0d0
d2w(2,3,5)=v(257)
d2w(2,3,6)=0d0
d2w(2,4,1)=0d0
d2w(2,4,2)=(-1d0)
d2w(2,4,3)=0d0
d2w(2,4,4)=v(258)
d2w(2,4,5)=0d0
d2w(2,4,6)=v(257)
d2w(2,5,1)=1d0
d2w(2,5,2)=0d0
d2w(2,5,3)=v(257)
d2w(2,5,4)=0d0
d2w(2,5,5)=-v(259)
d2w(2,5,6)=0d0
d2w(2,6,1)=0d0
d2w(2,6,2)=1d0
d2w(2,6,3)=0d0
d2w(2,6,4)=v(257)
d2w(2,6,5)=0d0
d2w(2,6,6)=-v(259)
END SUBROUTINE segment2dnt
SUBROUTINE projtri(x,x1,x2,x3,ff)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3)::x1,x2,x3,x,ff,a,b,c
REAL(8),DIMENSION(2,2)::lhs
REAL(8),DIMENSION(2)::rhs
DO i=1,3
a(i)=x(i)-x3(i)
b(i)=x3(i)-x1(i)
c(i)=x3(i)-x2(i)
END DO
lhs(1,1)=dotprod(3,b,b)
lhs(1,2)=dotprod(3,b,c)
lhs(2,1)=dotprod(3,b,c)
lhs(2,2)=dotprod(3,c,c)
rhs(1)=-dotprod(3,a,b)
rhs(2)=-dotprod(3,a,c)
CALL solvcp(2,lhs,rhs)
ff(1)=rhs(1)
ff(2)=rhs(2)
ff(3)=1.0d00-ff(1)-ff(2)
END SUBROUTINE projtri
SUBROUTINE updateaverage(average,xval,ival)
IMPLICIT REAL(8) (a-h,o-z)
IF(ival.EQ.1)average=0.0d00
IF(ival.NE.0)THEN
average=average+(xval-average)/(1.0d00*ival)
ELSE
average=0.0d00
END IF
END SUBROUTINE updateaverage
SUBROUTINE projta(ndi,v,vt,n)
IMPLICIT REAL(8)(a-h,o-z)
REAL(8),DIMENSION(*)::v,vt,n
REAL(8),DIMENSION(ndi)::vsave
CALL copy(ndi,vsave,v)
DO i=1,ndi
s=vsave(i)
r=n(i)
DO j=1,ndi
s=s-r*n(j)*vsave(j)
ENDDO
vt(i)=s
ENDDO
END SUBROUTINE projta
REAL(8) FUNCTION projar(x1,x2,x3,vn)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3)::x1,x2,x3,vn,y1,y2
DO i=1,3
r=x1(i)
y1(i)=x2(i)-r
y2(i)=x3(i)-r
ENDDO
projar=0.5d00*prtrip(y1,y2,vn)
END FUNCTION projar
REAL(8) FUNCTION angle3dvec(a,b)
IMPLICIT REAL(8)(a-h,o-z)
REAL(8),DIMENSION(3)::a,b,v,e3
e3=0.0d00
e3(3)=1.0d00
pi=4.0d00*ATAN(1.0d00)
CALL prve3d(a,b,v)
s=-SIGN(1.0d00,dotprod(3,v,e3))
rd=dotprod(3,a,b)
angle3dvec=ATAN2(rnorm2(3,v),rd)!*s
END FUNCTION angle3dvec
SUBROUTINE angle2d(a,b,angle,dangle,ddangle)
IMPLICIT NONE
DOUBLE PRECISION v(5001),a(3),b(3),angle,dangle(6),ddangle(6,6)
v(149)=a(2)*b(1)
v(148)=a(3)*b(1)
v(147)=a(1)*b(2)
v(146)=a(3)*b(2)
v(145)=a(1)*b(3)
v(144)=a(2)*b(3)
v(139)=2d0*a(1)
v(138)=2d0*a(2)
v(137)=2d0*a(3)
v(129)=2d0*a(1)**2
v(130)=2d0*a(2)**2
v(114)=2d0*a(3)**2
v(92)=-(b(1)*v(139))
v(83)=2d0*b(1)**2
v(93)=-(b(2)*v(138))
v(84)=2d0*b(2)**2
v(76)=-(b(3)*v(137))
v(69)=2d0*b(3)**2
v(15)=v(144)-v(146)
v(89)=2d0*v(15)
v(16)=-v(145)+v(148)
v(86)=(-2d0)*v(16)
v(35)=a(1)*v(86)+a(2)*v(89)
v(32)=-(b(1)*v(86))-b(2)*v(89)
v(17)=v(147)-v(149)
v(72)=2d0*v(17)
v(34)=a(1)*v(72)-a(3)*v(89)
v(33)=-(a(2)*v(72))-a(3)*v(86)
v(31)=-(b(1)*v(72))+b(3)*v(89)
v(30)=b(2)*v(72)+b(3)*v(86)
v(21)=(v(15)*v(15))+(v(16)*v(16))+(v(17)*v(17))
v(136)=SQRT(v(21))
v(36)=1d0/v(136)
v(135)=v(36)/2d0
v(42)=v(135)*v(35)
v(41)=v(135)*v(34)
v(40)=v(135)*v(33)
v(39)=v(135)*v(32)
v(38)=v(135)*v(31)
v(37)=v(135)*v(30)
v(20)=v(136)
v(142)=a(3)*v(20)
v(140)=b(3)*v(20)
v(18)=(-v(76)-v(92)-v(93))/2d0
v(141)=2d0*v(18)
v(54)=-(v(135)*v(18))
v(43)=(v(18)*v(18))+v(21)
v(167)=v(37)/v(43)
v(166)=v(39)/v(43)
v(165)=v(38)/v(43)
v(160)=v(40)/v(43)
v(159)=v(42)/v(43)
v(158)=v(41)/v(43)
v(143)=1d0/(2d0*v(43))
v(45)=1d0/v(43)**2
v(50)=-((v(137)*v(18)+v(35))*v(45))
v(164)=v(159)+v(20)*v(50)
v(49)=-((v(138)*v(18)+v(34))*v(45))
v(162)=v(158)+v(20)*v(49)
v(121)=v(140)*v(49)
v(48)=-((v(139)*v(18)+v(33))*v(45))
v(156)=v(20)*v(48)
v(157)=v(156)+v(160)
v(118)=v(140)*v(48)
v(106)=b(2)*v(156)
v(47)=-((b(3)*v(141)+v(32))*v(45))
v(154)=v(166)+v(20)*v(47)
v(46)=-((b(2)*v(141)+v(31))*v(45))
v(153)=v(165)+v(20)*v(46)
v(90)=v(142)*v(46)
v(44)=-((b(1)*v(141)+v(30))*v(45))
v(151)=v(20)*v(44)
v(152)=v(151)+v(167)
v(87)=v(142)*v(44)
v(73)=a(2)*v(151)
v(75)=v(20)/v(43)
v(53)=(v(143)*v(18))/v(20)**2
v(51)=-(v(143)*v(36))
v(59)=a(3)*v(51)+v(42)*v(53)+v(50)*v(54)
v(58)=a(2)*v(51)+v(41)*v(53)+v(49)*v(54)
v(57)=a(1)*v(51)+v(40)*v(53)+v(48)*v(54)
v(56)=b(3)*v(51)+v(39)*v(53)+v(47)*v(54)
v(55)=b(2)*v(51)+v(38)*v(53)+v(46)*v(54)
v(52)=b(1)*v(51)+v(37)*v(53)+v(44)*v(54)
v(24)=v(18)*v(51)
v(150)=(-2d0)*v(24)
v(127)=-(a(2)*v(137)*v(24))
v(123)=v(24)*(v(92)+v(93))
v(163)=v(123)+v(75)
v(120)=v(24)*(2d0*v(144)+v(89))
v(117)=v(24)*(2d0*v(145)+v(86))
v(110)=v(24)*(2d0*v(146)-v(89))
v(108)=v(24)*(v(76)+v(92))
v(161)=v(108)+v(75)
v(105)=v(24)*(2d0*v(147)+v(72))
v(103)=-(v(139)*v(24))
v(125)=a(3)*v(103)
v(112)=a(2)*v(103)
v(99)=v(24)*(2d0*v(148)-v(86))
v(97)=v(24)*(2d0*v(149)-v(72))
v(95)=v(24)*(v(76)+v(93))
v(155)=v(75)+v(95)
v(81)=b(2)*b(3)*v(150)
v(62)=b(1)*v(150)
v(79)=b(3)*v(62)
v(67)=b(2)*v(62)
angle=-datan2(v(20),v(18))
dangle(1)=v(24)*v(30)+b(1)*v(75)
dangle(2)=v(24)*v(31)+b(2)*v(75)
dangle(3)=v(24)*v(32)+b(3)*v(75)
dangle(4)=v(24)*v(33)+a(1)*v(75)
dangle(5)=v(24)*v(34)+a(2)*v(75)
dangle(6)=v(24)*v(35)+a(3)*v(75)
ddangle(1,1)=b(1)*v(152)+v(30)*v(52)+v(24)*(v(69)+v(84))
ddangle(1,2)=b(1)*v(153)+v(30)*v(55)+v(67)
ddangle(1,3)=b(1)*v(154)+v(30)*v(56)+v(79)
ddangle(1,4)=v(155)+b(1)*v(157)+v(30)*v(57)
ddangle(1,5)=v(105)+v(106)+b(1)*v(158)+v(30)*v(58)
ddangle(1,6)=v(117)+v(118)+b(1)*v(159)+v(30)*v(59)
ddangle(2,1)=b(2)*v(152)+v(31)*v(52)+v(67)
ddangle(2,2)=b(2)*v(153)+v(31)*v(55)+v(24)*(v(69)+v(83))
ddangle(2,3)=b(2)*v(154)+v(31)*v(56)+v(81)
ddangle(2,4)=v(106)+b(2)*v(160)+v(31)*v(57)+v(97)
ddangle(2,5)=v(161)+b(2)*v(162)+v(31)*v(58)
ddangle(2,6)=v(120)+v(121)+b(2)*v(159)+v(31)*v(59)
ddangle(3,1)=b(3)*v(152)+v(32)*v(52)+v(79)
ddangle(3,2)=b(3)*v(153)+v(32)*v(55)+v(81)
ddangle(3,3)=b(3)*v(154)+v(32)*v(56)+v(24)*(v(83)+v(84))
ddangle(3,4)=v(118)+b(3)*v(160)+v(32)*v(57)+v(99)
ddangle(3,5)=v(110)+v(121)+b(3)*v(158)+v(32)*v(58)
ddangle(3,6)=v(163)+b(3)*v(164)+v(32)*v(59)
ddangle(4,1)=a(1)*v(152)+v(155)+v(33)*v(52)
ddangle(4,2)=a(1)*v(165)+v(33)*v(55)+v(73)+v(97)
ddangle(4,3)=a(1)*v(166)+v(33)*v(56)+v(87)+v(99)
ddangle(4,4)=a(1)*v(157)+(v(114)+v(130))*v(24)+v(33)*v(57)
ddangle(4,5)=v(112)+a(1)*v(162)+v(33)*v(58)
ddangle(4,6)=v(125)+a(1)*v(164)+v(33)*v(59)
ddangle(5,1)=v(105)+a(2)*v(167)+v(34)*v(52)+v(73)
ddangle(5,2)=a(2)*v(153)+v(161)+v(34)*v(55)
ddangle(5,3)=v(110)+a(2)*v(166)+v(34)*v(56)+v(90)
ddangle(5,4)=v(112)+a(2)*v(157)+v(34)*v(57)
ddangle(5,5)=a(2)*v(162)+(v(114)+v(129))*v(24)+v(34)*v(58)
ddangle(5,6)=v(127)+a(2)*v(164)+v(34)*v(59)
ddangle(6,1)=v(117)+a(3)*v(167)+v(35)*v(52)+v(87)
ddangle(6,2)=v(120)+a(3)*v(165)+v(35)*v(55)+v(90)
ddangle(6,3)=a(3)*v(154)+v(163)+v(35)*v(56)
ddangle(6,4)=v(125)+a(3)*v(157)+v(35)*v(57)
ddangle(6,5)=v(127)+a(3)*v(162)+v(35)*v(58)
ddangle(6,6)=a(3)*v(164)+(v(129)+v(130))*v(24)+v(35)*v(59)
END SUBROUTINE angle2d
REAL(8) FUNCTION areatriangulo2d(x1,x2,x3)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(2)::x1,x2,x3
areatriangulo2d=0.5d00*ABS((x1(1)-x2(1))*(x1(2)-x3(2))-(x1(2)-x2(2))*(x1(1)-x3(1)))
END FUNCTION areatriangulo2d
REAL(8) FUNCTION areatriangulo3d(x1,x2,x3)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3)::x1,x2,x3
REAL(8),DIMENSION(3)::vn
CALL prve3d(x2(1:3)-x1(1:3),x3(1:3)-x1(1:3),vn)
areatriangulo3d=rnorm2(3,vn)*0.5d00
END FUNCTION areatriangulo3d
FUNCTION polyarea(x, y, nb) RESULT(fn_val)
IMPLICIT NONE
REAL, INTENT(in)     :: x(:)
REAL, INTENT(in)     :: y(:)
INTEGER, INTENT(in)  :: nb
REAL                 :: fn_val
INTEGER  :: i, n, nm1
REAL     :: a
n = nb
IF (x(1) == x(n) .AND. y(1) == y(n)) n = n - 1
SELECT CASE (n)
CASE (:2)
fn_val = 0.0
CASE (3)
fn_val= 0.5*((x(2) - x(1))*(y(3) - y(1)) - (x(3) - x(1))*(y(2) - y(1)))
CASE default
nm1 = n - 1
a = x(1)*(y(2) - y(n)) + x(n)*(y(1) - y(nm1))
DO  i = 2, nm1
a = a + x(i)*(y(i+1) - y(i-1))
END DO
fn_val = 0.5*a
END SELECT
END FUNCTION polyarea
SUBROUTINE areatriangulo3dder(x1,x2,x3,area,darea)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3)::x1,x2,x3
REAL(8),DIMENSION(9)::darea
DOUBLE PRECISION v(50001)
v(42)=-x1(1)+x2(1)
v(43)=x1(2)-x2(2)
v(40)=-x1(3)+x2(3)
v(36)=x1(1)-x3(1)
v(30)=-x2(1)+x3(1)
v(37)=-x1(2)+x3(2)
v(31)=x2(2)-x3(2)
v(34)=x1(3)-x3(3)
v(28)=-x2(3)+x3(3)
v(20)=-(x1(3)*x2(2))+x1(2)*x2(3)-v(40)*x3(2)-v(43)*x3(3)
v(21)=x1(3)*x2(1)-x1(1)*x2(3)+v(40)*x3(1)-v(42)*x3(3)
v(22)=-(x1(2)*x2(1))+x1(1)*x2(2)+v(43)*x3(1)+v(42)*x3(2)
v(45)=(v(20)*v(20))+(v(21)*v(21))+(v(22)*v(22))
v(24)=1d0/SQRT(v(45))
v(48)=v(24)/2d0
v(23)=v(22)*v(48)
v(25)=v(21)*v(48)
v(26)=v(20)*v(48)
area=SQRT(v(45))/2d0
darea(1)=v(25)*v(28)+v(23)*v(31)
darea(2)=-(v(26)*v(28))+v(23)*v(30)
darea(3)=-(v(25)*v(30))-v(26)*v(31)
darea(4)=v(25)*v(34)+v(23)*v(37)
darea(5)=-(v(26)*v(34))+v(23)*v(36)
darea(6)=-(v(25)*v(36))-v(26)*v(37)
darea(7)=v(25)*v(40)+v(23)*v(43)
darea(8)=-(v(26)*v(40))+v(23)*v(42)
darea(9)=-(v(25)*v(42))-v(26)*v(43)
END SUBROUTINE areatriangulo3dder
SUBROUTINE centroidtriang2d(x1,x2,x3,cen)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(2)::x1,x2,x3,cen,a,b,c,d
a=(x2+x3)*0.5d00
b=x1
c=x3
d=(x1+x2)*0.5d00
CALL interseseg(a,b,c,d,ires,xi1,xi2)
cen=0.5d00*(((1.0d00-xi1)/2.0d00)*a+((1.0d00+xi1)/2.0d00)*b+((1.0d00-xi2)/2.0d00)*c+((1.0d00+xi2)/2.0d00)*d)
END SUBROUTINE centroidtriang2d
REAL(8) FUNCTION areaquadrilatero3d(x1,x2,x3,x4)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3)::x1,x2,x3,x4
REAL(8),DIMENSION(3)::xc5
xc5=(x1+x2+x3+x4)*0.25d00
t1=areatriangulo3d(xc5,x4(1:3),x1(1:3))
t2=areatriangulo3d(xc5,x1(1:3),x2(1:3))
t3=areatriangulo3d(xc5,x2(1:3),x3(1:3))
t4=areatriangulo3d(xc5,x3(1:3),x4(1:3))
areaquadrilatero3d=t1+t2+t3+t4
END FUNCTION areaquadrilatero3d
REAL(8) FUNCTION areaquadrilatero2d(x)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(4,2)::x
a0=(x(3,1)-x(1,1))*(x(4,2)-x(2,2))+(x(2,1)-x(4,1))*(x(3,2)-x(1,2))
areaquadrilatero2d=0.5d00*a0
END FUNCTION areaquadrilatero2d
SUBROUTINE normquad(x1,x2,x3,x4,n)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3)::x1,x2,x3,x4
REAL(8),DIMENSION(3)::n
CALL prve3d(x3(1:3)-x1(1:3),x4(1:3)-x2(1:3),n)
CALL nrmali(3,n)
END SUBROUTINE normquad
SUBROUTINE normtri(x1,x2,x3,n)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3)::x1,x2,x3,n
CALL prve3d(x2(1:3)-x1(1:3),x3(1:3)-x1(1:3),n)
CALL nrmali(3,n)
END SUBROUTINE normtri
SUBROUTINE vec3dn(xcf,vn,nnf)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3,*)::xcf
REAL(8),DIMENSION(3)::vn,xt1
CALL pconsr(3,vn)
SELECT CASE(nnf)
CASE(2)
DO i=1,2
xt1(i)=xcf(i,2)-xcf(i,1)
ENDDO
vn(2)=-xt1(1)
vn(1)=xt1(2)
CASE(3)
CALL normtri(xcf(1,1),xcf(1,2),xcf(1,3),vn)
CASE(4)
CALL normquad(xcf(1,1),xcf(1,2),xcf(1,3),xcf(1,4),vn)
END SELECT
CALL nrmali(3,vn)
END SUBROUTINE vec3dn
SUBROUTINE translmat(u1,u2,u3,mat)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(4,4)::mat
CALL pconsr(4*4,mat)
CALL adddiag(4,mat)
mat(1,4)=u1
mat(2,4)=u2
mat(3,4)=u3
END SUBROUTINE translmat
SUBROUTINE escalamat(s1,s2,s3,mat)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(4,4)::mat
CALL pconsr(4*4,mat)
mat(1,1)=s1
mat(2,2)=s2
mat(3,3)=s3
mat(4,4)=1.0d00
END SUBROUTINE escalamat
SUBROUTINE rotamat(iax,r,mat)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(4,4)::mat
CALL pconsr(4*4,mat,0.0d00)
cr=COS(r)
sr=SIN(r)
SELECT CASE(iax)
CASE(1)
mat(1,1)=1.0d00
mat(2,2)=cr
mat(3,3)=cr
mat(4,4)=1.0d00
mat(2,3)=-sr
mat(3,2)=sr
CASE(2)
mat(2,2)=1.0d00
mat(1,1)=cr
mat(3,3)=cr
mat(4,4)=1.0d00
mat(1,3)=sr
mat(3,1)=-sr
CASE(3)
mat(3,3)=1.0d00
mat(1,1)=cr
mat(2,2)=cr
mat(4,4)=1.0d00
mat(1,2)=-sr
mat(2,1)=sr
END SELECT
END SUBROUTINE rotamat
SUBROUTINE escalagen(s1,s2,s3,z,mat)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(4,4)::mat,mat1,mat2
REAL(8),DIMENSION(3)::z
CALL translmat(-z(1),-z(2),-z(3),mat)
CALL escalamat(s1,s2,s3,mat2)
CALL matmat(4,4,4,mat2,mat,mat1,0)
CALL translmat(z(1),z(2),z(3),mat2)
CALL matmat(4,4,4,mat2,mat1,mat,0)
END SUBROUTINE escalagen
SUBROUTINE escalapoin(s1,s2,s3,np,xp,xm)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3,*)::xp
REAL(8),DIMENSION(4,4)::mat
REAL(8),DIMENSION(3)::xm
CALL escalagen(s1,s2,s3,xm,mat)
DO i=1,np
CALL matvec(3,3,mat(1:3,1:3),xp(1:3,i),xp(1:3,i))
END DO
END SUBROUTINE escalapoin
SUBROUTINE orthgen(vr,z,mat)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(4,4)::mat,mat1,mat2
REAL(8),DIMENSION(3)::z,vr
CALL translmat(-z(1),-z(2),-z(3),mat)
mat2(1:3,4)=0.0d00
mat2(4,1:3)=0.0d00
mat2(4,4)=1.0d00
CALL angvec(vr,mat2(1:3,1:3))
CALL matmat(4,4,4,mat2,mat,mat1,0)
CALL translmat(z(1),z(2),z(3),mat2)
CALL matmat(4,4,4,mat2,mat1,mat,0)
END SUBROUTINE orthgen
SUBROUTINE levelpoly(xt,vt,w1,w2,nnp,xnp)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(2,3)::xt
REAL(8),DIMENSION(3)::vt
REAL(8),DIMENSION(2,5)::xnp
nnp=0
v1=MIN(w1,w2)
v2=MAX(w1,w2)
vmin=MIN(vt(1),vt(2),vt(3))
vmax=MAX(vt(1),vt(2),vt(3))
IF(vmin.GT.v1.AND.vmin.GT.v2)RETURN
IF(vmax.LT.v1.AND.vmax.LT.v2)RETURN
IF(ABS(v1).LE.TINY(v1).AND.ABS(v2).LE.TINY(v2))RETURN
imn=0
imx=0
DO i=1,3
IF(vt(i).GT.v1)THEN
imx=imx+1
END IF
IF(vt(i).LT.v2)THEN
imn=imn+1
END IF
END DO
IF(imx.EQ.3)THEN
v1=MIN(vt(1),vt(2),vt(3))
ENDIF
IF(imn.EQ.3)THEN
v2=MAX(vt(1),vt(2),vt(3))
END IF
DO i=1,3
i1=ipermut(3,i)
i2=ipermut(3,i+1)
IF(vt(i1).GE.v1.AND.vt(i1).LE.v2)THEN
nnp=nnp+1
DO j=1,2
xnp(j,nnp)=xt(j,i)
END DO
END IF
IF(ABS(vt(i1)-vt(i2)).LE.TINY(1.0d00))THEN
CYCLE
ELSE
vt1=vt(i1)
vt2=vt(i2)
END IF
IF(ABS(vt1-v1).LE.ABS(vt1-v2))THEN
xi1=(vt2-v1)/(vt2-vt1)
xi2=(vt2-v2)/(vt2-vt1)
ELSE
xi1=(vt2-v2)/(vt2-vt1)
xi2=(vt2-v1)/(vt2-vt1)
END IF
IF(xi1.LT.1.0d00.AND.xi1.GT.0.0d00)THEN
nnp=nnp+1
DO j=1,2
xnp(j,nnp)=xt(j,i1)*xi1+xt(j,i2)*(1.0d00-xi1)
END DO
END IF
IF(xi2.LT.1.0d00.AND.xi2.GT.0.0d00)THEN
nnp=nnp+1
DO j=1,2
xnp(j,nnp)=xt(j,i1)*xi2+xt(j,i2)*(1.0d00-xi2)
END DO
END IF
IF(nnp.GT.5)STOP "errorlevelpoly"
END DO
END SUBROUTINE levelpoly
SUBROUTINE levelline(xt,vt,v,x1,x2,in)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(2,3)::xt
REAL(8),DIMENSION(3)::vt
REAL(8),DIMENSION(2)::x1,x2
in=0
IF(vt(1).EQ.0.0d00.AND.vt(2).EQ.0.0d00.AND.vt(3).EQ.0.0d00)THEN
RETURN
END IF
DO i=1,3
i1=ipermut(3,i)
i2=ipermut(3,i+1)
rtol=1.0d-20*MAX(ABS(vt(i1)),ABS(vt(i2)))
IF(ABS(vt(i1)-vt(i2)).LE.rtol)THEN
vt1=vt(i1)-rtol
vt2=vt(i2)+rtol
ELSE
vt1=vt(i1)
vt2=vt(i2)
END IF
IF(vt2.EQ.vt1)THEN
xi=2.5d00
ELSE
xi=(vt2-v)/(vt2-vt1)
END IF
IF(xi.GE.0.0d00.AND.xi.LE.1.0d00)THEN
in=in+1
IF(in.EQ.1)THEN
DO id=1,2
x1(id)=xi*xt(id,i1)+(1.0d00-xi)*xt(id,i2)
END DO
ELSE
DO id=1,2
x2(id)=xi*xt(id,i1)+(1.0d00-xi)*xt(id,i2)
END DO
END IF
END IF
END DO
END SUBROUTINE levelline
REAL(8) FUNCTION signeddistance(q,n,x)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3)::q,n,x
r=0.0d00
DO i=1,3
r=r+n(i)*(x(i)-q(i))
ENDDO
signeddistance=r
END FUNCTION signeddistance
SUBROUTINE INTERSLINE(A,B,XLINE,NLINE,XI,IRES)
IMPLICIT REAL(8) (A-H,O-Z)
REAL(8),DIMENSION(:)::A,B,XLINE,NLINE
ndi=SIZE(a)
call nrmali(ndi,nline)
IRES=0
R1=dotprod(NDI,NLINE,A-XLINE)
R2=dotprod(NDI,NLINE,B-XLINE)
IF(ABS(R1-R2).GT.EPSMACH())THEN
IRES=1
XI=(r1+r2)/(r1-r2)
END IF
END SUBROUTINE INTERSLINE
SUBROUTINE loopref(nno,nel,nar,noco,elno,elni,elar, &
arno,arel,noar,elir, &
arni,aril,noir,elma)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8)::pi
REAL(8),DIMENSION(:,:),ALLOCATABLE::noco,noco2
INTEGER,DIMENSION(:),ALLOCATABLE:: &
elno,elni,elar, &
arno,arel,noar,elir, &
arni,aril,noir,elno2,elni2,lista,elma,elma2
REAL(8),DIMENSION(3)::xtemp
pi=4.0d00*ATAN(1.0d00)
nno2=nar+nno
nel2=4*nel
CALL salloc(3,nno2,noco2)
noco2(1:3,1:nno)=noco(1:3,1:nno)
CALL salloc(nel2,elma2)
CALL salloc(nel2+1,elni2)
DO i=1,nel2
elni2(i)=3
END DO
CALL salloc(nel2,elni2,elno2)
elno2(1:nel)=elno(1:nel)
elma2(1:nel)=elma(1:nel)
DO ino=1,nno
kfail=0
DO i=noir(ino),noir(ino+1)-1
j=noar(i)
IF(aril(j+1).EQ.aril(j)+1)THEN
kfail=kfail+1
END IF
END DO
IF(kfail.LE.1)THEN
CALL duallocalgraph(ino,noir,noar,arni,arno,k,lista)
IF(k.GT.0)THEN
xtemp=0.0d00
beta=(1.0d00/k)*((5.0d00/8.0d00)-((3.0d00/8.0d00)+0.25d00*COS(pi*2.0d00/k))**2)
DO i=1,k
xtemp=xtemp+beta*noco(1:3,lista(i))
END DO
xtemp=xtemp+(1.0d00-k*beta)*noco(1:3,ino)
noco2(1:3,ino)=xtemp
END IF
ELSE
in1=0
in2=0
DO i=noir(ino),noir(ino+1)-1
j=noar(i)
IF(aril(j+1).EQ.aril(j)+1)THEN
IF(in1.EQ.0)THEN
IF(arno(arni(j)).EQ.ino)THEN
in1=arno(arni(j)+1)
ELSE
in1=arno(arni(j))
END IF
ELSEIF(in2.EQ.0)THEN
IF(arno(arni(j)).EQ.ino)THEN
in2=arno(arni(j)+1)
ELSE
in2=arno(arni(j))
END IF
END IF
END IF
END DO
IF(in1.NE.0.AND.in2.NE.0)THEN
noco2(1:3,ino)=(3.0d00/4.0d00)*noco(1:3,ino)+&
(1.0d00/8.0d00)*noco(1:3,in1)+&
(1.0d00/8.0d00)*noco(1:3,in2)
END IF
END IF
END DO
DO i=1,nar
IF(aril(i+1).EQ.aril(i)+1)THEN
in1=arno(arni(i))
in2=arno(arni(i)+1)
noco2(1:3,nno+i)=0.5d00*(noco(1:3,in1)+noco(1:3,in2))
ELSE
in1=arno(arni(i))
in2=arno(arni(i)+1)
ie1=arel(aril(i))
ie2=arel(aril(i)+1)
xtemp=(3.0d00/8.0d00)*(noco(1:3,in1)+noco(1:3,in2))
DO j=elni(ie1),elni(ie1+1)-1
k=elno(j)
IF(k.NE.in1.AND.k.NE.in2)xtemp=xtemp+(1.0d00/8.0d00)*noco(1:3,k)
END DO
DO j=elni(ie2),elni(ie2+1)-1
k=elno(j)
IF(k.NE.in1.AND.k.NE.in2)xtemp=xtemp+(1.0d00/8.0d00)*noco(1:3,k)
END DO
noco2(1:3,nno+i)=xtemp
END IF
END DO
DO i=1,nel
ia1=elar(elir(i))
ia2=elar(elir(i)+1)
ia3=elar(elir(i)+2)

in1=elno(elni(i))
in2=elno(elni(i)+1)
in3=elno(elni(i)+2)

elno2(elni2(i)-1+1)=in1
elno2(elni2(i)-1+2)=ia1+nno
elno2(elni2(i)-1+3)=ia3+nno

elno2(elni2(nel+i)-1+1)=ia1+nno
elno2(elni2(nel+i)-1+2)=ia2+nno
elno2(elni2(nel+i)-1+3)=ia3+nno

elno2(elni2(nel*2+i)-1+1)=ia1+nno
elno2(elni2(nel*2+i)-1+2)=in2
elno2(elni2(nel*2+i)-1+3)=ia2+nno

elno2(elni2(nel*3+i)-1+1)=ia2+nno
elno2(elni2(nel*3+i)-1+2)=in3
elno2(elni2(nel*3+i)-1+3)=ia3+nno

elma2(nel+i)=elma(i)
elma2(nel*2+i)=elma(i)
elma2(nel*3+i)=elma(i)

END DO
nno=nno2
nel=nel2
CALL salloc(3,nno,noco)
noco(1:3,1:nno)=noco2(1:3,1:nno)
CALL salloc(nel+1,elni)
DO i=1,nel
elni(i)=3
END DO
CALL salloc(nel,elni,elno)
CALL salloc(nel,elma)
elma=elma2
elno=elno2
END SUBROUTINE loopref
SUBROUTINE interseseg(a,b,c,d,ires,xi1,xi2)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(2)::a,b,c,d,N1,N2
LOGICAL::i1,i2
IRES=0
xi1=0.0d00
xi2=0.0d00
tol=epsmach()
N1(1)=B(2)-A(2)
N1(2)=A(1)-B(1)
N2(1)=D(2)-C(2)
N2(2)=C(1)-D(1)
CALL INTERSLINE(A,B,C,N2,XI1,IRES)
IF(IRES.EQ.0)RETURN
CALL INTERSLINE(C,D,A,N1,XI2,IRES)
IF(IRES.EQ.0)RETURN
I1=.FALSE.
I2=.FALSE.
IF(XI1.GT.-1.0D00+TOL.AND.XI1.LT.1.0D00-TOL)THEN
I1=.TRUE.
END IF
IF(XI2.GT.-1.0D00+TOL.AND.XI2.LT.1.0D00-TOL)THEN
I2=.TRUE.
END IF
IF(I1.AND.I2)IRES=1
END SUBROUTINE interseseg
SUBROUTINE interstriplan(xt,p,n,klad,ilad,xii)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3,3)::xt
REAL(8),DIMENSION(3)::p,n
REAL(8),DIMENSION(2)::xii
INTEGER,DIMENSION(2)::ilad
tol=epsmach()
klad=0
DO ia=1,3
in1=ia
in2=ipermut(3,ia+1)
CALL INTERSLINE(xt(in1,1:3),xt(in2,1:3),p,N,XI,IRES)
IF(ires.EQ.1.AND.xi.GT.-1.0d00+tol.AND.xi.LT.1.0d00-tol)THEN
klad=klad+1
ilad(klad)=ia
xii(klad)=xi
END IF
END DO
END SUBROUTINE interstriplan
REAL(8) FUNCTION voltetra(x1,x2,x3,x4)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3,3)::jaco
REAL(8),DIMENSION(3)::x1,x2,x3,x4
jaco(1,1) = x1(1)-x3(1)
jaco(2,1) = x1(2)-x3(2)
jaco(3,1) = x1(3)-x3(3)
jaco(1,2) = x2(1)-x3(1)
jaco(2,2) = x2(2)-x3(2)
jaco(3,2) = x2(3)-x3(3)
jaco(1,3) = -x3(1)+x4(1)
jaco(2,3) = -x3(2)+x4(2)
jaco(3,3) = -x3(3)+x4(3)
dete=detm23(3,jaco)
voltetra=dete*0.16666666666667
END FUNCTION voltetra
SUBROUTINE correcttet(xno,conec)
INTEGER,DIMENSION(*)::conec
REAL(8),DIMENSION(3,*)::xno
IF(voltetra(xno(1:3,conec(1)),xno(1:3,conec(2)),xno(1:3,conec(3)),xno(1:3,conec(4))).LT.0.0d00)CALL scalswap(conec(1),conec(2))
END SUBROUTINE correcttet
SUBROUTINE intersection(n1,l1t,sorted1,n2,l2t,sorted2,n,l)
INTEGER,DIMENSION(*)::l1t,l2t
LOGICAL::sorted1,sorted2
INTEGER,DIMENSION(n1)::l1
INTEGER,DIMENSION(n2)::l2
INTEGER,DIMENSION(:),ALLOCATABLE::l
CALL ncopy(n1,l1,l1t)
CALL ncopy(n2,l2,l2t)
CALL salloc(0,l)
IF(.NOT.sorted1)CALL sort(n1,l1)
IF(.NOT.sorted2)CALL sort(n2,l2)
i=1
j=1
n=0
DO
IF(l1(i).EQ.l2(j))THEN
n=n+1
CALL insert(l,n,l1(i))
i=i+1
j=j+1
ELSEIF(l1(i).GT.l2(j))THEN
j=j+1
ELSE
i=i+1
END IF
IF(i.GT.n1.OR.j.GT.n2)EXIT
END DO
END SUBROUTINE intersection
SUBROUTINE difference(n1,l1t,sorted1,n2,l2t,sorted2,n,l)
INTEGER,DIMENSION(*)::l1t,l2t
LOGICAL::sorted1,sorted2
INTEGER,DIMENSION(n1)::l1
INTEGER,DIMENSION(n2)::l2
INTEGER,DIMENSION(:),ALLOCATABLE::l
CALL ncopy(n1,l1,l1t)
CALL ncopy(n2,l2,l2t)
CALL salloc(0,l)
IF(.NOT.sorted1)CALL sort(n1,l1)
IF(.NOT.sorted2)CALL sort(n2,l2)
i=1
j=1
n=0
DO
IF(l1(i).EQ.l2(j))THEN
i=i+1
j=j+1
ELSEIF(l1(i).GT.l2(j))THEN
j=j+1
ELSE
n=n+1
CALL insert(l,n,l1(i))
i=i+1
END IF
IF(i.GT.n1.OR.j.GT.n2)EXIT
END DO
END SUBROUTINE difference
SUBROUTINE sdifference(n1,l1t,sorted1,n2,l2t,sorted2,n,l)
INTEGER,DIMENSION(*)::l1t,l2t
LOGICAL::sorted1,sorted2
INTEGER,DIMENSION(:),ALLOCATABLE::la,lb,l
CALL difference(n1,l1t,sorted1,n2,l2t,sorted2,na,la)
CALL difference(n2,l2t,sorted2,n1,l1t,sorted1,nb,lb)
CALL union(na,la,.true.,nb,lb,.true.,n,l)
END SUBROUTINE sdifference
SUBROUTINE union(n1,l1,sorted1,n2,l2,sorted2,n,l)
INTEGER,DIMENSION(*)::l1,l2
LOGICAL::sorted1,sorted2,sorted
INTEGER,DIMENSION(:),ALLOCATABLE::l
CALL salloc(n1+n2,l)
DO i=1,n1
l(i)=l1(i)
END DO
DO i=1,n2
l(i+n1)=l2(i)
END DO
n=n1+n2
CALL purgar(n,l,.FALSE.)
END SUBROUTINE union
SUBROUTINE ncopy(n,i,j)
INTEGER,DIMENSION(*)::i,j
DO k=1,n
i(k)=j(k)
ENDDO
END SUBROUTINE ncopy
SUBROUTINE pconsi(n,l,k)
INTEGER,DIMENSION(*)::l
INTEGER,OPTIONAL::k
IF(n.LE.0)RETURN
IF(PRESENT(k))THEN
DO i=1,n
l(i)=k
END DO
ELSE
DO i=1,n
l(i)=0
END DO
END IF
END SUBROUTINE pconsi
SUBROUTINE nswap(n,i,j)
INTEGER,DIMENSION(*)::i,j
DO k=1,n
l=i(k)
i(k)=j(k)
j(k)=l
END DO
END SUBROUTINE nswap
SUBROUTINE changepermutation(n,iperm,lis,ijob)
INTEGER,DIMENSION(*)::iperm,lis
INTEGER,DIMENSION(n)::list
CALL ncopy(n,list,lis)
SELECT CASE(ijob)
CASE(0)
DO i=1,n
IF(list(i).EQ.0)STOP "zero in changepermutation"
lis(i)=iperm(list(i))
END DO
CASE(1)
DO i=1,n
IF(iperm(i).EQ.0)STOP "zero in changepermutation"
lis(i)=list(iperm(i))
END DO
CASE(2)
DO i=1,n
IF(iperm(i).EQ.0)STOP "zero in changepermutation"
lis(iperm(i))=list(i)
END DO
CASE(3)
DO i=1,n
IF(iperm(i).EQ.0)STOP "zero in changepermutation"
lis(iperm(i))=i
END DO
END SELECT
END SUBROUTINE changepermutation
SUBROUTINE dynaINT(n,l)
INTEGER,DIMENSION(:),ALLOCATABLE::l,lt
IF(n.LE.0)THEN
IF(ALLOCATED(l))DEALLOCATE(l)
ELSE
IF(ALLOCATED(l))THEN
nl=SIZE(l)
IF(nl.LT.n)THEN
ALLOCATE(lt(nl))
CALL ncopy(nl,lt,l)
CALL salloc(n*2,l)
CALL ncopy(nl,l,lt)
DEALLOCATE(lt)
END IF
ELSE
CALL salloc(n*2,l)
END IF
END IF
END SUBROUTINE dynaINT
SUBROUTINE trimsINT(n,l)
INTEGER,DIMENSION(:),ALLOCATABLE::l,lt
IF(n.LE.0)THEN
IF(ALLOCATED(l))DEALLOCATE(l)
ELSE
IF(ALLOCATED(l))THEN
nl=SIZE(l)
ALLOCATE(lt(n))
CALL ncopy(n,lt,l)
CALL salloc(n,l)
CALL ncopy(n,l,lt)
DEALLOCATE(lt)
ELSE
CALL salloc(n,l)
END IF
END IF
END SUBROUTINE trimsINT
SUBROUTINE trimsreal(n,l)
REAL(8),DIMENSION(:),ALLOCATABLE::l,lt
IF(n.LE.0)THEN
IF(ALLOCATED(l))DEALLOCATE(l)
ELSE
IF(ALLOCATED(l))THEN
nl=SIZE(l)
ALLOCATE(lt(n))
CALL copy(n,lt,l)
CALL salloc(n,l)
CALL copy(n,l,lt)
DEALLOCATE(lt)
ELSE
CALL salloc(n,l)
END IF
END IF
END SUBROUTINE trimsreal
SUBROUTINE insertvINT(l,i,k)
INTEGER::k
INTEGER,DIMENSION(:),ALLOCATABLE::l
ktemp=k
CALL dynaINT(i,l)
IF(i.GT.0)l(i)=ktemp
END SUBROUTINE insertvINT
SUBROUTINE removevint(nl,l,i)
INTEGER,DIMENSION(:),ALLOCATABLE::l
IF(i.LE.nl)THEN
l(i)=l(nl)
l(nl)=0
nl=nl-1
END IF
END SUBROUTINE removevint
SUBROUTINE ninsertcopy(istart,iend,l1,l2)
INTEGER,DIMENSION(:),ALLOCATABLE::l1
INTEGER,DIMENSION(*)::l2
nval=iend-istart+1
IF(nval.GT.0)THEN
CALL insert(l1,iend,l2(nval))
CALL ncopy(nval,l1(istart),l2)
END IF
END SUBROUTINE ninsertcopy
INTEGER FUNCTION ninsertget(l,i)
INTEGER,DIMENSION(:),ALLOCATABLE::l
IF(SIZE(l).LT.i)CALL insert(l,i,0)
ninsertget=l(i)
END FUNCTION ninsertget
INTEGER FUNCTION binsearch(n,l,sorted,u)
IMPLICIT INTEGER(a-z)
INTEGER,SAVE::iold=1
LOGICAL::sorted
INTEGER::u
INTEGER,DIMENSION(*)::l
IF(.NOT.sorted)THEN
binsearch=isearch(n,l,m)
iold=binsearch
ELSE
binsearch=0
IF(n.GE.2)THEN
iheuristic=0
IF(iold.GE.1.AND.iold+1.LE.n)THEN
IF(l(iold).LE.u.AND.l(iold+1).GE.u)THEN
i=iold
iheuristic=1
END IF
END IF
IF(iheuristic.EQ.0)THEN
i=1
j=n
DO
k=i+((j-i)/2)
IF(u.LT.l(k))THEN
j=k
ELSE
i=k
END IF
IF(i+1.GE.j)EXIT
END DO
END IF
binsearch=i
ELSEIF(n.EQ.1)THEN
binsearch=1
END IF
iold=binsearch
IF(l(binsearch).NE.u)binsearch=0
END IF
END FUNCTION binsearch
INTEGER FUNCTION isearch(n,l,m)
INTEGER,DIMENSION(*)::l
isearch=0
DO i=1,n
k=l(i)
IF(k.EQ.m)THEN
isearch=i
EXIT
ENDIF
END DO
END FUNCTION isearch
INTEGER FUNCTION ipermut(n,i)
itmp=MOD(i,n)
IF(itmp.EQ.0)THEN
ipermut=n
ELSE
ipermut=itmp
ENDIF
IF(ipermut.LE.0)ipermut=ipermut+CEILING(-1.0d00*ipermut/n)*n
END FUNCTION ipermut
SUBROUTINE insnalista(nlp,nlg,lp,lg)
INTEGER,DIMENSION(*)::lp
INTEGER,DIMENSION(nlp,*)::lg
IF(nlp.LE.0.OR.nlg.LT.0)RETURN
ind=inlista(nlp,nlg,lp,lg)
IF(ind.EQ.0)THEN
nlg=nlg+1
CALL ncopy(nlp,lg(1,nlg),lp)
END IF
END SUBROUTINE insnalista
SUBROUTINE insnlista(n,l,sorted,m)
LOGICAL::sorted
INTEGER,DIMENSION(:),ALLOCATABLE::l
IF(n.EQ.0)THEN
n=n+1
ELSEIF(0.EQ.binsearch(n,l,sorted,m))THEN
n=n+1
END IF
CALL insert(l,n,m)
END SUBROUTINE insnlista
LOGICAL FUNCTION iflisco(n,l1,sorted1,l2,sorted2)
INTEGER,DIMENSION(*)::l1,l2
LOGICAL::sorted1,sorted2
INTEGER,DIMENSION(n)::l1c,l2c
iflisco=.TRUE.
CALL ncopy(n,l1c,l1)
CALL ncopy(n,l2c,l2)
IF(.NOT.sorted1)CALL sort(n,l1c)
IF(.NOT.sorted2)CALL sort(n,l2c)
DO i=1,n
IF(l1c(i).NE.l2c(i))THEN
iflisco=.FALSE.
RETURN
END IF
END DO
END FUNCTION iflisco
INTEGER FUNCTION inlista(nlp,nlg,lp,lg)
INTEGER,DIMENSION(*)::lp
INTEGER,DIMENSION(nlp,*)::lg
inlista=0
do1:DO i=1,nlg
DO j=1,nlp
k=lp(j)
IF(0.EQ.isearch(nlp,lg(1:nlp,i),k))CYCLE do1
ENDDO
inlista=i
EXIT
END DO do1
END FUNCTION inlista
SUBROUTINE heapsorti(n,arr)
INTEGER,DIMENSION(*)::arr
INTEGER,DIMENSION(n)::per
CALL heapsortip(n,arr,per)
CALL changepermutation(n,per,arr,1)
END SUBROUTINE heapsorti
SUBROUTINE heapsortip(n,arr,per)
INTEGER,DIMENSION(*)::arr
INTEGER,DIMENSION(*)::per
DO i=1,n
per(i)=i
ENDDO
DO i=n/2,1,-1
CALL sd(i,n)
END DO
DO i=n,2,-1
l=per(i)
per(i)=per(1)
per(1)=l
CALL sd(1,i-1)
ENDDO
CONTAINS
SUBROUTINE sd(l,m)
INTEGER::m,a
ia=per(l)
a=arr(ia)
jold=l
j=l+l
DO
IF(j.GT.m)EXIT
IF(j.LT.m)THEN
IF(arr(per(j))<arr(per(j+1)))j=j+1
ENDIF
IF(a.GE.arr(per(j)))EXIT
per(jold)=per(j)
jold=j
j=j+j
END DO
per(jold)=ia
END SUBROUTINE sd
END SUBROUTINE heapsortip
SUBROUTINE purgar(n,l,sorted)
INTEGER,DIMENSION(*)::l
INTEGER,DIMENSION(n)::m
LOGICAL::sorted
IF(n.LE.0)RETURN
IF(.NOT.sorted)CALL sort(n,l)
iant=0
ik=0
DO i=1,n
j=l(i)
IF(j.NE.iant)THEN
ik=ik+1
m(ik)=j
iant=j
ENDIF
ENDDO
CALL ncopy(ik,l,m)
DO ikk=ik+1,n
l(ikk)=0
ENDDO
n=ik
END SUBROUTINE purgar
INTEGER FUNCTION id2d(m,i,j)!m-number of rows, i-row
id2d=i+(j-1)*m
END FUNCTION id2d
SUBROUTINE spdshp(ndi,nno,xco,der,vol)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(nno,ndi)::xco
REAL(8),DIMENSION(ndi,nno)::der
SELECT CASE(ndi)
CASE(3)
CALL spdtet(xco,der,vol)
CASE(2)
CALL spdtri(xco,der,vol)
END SELECT
END SUBROUTINE spdshp
SUBROUTINE spdtet(xco,der,vol)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(4,3)::xco
REAL(8),DIMENSION(3,4)::der
REAL(8),DIMENSION(3,3)::jaco,ijac
jaco(1,1)=xco(1,1)-xco(3,1)
jaco(2,1)=xco(1,2)-xco(3,2)
jaco(3,1)=xco(1,3)-xco(3,3)
jaco(1,2)=xco(2,1)-xco(3,1)
jaco(2,2)=xco(2,2)-xco(3,2)
jaco(3,2)=xco(2,3)-xco(3,3)
jaco(1,3)=xco(4,1)-xco(3,1)
jaco(2,3)=xco(4,2)-xco(3,2)
jaco(3,3)=xco(4,3)-xco(3,3)
CALL matinv(3,dete,jaco,ijac,.FALSE.)
vol=dete/6.0d00
der(1,1)=ijac(1,1)
der(2,1)=ijac(1,2)
der(3,1)=ijac(1,3)
der(1,2)=ijac(2,1)
der(2,2)=ijac(2,2)
der(3,2)=ijac(2,3)
der(1,3)=-ijac(1,1)-ijac(2,1)-ijac(3,1)
der(2,3)=-ijac(1,2)-ijac(2,2)-ijac(3,2)
der(3,3)=-ijac(1,3)-ijac(2,3)-ijac(3,3)
der(1,4)=ijac(3,1)
der(2,4)=ijac(3,2)
der(3,4)=ijac(3,3)
END SUBROUTINE spdtet
SUBROUTINE spdtri(xco,der,vol)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3,2)::xco
REAL(8),DIMENSION(2,3)::der
rgashgg1860=-(xco(1,2)*xco(2,1))
rgashgg1861=xco(1,1)*xco(2,2)
rgashgg1862=xco(1,2)*xco(3,1)
rgashgg1863=-(xco(2,2)*xco(3,1))
rgashgg1864=-(xco(1,1)*xco(3,2))
rgashgg1865=xco(2,1)*xco(3,2)
rgashgg1866=rgashgg1860+rgashgg1861+rgashgg1862+rgashgg1863+rgashgg1864+rgashgg1865
rgashgg1870=1.0d00/rgashgg1866
rgashgg1872=-xco(1,2)
rgashgg1873=xco(3,2)+rgashgg1872
rgashgg1868=-xco(2,2)
rgashgg1869=xco(1,2)+rgashgg1868
rgashgg1881=-xco(3,1)
rgashgg1882=xco(1,1)+rgashgg1881
rgashgg1878=-xco(1,1)
rgashgg1879=xco(2,1)+rgashgg1878
vol=5.d-1*rgashgg1866
der(1,1)=-(rgashgg1869*rgashgg1870)-rgashgg1870*rgashgg1873
der(1,2)=rgashgg1870*rgashgg1873
der(1,3)=rgashgg1869*rgashgg1870
der(2,1)=-(rgashgg1870*rgashgg1879)-rgashgg1870*rgashgg1882
der(2,2)=rgashgg1870*rgashgg1882
der(2,3)=rgashgg1870*rgashgg1879
END SUBROUTINE spdtri
INTEGER FUNCTION isideplane(np,xp,xi)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),PARAMETER::rtol=1.0d-9
REAL(8),DIMENSION(3)::np,xp,xi,xd
xd=xi-xp
rd=rnorm2(3,xd)*rtol
r=0.0d00
DO i=1,3
r=r+xd(i)*np(i)
ENDDO
IF(ABS(r).LE.rd)THEN
isideplane=0
ELSEIF(r.LT.0.0d00)THEN
isideplane=-1
ELSE
isideplane=1
ENDIF
END FUNCTION isideplane
SUBROUTINE orthg(w1,w2,e1,e2,e3)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3)::v1,v2,e1,e2,e3,temp1,temp2,w1,w2
CALL copy(3,v1,w1)
CALL copy(3,v2,w2)
CALL nrmali(3,v1)
CALL nrmali(3,v2)
CALL prve3d(v1,v2,e3)
CALL nrmali(3,e3)
CALL prve3d(v2,e3,temp1)
CALL nrmali(3,temp1)
CALL prve3d(e3,v1,temp2)
CALL nrmali(3,temp2)
e1=v1+temp1
e2=v2+temp2
CALL nrmali(3,e1)
CALL nrmali(3,e2)
END SUBROUTINE orthg
SUBROUTINE copy(n,x,y)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::x,y
IF(n.GT.0)CALL dcopy(n,y,1,x,1)
END SUBROUTINE copy
REAL(8) FUNCTION dotprod(n,x,y)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::x,y
IF(n.GT.0)THEN
dotprod=ddot(n,x,1,y,1)
ELSE
dotprod=0.0d00
END IF
END FUNCTION dotprod
SUBROUTINE adddiag(n,a)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(n,*)::a
CALL insertesc(n,a,1.0d00)
END SUBROUTINE adddiag
SUBROUTINE insertesc(n,a,esc)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(n,*)::a
DO i=1,n
a(i,i)=a(i,i)+esc
END DO
END SUBROUTINE insertesc
SUBROUTINE transp(n,a,at)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(n,*)::a,at
REAL(8),DIMENSION(n,n)::atemp
IF(loc(a(1,1)).EQ.loc(at(1,1)))THEN
CALL copy(n*n,atemp,a)
DO i=1,n
DO j=i+1,n
at(i,j)=atemp(j,i)
END DO
DO j=1,i-1
at(i,j)=atemp(j,i)
END DO
at(i,i)=atemp(i,i)
END DO
ELSE
DO i=1,n
DO j=i+1,n
at(i,j)=a(j,i)
END DO
DO j=1,i-1
at(i,j)=a(j,i)
END DO
at(i,i)=a(i,i)
END DO
END IF
END SUBROUTINE transp
subroutine printm(mtx)
real(8),dimension(:,:)::mtx
m=size(mtx,1)
n=size(mtx,2)
do i=1,m
do j=1,n
write(*,"(a,2i4,e11.3)")"Row, Column, Value",i,j,mtx(i,j)
end do
end do
end subroutine printm
SUBROUTINE pltmtps (na,ia,ja,name,iunt,size)
IMPLICIT REAL(8)(a-h,o-z)
integer,dimension(*)::ia,ja
character(*)::name
CHARACTER(3)::munt
munt="cm"
haf=0.5d00
zero=0.0d00
conv=2.54d00
nrow=na
ncol=numinj(na,ia,ja)
siz = size
nr = nrow
nc = ncol
n = nc
n = nr
maxdim = MAX(nrow, ncol)
m = 1 + maxdim
nc = nc+1
nr = nr+1
IF (munt.EQ.'cm' .OR. munt.EQ.'CM') THEN
u2dot = 72.0/conv
paperx = 21.0
ELSE
u2dot = 72.0
paperx = 8.5*conv
siz = siz*conv
END IF
lrmrgn = (paperx-siz)/2.0
botmrgn = 2.0
scfct = siz*u2dot/m
frlw = 0.25
fnstit = 0.5
ltit = LEN_TRIM(name)
ytitof = 1.0
xtit = paperx/2.0
ytit = botmrgn+siz*nr/m + ytitof
xl = lrmrgn*u2dot - scfct*frlw/2
xr = (lrmrgn+siz)*u2dot + scfct*frlw/2
yb = botmrgn*u2dot - scfct*frlw/2
yt = (botmrgn+siz*nr/m)*u2dot + scfct*frlw/2
IF (ltit.GT.0) THEN
yt = yt + (ytitof+fnstit*0.70)*u2dot
END IF
delt = 10.0
xl = xl-delt
xr = xr+delt
yb = yb-delt
yt = yt+delt
WRITE(iunt,10) '%!'
WRITE(iunt,10) '%%Creator: PSPLTM routine'
WRITE(iunt,12) '%%BoundingBox:',xl,yb,xr,yt
WRITE(iunt,10) '%%EndComments'
WRITE(iunt,10) '/cm {72 mul 2.54 div} def'
WRITE(iunt,10) '/mc {72 div 2.54 mul} def'
WRITE(iunt,10) '/pnum { 72 div 2.54 mul 20 string'
WRITE(iunt,10) 'cvs print ( ) print} def'
WRITE(iunt,10) '/Cshow {dup stringwidth pop -2 div 0 rmoveto show} def'
WRITE(iunt,10) 'gsave'
IF (ltit.GT.0) THEN
WRITE(iunt,*) '/Helvetica findfont ',fnstit,' cm scalefont setfont '
WRITE(iunt,*) xtit,' cm ',ytit,' cm moveto '
WRITE(iunt,'(3A)') '(',name(1:ltit),') Cshow'
END IF
WRITE(iunt,*) lrmrgn,' cm ',botmrgn,' cm translate'
WRITE(iunt,*) siz,' cm ',m,' div dup scale '
WRITE(iunt,*) frlw,' setlinewidth'
WRITE(iunt,10) 'newpath'
WRITE(iunt,11) 0, 0, ' moveto'
WRITE(iunt,11) nc,0,' lineto'
WRITE(iunt,11) nc,nr,' lineto'
WRITE(iunt,11) 0,nr,' lineto'
WRITE(iunt,10) 'closepath stroke'
WRITE(iunt,*)  ' 0.2 setlinewidth'
WRITE(iunt,10) '1 1 translate'
WRITE(iunt,10) '0.8 setlinewidth'
WRITE(iunt,10) '/p {moveto 0 -.40 rmoveto '
WRITE(iunt,10) '           0  .80 rlineto stroke} def'
DO ii=1, nrow
istart = ia(ii)
ilast  = ia(ii+1)-1
DO k=istart, ilast
WRITE(iunt,11) ja(k)-1, nrow-ii, ' p'
END DO
END DO
WRITE(iunt,10) 'showpage'
RETURN
10  FORMAT (A)
11  FORMAT (2(I6,1x),A)
12  FORMAT (A,4(1x,F9.2))
13  FORMAT (2(F9.2,1x),A)
END SUBROUTINE pltmtps
SUBROUTINE tensprod(n,a,x,y)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(n,*)::a
REAL(8),DIMENSION(*)::x,y
DO j=1,n
ytemp=y(j)
DO i=1,n
xtemp=x(i)
a(i,j)=xtemp*ytemp
END DO
END DO
END SUBROUTINE tensprod
SUBROUTINE updtens(n,a,x,y)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(n,*)::a
REAL(8),DIMENSION(*)::x,y
DO j=1,n
ytemp=y(j)
DO i=1,n
xtemp=x(i)
a(i,j)=xtemp*ytemp+a(i,j)
END DO
END DO
END SUBROUTINE updtens
INTEGER FUNCTION indmax(n,x)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::x
r=ABS(x(1))
ii=1
DO i=2,n
rtemp=ABS(x(i))
IF(rtemp.LE.r)CYCLE
ii=i
r=rtemp
END DO
indmax=ii
END FUNCTION indmax
REAL(8) FUNCTION xindmax(n,x)
REAL(8),DIMENSION(*)::x
xindmax=x(indmaxss(n,x))
END FUNCTION xindmax
INTEGER FUNCTION indmin(n,x)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::x
r=ABS(x(1))
ii=1
DO i=2,n
rtemp=ABS(x(i))
IF(r.LE.rtemp)CYCLE
ii=i
r=rtemp
END DO
indmin=ii
END FUNCTION indmin
REAL(8) FUNCTION xindmin(n,x)
REAL(8),DIMENSION(*)::x
xindmin=x(indminss(n,x))
END FUNCTION xindmin
INTEGER FUNCTION indmaxss(n,x)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(n)::x
r=x(1)
ii=1
DO i=2,n
rtemp=x(i)
IF(rtemp.LE.r)CYCLE
ii=i
r=rtemp
END DO
indmaxss=ii
END FUNCTION indmaxss
INTEGER FUNCTION indminss(n,x)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::x
r=x(1)
ii=1
DO i=2,n
rtemp=x(i)
IF(r.LE.rtemp)CYCLE
ii=i
r=rtemp
END DO
indminss=ii
END FUNCTION indminss
SUBROUTINE pconsr(n,x,r)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::x
REAL(8),OPTIONAL::r
IF(n.LE.0)RETURN
IF(PRESENT(r))THEN
DO i=1,n
x(i)=r
END DO
ELSE
DO i=1,n
x(i)=0.0d00
END DO
END IF
END SUBROUTINE pconsr
SUBROUTINE rswap(n,x,y)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::x,y
CALL dswap(n,x,1,y,1)
END SUBROUTINE rswap
SUBROUTINE scalswap(n1,n2)
INTEGER::n1,n2,ngash
ngash=n1
n1=n2
n2=ngash
END SUBROUTINE scalswap
SUBROUTINE axpy(n,z,a,x,y)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::x,y,z
IF(n.LE.0)RETURN
IF(a.EQ.0.0d00)THEN
CALL copy(n,z,y)
ELSE
IF(a.NE.1.0d00)THEN
DO i=1,n
rtemp=x(i)
z(i)=a*rtemp+y(i)
ENDDO
ELSE
DO i=1,n
z(i)=x(i)+y(i)
END DO
END IF
END IF
END SUBROUTINE axpy
SUBROUTINE axpby(n,z,a,x,b,y)
IMPLICIT REAL(8)(a-h,o-z)
REAL(8),DIMENSION(*)::x,y,z
IF(a.EQ.0.0d00.AND.b.EQ.0.0d00)THEN
CALL pconsr(n,z)
ELSEIF(a.EQ.0.0d00.AND.b.NE.0.0d00)THEN
CALL escvec(n,z,b,y)
ELSEIF(a.NE.0.0d00.AND.b.EQ.0.0d00)THEN
CALL escvec(n,z,a,x)
ELSE
IF(a.EQ.1.0d00)THEN
CALL axpy(n,z,b,y,x)
ELSEIF(b.EQ.1.0d00)THEN
CALL axpy(n,z,a,x,y)
ELSE
DO i=1,n
rtemp=x(i)
stemp=y(i)
z(i)=a*rtemp+b*stemp
END DO
END IF
END IF
END SUBROUTINE axpby
SUBROUTINE escvec(n,y,a,x)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::x,y
IF(loc(x(1)).EQ.loc(y(1)))THEN
CALL dscal(n,a,x,1)
ELSE
IF(a.EQ.1.0d00)THEN
CALL copy(n,y,x)
ELSE
DO i=1,n
y(i)=a*x(i)
END DO
END IF
END IF
END SUBROUTINE escvec
SUBROUTINE matvec(m,n,a,x,z)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(m,*)::a
REAL(8),DIMENSION(*)::x
REAL(8),DIMENSION(*)::z
REAL(8),DIMENSION(n)::xtemp
IF(m.LE.0.OR.n.LE.0)RETURN
IF(loc(x(1)).NE.loc(z(1)))THEN
CALL pconsr(m,z)
DO j=1,n
CALL axpy(m,z(1),x(j),a(1,j),z(1))
ENDDO
ELSE
IF(m.NE.n)STOP "wrong operation in matvec"
CALL copy(n,xtemp,x)
CALL pconsr(m,z)
DO j=1,n
CALL axpy(m,z(1),xtemp(j),a(1,j),z(1))
ENDDO
END IF
END SUBROUTINE matvec
SUBROUTINE matvec2(m,n,a,x,z)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(n,*)::a
REAL(8),DIMENSION(*)::x
REAL(8),DIMENSION(*)::z
REAL(8),DIMENSION(n)::xtemp
IF(m.LE.0.OR.n.LE.0)RETURN
IF(loc(x(1)).NE.loc(z(1)))THEN
DO i=1,m
z(i)=dotprod(n,x,a(1,i))
ENDDO
ELSE
IF(m.NE.n)STOP "wrong operation in matvec"
CALL copy(n,xtemp,x)
DO i=1,m
z(i)=dotprod(n,xtemp,a(1,i))
END DO
END IF
END SUBROUTINE matvec2
REAL(8) FUNCTION vecmatvec(m,n,a,v1,v2)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(m,*)::a
REAL(8),DIMENSION(*)::v1,v2
REAL(8),DIMENSION(m)::v3
CALL matvec(m,n,a,v2,v3)
vecmatvec=dotprod(m,v3,v1)
END FUNCTION vecmatvec
SUBROUTINE simmat(n,mat,mats)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(n,*)::mat,mats
REAL(8),DIMENSION(n,n)::temp
IF(loc(mat(1,1)).EQ.loc(mats(1,1)))THEN
CALL copy(n*n,temp,mat)
DO j=1,n
DO i=1,n
mats(i,j)=0.5d00*(temp(i,j)+temp(j,i))
END DO
END DO
ELSE
DO j=1,n
DO i=1,n
mats(i,j)=0.5d00*(mat(i,j)+mat(j,i))
END DO
END DO
END IF
END SUBROUTINE simmat
SUBROUTINE asimmat(n,mat,mats)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(n,*)::mat,mats
REAL(8),DIMENSION(n,n)::temp
IF(loc(mat(1,1)).EQ.loc(mats(1,1)))THEN
CALL copy(n*n,temp,mat)
DO j=1,n
DO i=1,n
mats(i,j)=0.5d00*(temp(i,j)-temp(j,i))
END DO
END DO
ELSE
DO j=1,n
DO i=1,n
mats(i,j)=0.5d00*(mat(i,j)-mat(j,i))
END DO
END DO
END IF
END SUBROUTINE asimmat
SUBROUTINE simtot(matr,nequ)
REAL(8),DIMENSION(nequ,*)::matr
DO ili=1,nequ
DO ico=1,ili-1
matr(ili,ico)=matr(ico,ili)
ENDDO
ENDDO
END SUBROUTINE simtot

SUBROUTINE matmat(m,r,n,a,b,c,ktyp)
IMPLICIT REAL(8) (a-h,o-z)
INTEGER::r
REAL(8),DIMENSION(m,*)::a
REAL(8),DIMENSION(r,*)::b
REAL(8),DIMENSION(m,*)::c
REAL(8),DIMENSION(m,n)::temp
ityp=ABS(ktyp)
IF(ityp.GE.2)THEN
IF(m.NE.r.OR.m.NE.n)STOP "illegal operation in matmat-square matrices only for ityp>1"
END IF
iac=0
IF(loc(a(1,1)).EQ.loc(c(1,1)).OR.loc(b(1,1)).EQ.loc(c(1,1)))THEN
iac=1
IF(m.NE.r.OR.m.NE.n)STOP "illegal operation in matmat-square matrices only for sharing"
END IF
IF(iac.EQ.1)THEN
IF(ktyp.GE.0)THEN
CALL pconsr(n*m,temp,0.0d00)
ELSE
CALL copy(n*m,temp,c)
END IF
SELECT CASE(ityp)
CASE(0:1)
DO j=1,n
DO k=1,r
DO i=1,m
temp(i,j)=temp(i,j)+a(i,k)*b(k,j)
ENDDO
ENDDO
ENDDO
CASE(2)
DO j=1,n
DO i=1,m
DO k=1,r
temp(i,j)=temp(i,j)+a(k,i)*b(k,j)
ENDDO
ENDDO
ENDDO
CASE(3)
DO k=1,r
DO j=1,n
DO i=1,m
temp(i,j)=temp(i,j)+a(i,k)*b(j,k)
ENDDO
ENDDO
ENDDO
CASE(4)
DO j=1,n
DO k=1,r
DO i=1,m
temp(i,j)=temp(i,j)+a(k,i)*b(j,k)
ENDDO
ENDDO
ENDDO
CASE default
STOP "illegal request in matmat"
END SELECT
CALL copy(n*m,c,temp)
ELSE
IF(ktyp.GE.0)CALL pconsr(n*m,c,0.0d00)
SELECT CASE(ityp)
CASE(0:1)
DO j=1,n
DO k=1,r
DO i=1,m
c(i,j)=c(i,j)+a(i,k)*b(k,j)
ENDDO
ENDDO
ENDDO
CASE(2)
DO j=1,n
DO i=1,m
DO k=1,r
c(i,j)=c(i,j)+a(k,i)*b(k,j)
ENDDO
ENDDO
ENDDO
CASE(3)
DO k=1,r
DO j=1,n
DO i=1,m
c(i,j)=c(i,j)+a(i,k)*b(j,k)
ENDDO
ENDDO
ENDDO
CASE(4)
DO j=1,n
DO k=1,r
DO i=1,m
c(i,j)=c(i,j)+a(k,i)*b(j,k)
ENDDO
ENDDO
ENDDO
CASE default
STOP "illegal request in matmat"
END SELECT
END IF
END SUBROUTINE matmat
SUBROUTINE solvcp(n,a,b)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::b
REAL(8),DIMENSION(n,*)::a
INTEGER,DIMENSION(n)::kpiv
CALL dgefa(a,n,n,kpiv,info)
CALL dgesl(a,n,n,kpiv,b,0)
END SUBROUTINE solvcp
SUBROUTINE solvcps(n,a,b)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::b
REAL(8),DIMENSION(n,*)::a
INTEGER,DIMENSION(n)::kpiv
CALL dsifa(a,n,n,kpiv,info)
CALL dsisl(a,n,n,kpiv,b)
END SUBROUTINE solvcps
SUBROUTINE jacobit(at,d,v,n,ierr)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(n,*)::at,v
REAL(8),DIMENSION(*)::d
REAL(8),DIMENSION(n)::b,z
REAL(8),DIMENSION(n,n)::a
REAL(8),PARAMETER::rze=0.0d00,rum=1.0d00,rce=100.0d00,small=1.0d-19
INTEGER,PARAMETER::miter=600
CALL copy(n*n,a,at)
ierr=0
DO ip=1,n
DO iq=1,n
v(iq,ip)=rze
ENDDO
v(ip,ip)=rum
ENDDO
DO ip=1,n
b(ip)=a(ip,ip)
d(ip)=b(ip)
z(ip)=rze
ENDDO
fn=fnorm(n,a)
fn=small*fn
DO i=1,miter
sm=rze
DO ip=1,n-1
DO iq=ip+1,n
sm=sm+ABS(a(ip,iq))
ENDDO
ENDDO
IF(sm.LE.fn)RETURN
IF(i.LT.4)THEN
tresh=0.2d00*sm/n**2
ELSE
tresh=rze
ENDIF
DO ip=1,n-1
DO iq=ip+1,n
g=rce*ABS(a(ip,iq))
IF((i.GT.4).AND.(ABS(d(ip))+  &
g.EQ.ABS(d(ip))).AND.(ABS(d(iq))+g.EQ.ABS(d(iq))))THEN
a(ip,iq)=rze
ELSE IF(ABS(a(ip,iq)).GT.tresh)THEN
h=d(iq)-d(ip)
IF(ABS(h)+g.EQ.ABS(h))THEN
t=a(ip,iq)/h
ELSE
theta=0.5d00*h/a(ip,iq)
t=1.0d00/(ABS(theta)+SQRT(rum+theta**2))
IF(theta.LT.rze)t=-t
ENDIF
c=rum/SQRT(rum+t**2)
s=t*c
tau=s/(rum+c)
h=t*a(ip,iq)
z(ip)=z(ip)-h
z(iq)=z(iq)+h
d(ip)=d(ip)-h
d(iq)=d(iq)+h
a(ip,iq)=rze
DO j=1,ip-1
g=a(j,ip)
h=a(j,iq)
a(j,ip)=g-s*(h+g*tau)
a(j,iq)=h+s*(g-h*tau)
ENDDO
DO j=ip+1,iq-1
g=a(ip,j)
h=a(j,iq)
a(ip,j)=g-s*(h+g*tau)
a(j,iq)=h+s*(g-h*tau)
ENDDO
DO j=iq+1,n
g=a(ip,j)
h=a(iq,j)
a(ip,j)=g-s*(h+g*tau)
a(iq,j)=h+s*(g-h*tau)
ENDDO
DO j=1,n
g=v(j,ip)
h=v(j,iq)
v(j,ip)=g-s*(h+g*tau)
v(j,iq)=h+s*(g-h*tau)
ENDDO
ENDIF
ENDDO
ENDDO
DO ip=1,n
b(ip)=b(ip)+z(ip)
d(ip)=b(ip)
z(ip)=rze
ENDDO
ENDDO
ierr=1
END SUBROUTINE jacobit

SUBROUTINE detm3d(detm,m,dm)
IMPLICIT NONE
DOUBLE PRECISION v(5001),detm,m(3,3),dm(3,3)
v(22)=-(m(2,2)*m(3,1))+m(2,1)*m(3,2)
v(21)=-(m(2,3)*m(3,1))+m(2,1)*m(3,3)
v(20)=-(m(2,3)*m(3,2))+m(2,2)*m(3,3)
detm=m(1,1)*v(20)-m(1,2)*v(21)+m(1,3)*v(22)
dm(1,1)=v(20)
dm(1,2)=-v(21)
dm(1,3)=v(22)
dm(2,1)=m(1,3)*m(3,2)-m(1,2)*m(3,3)
dm(2,2)=-(m(1,3)*m(3,1))+m(1,1)*m(3,3)
dm(2,3)=m(1,2)*m(3,1)-m(1,1)*m(3,2)
dm(3,1)=-(m(1,3)*m(2,2))+m(1,2)*m(2,3)
dm(3,2)=m(1,3)*m(2,1)-m(1,1)*m(2,3)
dm(3,3)=-(m(1,2)*m(2,1))+m(1,1)*m(2,2)
END SUBROUTINE detm3d
SUBROUTINE detm2d(detm,m,dm)
IMPLICIT NONE
DOUBLE PRECISION detm,m(2,2),dm(2,2)
detm=m(1,1)*m(2,2)-m(1,2)*m(2,1)
dm(1,1)=m(2,2)
dm(1,2)=-m(2,1)
dm(2,1)=-m(1,2)
dm(2,2)=m(1,1)
END SUBROUTINE detm2d
SUBROUTINE detm1d(detm,m,dm)
IMPLICIT NONE
DOUBLE PRECISION detm,m(1,1),dm(1,1)
detm=m(1,1)
dm(1,1)=1.0d00
END SUBROUTINE detm1d
SUBROUTINE detmd23(detm,m,dm)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(:,:)::m
REAL(8),DIMENSION(:,:)::dm
SELECT CASE(SIZE(m,1))
CASE(1)
CALL detm1d(detm,m,dm)
CASE(2)
CALL detm2d(detm,m,dm)
CASE(3)
CALL detm3d(detm,m,dm)
CASE default
WRITE(*,*) " error in detmd23 "
END SELECT
END SUBROUTINE detmd23
REAL(8) FUNCTION detm23(ndi,a)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(ndi,*)::a
SELECT CASE(ndi)
CASE(1)
detm23=a(1,1)
CASE(2)
detm23=a(1,1)*a(2,2)-a(1,2)*a(2,1)
CASE(3)
detm23=a(1,1)*a(2,2)*a(3,3)+a(1,2)*a(2,3)*a(3,1)+ &
a(1,3)*a(2,1)*a(3,2)-a(1,3)*a(2,2)*a(3,1)-  &
a(1,2)*a(2,1)*a(3,3)-a(1,1)*a(2,3)*a(3,2)
CASE default
WRITE(*,*) " error in detm23 "
END SELECT
END FUNCTION detm23
SUBROUTINE matinv(n,det,a,ai,ifs)
IMPLICIT REAL(8) (a-h,o-z)
LOGICAL::ifs
REAL(8),DIMENSION(n,*)::a,ai
REAL(8),DIMENSION(n,n)::atemp
IF(n.GT.0)THEN
IF(loc(a(1,1)).EQ.loc(ai(1,1)))THEN
CALL copy(n*n,atemp,a)
SELECT CASE(ifs)
CASE(.TRUE.)
CALL invmats(n,det,atemp,ai)
CASE(.FALSE.)
CALL invmat(n,det,atemp,ai)
END SELECT
ELSE
SELECT CASE(ifs)
CASE(.TRUE.)
CALL invmats(n,det,a,ai)
CASE(.FALSE.)
CALL invmat(n,det,a,ai)
END SELECT
END IF
END IF
END SUBROUTINE matinv

SUBROUTINE invmat(n,det,a,ai)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(5001)::v
REAL(8),DIMENSION(2)::detlp
REAL(8),DIMENSION(n,*)::a,ai
INTEGER,DIMENSION(n)::kpiv
REAL(8),DIMENSION(n)::work
IF(n.EQ.1)THEN
det=a(1,1)
ai(1,1)=1.0d00/det
RETURN
END IF
IF(n.EQ.2)THEN
v(9)=-(a(1,2)*a(2,1))+a(1,1)*a(2,2)
ai(1,1)=a(2,2)/v(9)
ai(1,2)=-(a(1,2)/v(9))
ai(2,1)=-(a(2,1)/v(9))
ai(2,2)=a(1,1)/v(9)
det=v(9)
RETURN
END IF
IF(n.EQ.3)THEN
v(28)=-(a(2,2)*a(3,1))+a(2,1)*a(3,2)
v(24)=-(a(2,3)*a(3,1))+a(2,1)*a(3,3)
v(20)=-(a(2,3)*a(3,2))+a(2,2)*a(3,3)
v(19)=a(1,1)*v(20)-a(1,2)*v(24)+a(1,3)*v(28)
ai(1,1)=v(20)/v(19)
ai(1,2)=(a(1,3)*a(3,2)-a(1,2)*a(3,3))/v(19)
ai(1,3)=(-(a(1,3)*a(2,2))+a(1,2)*a(2,3))/v(19)
ai(2,1)=-(v(24)/v(19))
ai(2,2)=(-(a(1,3)*a(3,1))+a(1,1)*a(3,3))/v(19)
ai(2,3)=(a(1,3)*a(2,1)-a(1,1)*a(2,3))/v(19)
ai(3,1)=v(28)/v(19)
ai(3,2)=(a(1,2)*a(3,1)-a(1,1)*a(3,2))/v(19)
ai(3,3)=(-(a(1,2)*a(2,1))+a(1,1)*a(2,2))/v(19)
det=v(19)
RETURN
END IF
IF(n.EQ.4)THEN
v(73)=-(a(1,2)*a(2,1))+a(1,1)*a(2,2)
v(72)=a(1,2)*a(3,1)-a(1,1)*a(3,2)
v(71)=a(1,3)*a(2,1)-a(1,1)*a(2,3)
v(70)=-(a(1,4)*a(2,1))+a(1,1)*a(2,4)
v(69)=-(a(1,3)*a(3,1))+a(1,1)*a(3,3)
v(68)=a(1,4)*a(3,1)-a(1,1)*a(3,4)
v(67)=-(a(1,3)*a(2,2))+a(1,2)*a(2,3)
v(66)=a(1,4)*a(2,2)-a(1,2)*a(2,4)
v(65)=-(a(1,4)*a(2,3))+a(1,3)*a(2,4)
v(64)=a(1,3)*a(3,2)-a(1,2)*a(3,3)
v(63)=-(a(1,4)*a(3,2))+a(1,2)*a(3,4)
v(62)=a(1,4)*a(3,3)-a(1,3)*a(3,4)
v(33)=-(a(3,2)*a(4,1))+a(3,1)*a(4,2)
v(34)=-(a(3,3)*a(4,1))+a(3,1)*a(4,3)
v(35)=-(a(3,3)*a(4,2))+a(3,2)*a(4,3)
v(55)=a(2,3)*v(33)-a(2,2)*v(34)+a(2,1)*v(35)
v(36)=-(a(3,4)*a(4,1))+a(3,1)*a(4,4)
v(37)=-(a(3,4)*a(4,2))+a(3,2)*a(4,4)
v(50)=a(2,4)*v(33)-a(2,2)*v(36)+a(2,1)*v(37)
v(38)=-(a(3,4)*a(4,3))+a(3,3)*a(4,4)
v(45)=a(2,4)*v(34)-a(2,3)*v(36)+a(2,1)*v(38)
v(40)=a(2,4)*v(35)-a(2,3)*v(37)+a(2,2)*v(38)
v(39)=a(1,1)*v(40)-a(1,2)*v(45)+a(1,3)*v(50)-a(1,4)*v(55)
ai(1,1)=v(40)/v(39)
ai(1,2)=(a(4,2)*v(62)+a(4,3)*v(63)+a(4,4)*v(64))/v(39)
ai(1,3)=(a(4,2)*v(65)+a(4,3)*v(66)+a(4,4)*v(67))/v(39)
ai(1,4)=(-(a(3,2)*v(65))-a(3,3)*v(66)-a(3,4)*v(67))/v(39)
ai(2,1)=-(v(45)/v(39))
ai(2,2)=(-(a(4,1)*v(62))+a(4,3)*v(68)+a(4,4)*v(69))/v(39)
ai(2,3)=(-(a(4,1)*v(65))+a(4,3)*v(70)+a(4,4)*v(71))/v(39)
ai(2,4)=(a(3,1)*v(65)-a(3,3)*v(70)-a(3,4)*v(71))/v(39)
ai(3,1)=v(50)/v(39)
ai(3,2)=(-(a(4,1)*v(63))-a(4,2)*v(68)+a(4,4)*v(72))/v(39)
ai(3,3)=(-(a(4,1)*v(66))-a(4,2)*v(70)+a(4,4)*v(73))/v(39)
ai(3,4)=(a(3,1)*v(66)+a(3,2)*v(70)-a(3,4)*v(73))/v(39)
ai(4,1)=-(v(55)/v(39))
ai(4,2)=(-(a(4,1)*v(64))-a(4,2)*v(69)-a(4,3)*v(72))/v(39)
ai(4,3)=(-(a(4,1)*v(67))-a(4,2)*v(71)-a(4,3)*v(73))/v(39)
ai(4,4)=(a(3,1)*v(67)+a(3,2)*v(71)+a(3,3)*v(73))/v(39)
det=v(39)
RETURN
END IF
IF(n.EQ.5)THEN
v(270)=a(4,2)*a(5,5)
v(269)=a(4,3)*a(5,5)
v(268)=a(4,4)*a(5,5)
v(267)=a(4,1)*a(5,5)
v(266)=a(1,1)*a(5,5)
v(265)=a(4,2)*a(5,4)
v(264)=a(4,3)*a(5,4)
v(263)=a(4,5)*a(5,4)
v(262)=a(4,1)*a(5,4)
v(261)=a(1,1)*a(5,4)
v(260)=a(4,2)*a(5,3)
v(259)=a(4,4)*a(5,3)
v(258)=a(4,5)*a(5,3)
v(257)=a(4,1)*a(5,3)
v(256)=a(1,1)*a(5,3)
v(255)=a(4,3)*a(5,2)
v(254)=a(4,4)*a(5,2)
v(253)=a(4,5)*a(5,2)
v(252)=a(4,1)*a(5,2)
v(251)=a(1,1)*a(5,2)
v(250)=a(4,3)*a(5,1)
v(249)=a(4,4)*a(5,1)
v(248)=a(4,5)*a(5,1)
v(247)=a(4,2)*a(5,1)
v(246)=a(1,2)*a(5,1)
v(245)=a(2,2)*a(3,5)
v(244)=a(1,2)*a(3,5)
v(243)=a(2,1)*a(3,5)
v(242)=a(1,1)*a(3,5)
v(241)=a(2,2)*a(3,4)
v(240)=a(1,2)*a(3,4)
v(239)=a(2,1)*a(3,4)
v(238)=a(1,1)*a(3,4)
v(237)=a(2,2)*a(3,3)
v(236)=a(1,2)*a(3,3)
v(235)=a(2,1)*a(3,3)
v(234)=a(1,1)*a(3,3)
v(233)=a(1,5)*a(2,4)
v(232)=a(1,4)*a(2,5)
v(231)=a(2,3)*a(3,2)
v(230)=a(1,3)*a(3,2)
v(229)=a(2,1)*a(3,2)
v(228)=a(1,1)*a(3,2)
v(227)=a(2,3)*a(3,1)
v(226)=a(1,3)*a(3,1)
v(225)=a(2,2)*a(3,1)
v(224)=a(1,2)*a(3,1)
v(210)=a(2,3)*v(224)
v(209)=a(1,3)*v(225)
v(192)=a(2,4)*v(224)
v(191)=a(1,4)*v(225)
v(186)=a(2,5)*v(224)
v(185)=a(1,5)*v(225)
v(162)=a(2,4)*v(226)
v(161)=a(1,4)*v(227)
v(156)=a(2,5)*v(226)
v(155)=a(1,5)*v(227)
v(150)=a(3,1)*v(232)
v(149)=a(3,1)*v(233)
v(212)=a(2,3)*v(228)
v(211)=a(1,3)*v(229)
v(194)=a(2,4)*v(228)
v(193)=a(1,4)*v(229)
v(188)=a(2,5)*v(228)
v(187)=a(1,5)*v(229)
v(120)=a(2,4)*v(230)
v(119)=a(1,4)*v(231)
v(114)=a(2,5)*v(230)
v(113)=a(1,5)*v(231)
v(108)=a(3,2)*v(232)
v(107)=a(3,2)*v(233)
v(214)=a(2,2)*v(234)
v(213)=a(1,2)*v(235)
v(290)=-v(209)+v(210)+v(211)-v(212)-v(213)+v(214)
v(164)=a(2,4)*v(234)
v(163)=a(1,4)*v(235)
v(158)=a(2,5)*v(234)
v(157)=a(1,5)*v(235)
v(122)=a(2,4)*v(236)
v(121)=a(1,4)*v(237)
v(116)=a(2,5)*v(236)
v(115)=a(1,5)*v(237)
v(102)=a(3,3)*v(232)
v(101)=a(3,3)*v(233)
v(196)=a(2,2)*v(238)
v(195)=a(1,2)*v(239)
v(288)=v(191)-v(192)-v(193)+v(194)+v(195)-v(196)
v(166)=a(2,3)*v(238)
v(165)=a(1,3)*v(239)
v(284)=-v(161)+v(162)+v(163)-v(164)-v(165)+v(166)
v(152)=a(2,5)*v(238)
v(151)=a(1,5)*v(239)
v(124)=a(2,3)*v(240)
v(123)=a(1,3)*v(241)
v(278)=v(119)-v(120)-v(121)+v(122)+v(123)-v(124)
v(110)=a(2,5)*v(240)
v(109)=a(1,5)*v(241)
v(104)=a(1,3)*a(2,5)*a(3,4)
v(103)=a(1,5)*a(2,3)*a(3,4)
v(190)=a(2,2)*v(242)
v(189)=a(1,2)*v(243)
v(287)=-v(185)+v(186)+v(187)-v(188)-v(189)+v(190)
v(160)=a(2,3)*v(242)
v(159)=a(1,3)*v(243)
v(283)=v(155)-v(156)-v(157)+v(158)+v(159)-v(160)
v(154)=a(2,4)*v(242)
v(153)=a(1,4)*v(243)
v(282)=-v(149)+v(150)+v(151)-v(152)-v(153)+v(154)
v(118)=a(2,3)*v(244)
v(117)=a(1,3)*v(245)
v(277)=-v(113)+v(114)+v(115)-v(116)-v(117)+v(118)
v(112)=a(2,4)*v(244)
v(111)=a(1,4)*v(245)
v(276)=v(107)-v(108)-v(109)+v(110)+v(111)-v(112)
v(106)=a(1,3)*a(2,4)*a(3,5)
v(105)=a(1,4)*a(2,3)*a(3,5)
v(275)=-v(101)+v(102)+v(103)-v(104)-v(105)+v(106)
v(202)=a(4,3)*v(246)
v(201)=a(1,3)*v(247)
v(174)=a(4,5)*v(246)
v(173)=a(4,4)*v(246)
v(172)=a(1,4)*v(247)
v(171)=a(1,5)*v(247)
v(134)=a(1,3)*v(248)
v(133)=a(1,4)*v(248)
v(132)=a(1,3)*v(249)
v(131)=a(1,5)*v(249)
v(130)=a(1,4)*v(250)
v(129)=a(1,5)*v(250)
v(204)=a(4,3)*v(251)
v(203)=a(1,3)*v(252)
v(178)=a(4,5)*v(251)
v(177)=a(4,4)*v(251)
v(176)=a(1,4)*v(252)
v(175)=a(1,5)*v(252)
v(80)=a(1,3)*v(253)
v(79)=a(1,4)*v(253)
v(78)=a(1,3)*v(254)
v(77)=a(1,5)*v(254)
v(76)=a(1,4)*v(255)
v(75)=a(1,5)*v(255)
v(52)=-v(247)+v(252)
v(206)=a(4,2)*v(256)
v(205)=a(1,2)*v(257)
v(289)=-v(201)+v(202)+v(203)-v(204)-v(205)+v(206)
v(138)=a(4,5)*v(256)
v(137)=a(4,4)*v(256)
v(136)=a(1,4)*v(257)
v(135)=a(1,5)*v(257)
v(86)=a(1,2)*v(258)
v(85)=a(1,4)*v(258)
v(84)=a(1,2)*v(259)
v(83)=a(1,5)*v(259)
v(82)=a(1,4)*v(260)
v(81)=a(1,5)*v(260)
v(57)=-v(255)+v(260)
v(54)=-v(250)+v(257)
v(180)=a(4,2)*v(261)
v(179)=a(1,2)*v(262)
v(285)=v(172)-v(173)-v(176)+v(177)+v(179)-v(180)
v(142)=a(4,5)*v(261)
v(141)=a(4,3)*v(261)
v(140)=a(1,3)*v(262)
v(279)=-v(130)+v(132)+v(136)-v(137)-v(140)+v(141)
v(139)=a(1,5)*v(262)
v(92)=a(1,2)*v(263)
v(91)=a(1,3)*v(263)
v(90)=a(1,2)*v(264)
v(89)=a(1,5)*v(264)
v(88)=a(1,3)*v(265)
v(271)=v(76)-v(78)-v(82)+v(84)+v(88)-v(90)
v(87)=a(1,5)*v(265)
v(59)=-v(259)+v(264)
v(58)=-v(254)+v(265)
v(55)=-v(249)+v(262)
v(182)=a(4,2)*v(266)
v(181)=a(1,2)*v(267)
v(286)=-v(171)+v(174)+v(175)-v(178)-v(181)+v(182)
v(146)=a(4,4)*v(266)
v(145)=a(4,3)*v(266)
v(144)=a(1,3)*v(267)
v(280)=v(129)-v(134)-v(135)+v(138)+v(144)-v(145)
v(143)=a(1,4)*v(267)
v(281)=-v(131)+v(133)+v(139)-v(142)-v(143)+v(146)
v(98)=a(1,2)*v(268)
v(97)=a(1,3)*v(268)
v(96)=a(1,2)*v(269)
v(95)=a(1,4)*v(269)
v(273)=-v(83)+v(85)+v(89)-v(91)-v(95)+v(97)
v(94)=a(1,3)*v(270)
v(272)=-v(75)+v(80)+v(81)-v(86)-v(94)+v(96)
v(93)=a(1,4)*v(270)
v(274)=v(77)-v(79)-v(87)+v(92)+v(93)-v(98)
v(68)=-v(263)+v(268)
v(65)=-v(258)+v(269)
v(64)=-v(253)+v(270)
v(62)=-v(248)+v(267)
v(51)=a(3,3)*v(52)-a(3,2)*v(54)+a(3,1)*v(57)
v(53)=a(3,4)*v(52)-a(3,2)*v(55)+a(3,1)*v(58)
v(56)=a(3,4)*v(54)-a(3,3)*v(55)+a(3,1)*v(59)
v(60)=a(3,4)*v(57)-a(3,3)*v(58)+a(3,2)*v(59)
v(216)=-(a(2,4)*v(51))+a(2,3)*v(53)-a(2,2)*v(56)+a(2,1)*v(60)
v(61)=a(3,5)*v(52)-a(3,2)*v(62)+a(3,1)*v(64)
v(63)=a(3,5)*v(54)-a(3,3)*v(62)+a(3,1)*v(65)
v(66)=a(3,5)*v(57)-a(3,3)*v(64)+a(3,2)*v(65)
v(198)=-(a(2,5)*v(51))+a(2,3)*v(61)-a(2,2)*v(63)+a(2,1)*v(66)
v(67)=a(3,5)*v(55)-a(3,4)*v(62)+a(3,1)*v(68)
v(69)=a(3,5)*v(58)-a(3,4)*v(64)+a(3,2)*v(68)
v(168)=-(a(2,5)*v(53))+a(2,4)*v(61)-a(2,2)*v(67)+a(2,1)*v(69)
v(70)=a(3,5)*v(59)-a(3,4)*v(65)+a(3,3)*v(68)
v(126)=-(a(2,5)*v(56))+a(2,4)*v(63)-a(2,3)*v(67)+a(2,1)*v(70)
v(72)=-(a(2,5)*v(60))+a(2,4)*v(66)-a(2,3)*v(69)+a(2,2)*v(70)
v(71)=-(a(1,2)*v(126))+a(1,3)*v(168)-a(1,4)*v(198)+a(1,5)*v(216)+a(1,1)*v(72)
ai(1,1)=v(72)/v(71)
ai(1,2)=(a(3,5)*v(271)+a(3,4)*v(272)+a(3,2)*v(273)+a(3,3)*v(274))/v(71)
ai(1,3)=(-(a(2,5)*v(271))-a(2,4)*v(272)-a(2,2)*v(273)-a(2,3)*v(274))/v(71)
ai(1,4)=(a(5,2)*v(275)+a(5,3)*v(276)+a(5,4)*v(277)+a(5,5)*v(278))/v(71)
ai(1,5)=(-(a(4,2)*v(275))-a(4,3)*v(276)-a(4,4)*v(277)-a(4,5)*v(278))/v(71)
ai(2,1)=-(v(126)/v(71))
ai(2,2)=(-(a(3,1)*v(273))+a(3,5)*v(279)+a(3,4)*v(280)+a(3,3)*v(281))/v(71)
ai(2,3)=(a(2,1)*v(273)-a(2,5)*v(279)-a(2,4)*v(280)-a(2,3)*v(281))/v(71)
ai(2,4)=(-(a(5,1)*v(275))+a(5,3)*v(282)+a(5,4)*v(283)+a(5,5)*v(284))/v(71)
ai(2,5)=(a(4,1)*v(275)-a(4,3)*v(282)-a(4,4)*v(283)-a(4,5)*v(284))/v(71)
ai(3,1)=v(168)/v(71)
ai(3,2)=(-(a(3,1)*v(274))-a(3,2)*v(281)+a(3,5)*v(285)+a(3,4)*v(286))/v(71)
ai(3,3)=(a(2,1)*v(274)+a(2,2)*v(281)-a(2,5)*v(285)-a(2,4)*v(286))/v(71)
ai(3,4)=(-(a(5,1)*v(276))-a(5,2)*v(282)+a(5,4)*v(287)+a(5,5)*v(288))/v(71)
ai(3,5)=(a(4,1)*v(276)+a(4,2)*v(282)-a(4,4)*v(287)-a(4,5)*v(288))/v(71)
ai(4,1)=-(v(198)/v(71))
ai(4,2)=(-(a(3,1)*v(272))-a(3,2)*v(280)-a(3,3)*v(286)+a(3,5)*v(289))/v(71)
ai(4,3)=(a(2,1)*v(272)+a(2,2)*v(280)+a(2,3)*v(286)-a(2,5)*v(289))/v(71)
ai(4,4)=(-(a(5,1)*v(277))-a(5,2)*v(283)-a(5,3)*v(287)+a(5,5)*v(290))/v(71)
ai(4,5)=(a(4,1)*v(277)+a(4,2)*v(283)+a(4,3)*v(287)-a(4,5)*v(290))/v(71)
ai(5,1)=v(216)/v(71)
ai(5,2)=(-(a(3,1)*v(271))-a(3,2)*v(279)-a(3,3)*v(285)-a(3,4)*v(289))/v(71)
ai(5,3)=(a(2,1)*v(271)+a(2,2)*v(279)+a(2,3)*v(285)+a(2,4)*v(289))/v(71)
ai(5,4)=(-(a(5,1)*v(278))-a(5,2)*v(284)-a(5,3)*v(288)-a(5,4)*v(290))/v(71)
ai(5,5)=(a(4,1)*v(278)+a(4,2)*v(284)+a(4,3)*v(288)+a(4,4)*v(290))/v(71)
det=v(71)
RETURN
END IF
IF(n.EQ.6)THEN
v(863)=a(1,3)*a(3,2)
v(850)=a(3,2)*a(4,1)
v(846)=a(1,1)*a(2,2)
v(845)=a(2,5)*a(3,1)
v(844)=a(1,5)*a(2,2)
v(843)=a(2,1)*a(3,5)
v(841)=a(3,2)*a(5,1)
v(832)=a(1,1)*a(4,2)
v(831)=a(1,2)*a(4,1)
v(827)=a(2,2)*a(5,1)
v(822)=a(4,1)*a(5,5)
v(821)=a(4,5)*a(5,2)
v(810)=a(1,6)*a(4,1)
v(800)=a(2,5)*a(5,6)
v(799)=a(1,6)*a(2,1)
v(798)=a(2,6)*a(3,1)
v(797)=a(1,6)*a(3,1)
v(793)=a(1,4)*a(2,1)
v(792)=a(2,1)*a(4,4)
v(789)=a(2,6)*a(4,1)
v(788)=a(2,1)*a(5,4)
v(787)=a(2,5)*a(4,6)
v(786)=a(2,6)*a(5,1)
v(780)=a(3,1)*a(4,4)
v(779)=a(3,4)*a(4,1)
v(777)=a(3,6)*a(4,1)
v(776)=a(3,1)*a(5,4)
v(775)=a(4,6)*a(5,1)
v(774)=a(3,6)*a(5,1)
v(767)=a(3,6)*a(4,5)
v(766)=a(3,6)*a(4,2)
v(762)=a(1,6)*a(4,2)
v(760)=a(1,3)*a(2,4)
v(755)=a(3,4)*a(4,5)
v(754)=a(2,6)*a(4,4)
v(753)=a(2,4)*a(3,5)
v(752)=a(3,4)*a(4,3)
v(742)=a(1,2)*a(5,6)
v(739)=a(2,2)*a(5,6)
v(738)=a(3,2)*a(5,6)
v(737)=a(2,2)*a(3,6)
v(736)=a(1,6)*a(2,2)
v(735)=a(3,6)*a(5,2)
v(730)=a(2,5)*a(3,3)
v(729)=a(1,5)*a(2,4)
v(728)=a(2,4)*a(5,5)
v(727)=a(2,3)*a(5,5)
v(726)=a(1,5)*a(2,3)
v(725)=a(3,5)*a(5,3)
v(724)=a(3,4)*a(5,3)
v(718)=a(1,4)*a(2,2)
v(717)=a(2,2)*a(4,4)
v(716)=a(2,2)*a(5,4)
v(712)=a(1,4)*a(2,3)
v(711)=a(1,3)*a(4,4)
v(710)=a(1,4)*a(4,3)
v(709)=a(1,3)*a(2,5)
v(708)=a(2,3)*a(5,4)
v(703)=a(1,2)*a(3,4)
v(702)=a(4,4)*a(5,6)
v(701)=a(1,4)*a(4,2)
v(700)=a(3,4)*a(4,2)
v(699)=a(1,2)*a(3,6)
v(698)=a(4,6)*a(5,4)
v(697)=a(1,6)*a(3,2)
v(696)=a(4,6)*a(5,2)
v(691)=a(1,3)*a(3,4)
v(690)=a(1,5)*a(3,3)
v(689)=a(1,5)*a(3,4)
v(688)=a(4,4)*a(5,5)
v(687)=a(4,3)*a(5,5)
v(686)=a(1,3)*a(5,4)
v(685)=a(3,3)*a(4,5)
v(684)=a(4,5)*a(5,3)
v(679)=a(4,3)*a(5,6)
v(678)=a(1,5)*a(4,2)
v(677)=a(1,3)*a(5,6)
v(676)=a(1,2)*a(4,5)
v(675)=a(4,1)*a(5,6)
v(674)=a(1,1)*a(5,6)
v(673)=a(1,6)*a(5,5)
v(672)=a(4,2)*a(5,5)
v(671)=a(1,3)*a(4,6)
v(670)=a(1,2)*a(5,5)
v(669)=a(1,1)*a(5,5)
v(668)=a(2,6)*a(5,4)
v(667)=a(4,1)*a(5,4)
v(666)=a(4,2)*a(5,4)
v(665)=a(4,3)*a(5,4)
v(664)=a(1,6)*a(5,3)
v(663)=a(4,6)*a(5,3)
v(662)=-(a(4,1)*a(5,3))
v(661)=a(1,1)*a(5,3)
v(660)=a(1,4)*a(5,3)
v(659)=a(4,4)*a(5,3)
v(658)=a(1,6)*a(5,2)
v(657)=a(1,3)*a(5,2)
v(656)=a(1,5)*a(5,2)
v(655)=a(1,4)*a(2,6)
v(654)=a(1,1)*a(2,4)
v(653)=a(4,1)*a(5,2)
v(652)=a(1,1)*a(5,2)
v(651)=a(1,4)*a(5,2)
v(650)=a(4,4)*a(5,2)
v(649)=a(1,6)*a(5,1)
v(648)=a(4,2)*a(5,1)
v(647)=-(a(1,2)*a(5,1))
v(646)=a(1,3)*a(2,2)
v(645)=a(1,4)*a(5,1)
v(644)=a(2,4)*a(4,6)
v(643)=a(2,1)*a(3,6)
v(642)=a(1,1)*a(3,6)
v(641)=a(1,2)*a(2,3)
v(640)=a(2,3)*a(3,5)
v(639)=a(2,1)*a(3,4)
v(638)=a(1,1)*a(3,4)
v(637)=a(2,2)*a(3,3)
v(636)=a(2,1)*a(3,3)
v(635)=a(1,4)*a(3,3)
v(634)=a(1,3)*a(2,6)
v(633)=a(1,5)*a(3,2)
v(632)=a(2,1)*a(3,2)
v(631)=a(1,1)*a(3,2)
v(630)=a(1,4)*a(3,2)
v(629)=a(2,3)*a(3,1)
v(628)=a(2,2)*a(3,1)
v(627)=a(1,4)*a(3,1)
v(626)=a(2,4)*a(3,1)
v(594)=-(a(1,2)*v(626))
v(593)=a(2,2)*v(627)
v(589)=a(1,3)*v(626)
v(588)=-(a(2,3)*v(627))
v(541)=a(1,2)*v(629)
v(540)=-(a(1,3)*v(628))
v(537)=a(1,6)*v(628)
v(534)=a(3,1)*v(634)
v(398)=a(1,5)*v(629)
v(397)=a(1,6)*v(629)
v(596)=a(2,4)*v(631)
v(595)=-(a(2,1)*v(630))
v(584)=a(2,3)*v(630)
v(543)=-(a(2,3)*v(631))
v(542)=a(1,3)*v(632)
v(531)=-(a(1,6)*v(632))
v(303)=a(2,6)*v(633)
v(285)=a(2,3)*v(633)
v(283)=-(a(3,2)*v(634))
v(281)=a(2,3)*v(697)
v(763)=v(281)+v(283)
v(590)=a(2,1)*v(635)
v(585)=-(a(2,2)*v(635))
v(545)=a(1,1)*v(637)
v(544)=-(a(1,2)*v(636))
v(855)=v(540)+v(542)+v(544)+v(545)
v(852)=v(541)+v(543)+v(855)
v(401)=a(1,5)*v(636)
v(399)=-(a(1,6)*v(636))
v(814)=v(397)+v(399)
v(304)=-(a(1,6)*v(637))
v(770)=v(304)+v(763)
v(278)=a(1,5)*v(637)
v(598)=-(a(2,2)*v(638))
v(597)=a(1,2)*v(639)
v(866)=v(593)+v(594)+v(595)+v(596)+v(597)+v(598)
v(592)=a(2,3)*v(638)
v(591)=-(a(1,3)*v(639))
v(865)=v(588)+v(589)+v(590)+v(591)+v(592)
v(587)=-(a(3,4)*v(641))
v(864)=v(584)+v(585)+v(587)
v(400)=a(1,1)*v(640)
v(802)=v(398)-v(400)-v(401)
v(371)=a(3,5)*v(655)
v(282)=-(a(1,6)*v(640))
v(280)=a(3,5)*v(641)
v(757)=v(278)+v(280)-v(285)
v(539)=-(a(2,2)*v(642))
v(538)=a(1,2)*v(643)
v(536)=a(2,3)*v(642)
v(535)=-(a(1,3)*v(643))
v(873)=-v(397)-v(399)+v(534)+v(535)+v(536)
v(533)=-(a(3,6)*v(641))
v(872)=v(281)+v(304)+v(533)
v(408)=-(a(3,6)*v(709))
v(586)=a(4,1)*v(646)
v(600)=a(3,4)*v(586)+a(4,4)*v(852)+a(4,1)*(a(2,4)*(a(1,2)*a(3,3)-v(863))+&
v(864))+a(4,2)*(-(a(3,3)*v(654))+v(865))+a(4,3&
&)*v(866)
v(421)=a(4,5)*v(630)
v(403)=a(2,6)*v(685)
v(407)=a(3,5)*v(644)
v(405)=-(a(1,5)*v(644))
v(341)=-(a(3,5)*v(671))
v(563)=a(4,4)*v(647)
v(562)=-(a(4,3)*v(645))
v(561)=a(4,2)*v(645)
v(530)=a(5,1)*v(646)
v(517)=a(4,6)*v(647)
v(516)=-(a(4,3)*v(647))
v(515)=-(a(1,3)*v(648))
v(514)=a(1,6)*v(648)
v(473)=a(2,4)*v(647)
v(346)=-(a(4,5)*v(649))
v(344)=a(4,3)*v(649)
v(567)=a(1,1)*v(650)
v(566)=-(a(1,3)*v(650))
v(565)=a(4,3)*v(651)
v(564)=-(a(4,1)*v(651))
v(521)=a(4,6)*v(652)
v(520)=-(a(4,3)*v(652))
v(519)=a(1,3)*v(653)
v(518)=-(a(1,6)*v(653))
v(476)=a(5,2)*v(654)
v(830)=-v(473)-v(476)
v(239)=a(5,2)*v(655)
v(232)=-(a(2,6)*v(656))
v(213)=a(4,5)*v(657)
v(205)=a(4,3)*v(656)
v(202)=-(a(4,6)*v(657))
v(194)=a(4,3)*v(658)
v(185)=a(4,6)*v(656)
v(180)=-(a(4,5)*v(658))
v(571)=-(a(1,1)*v(659))
v(570)=a(1,2)*v(659)
v(569)=-(a(4,2)*v(660))
v(568)=a(4,1)*v(660)
v(523)=a(4,2)*v(661)
v(522)=a(1,2)*v(662)
v(833)=v(515)+v(519)+v(522)+v(523)
v(868)=v(516)+v(520)+v(833)
v(354)=a(4,6)*v(661)
v(352)=-(a(4,5)*v(661))
v(349)=a(1,6)*v(662)
v(184)=-(a(1,5)*v(663))
v(183)=a(1,2)*v(663)
v(182)=a(5,3)*v(678)
v(179)=a(4,5)*v(664)
v(178)=-(a(4,2)*v(664))
v(177)=a(5,3)*v(676)
v(577)=a(1,1)*v(665)
v(576)=-(a(1,2)*v(665))
v(575)=-(a(1,1)*v(666))
v(574)=a(1,3)*v(666)
v(870)=v(565)+v(566)+v(569)+v(570)+v(574)+v(576)
v(573)=a(1,2)*v(667)
v(869)=v(561)+v(563)+v(564)+v(567)+v(573)+v(575)
v(572)=-(a(1,3)*v(667))
v(871)=v(562)+v(568)+v(571)+v(572)+v(577)
v(614)=a(4,4)*v(530)+a(4,3)*v(830)+a(2,4)*v(833)+a(2,3)*v(869)+a(2,1)*v(870)+&
&a(2,2)*v(871)
v(377)=a(1,1)*v(668)
v(233)=a(1,5)*v(668)
v(231)=a(1,2)*v(668)
v(751)=-v(231)+v(239)
v(383)=a(2,6)*v(669)
v(360)=-(a(4,6)*v(669))
v(358)=a(4,3)*v(669)
v(778)=-v(352)-v(358)
v(355)=a(4,1)*v(673)
v(241)=-(a(5,5)*v(655))
v(745)=v(233)+v(241)
v(240)=a(2,6)*v(670)
v(741)=v(232)+v(240)
v(204)=-(a(4,6)*v(670))
v(203)=a(5,5)*v(671)
v(201)=a(1,3)*v(672)
v(196)=a(1,6)*v(672)
v(195)=-(a(4,3)*v(673))
v(193)=a(4,3)*v(670)
v(680)=-v(177)+v(182)+v(193)-v(201)-v(205)+v(213)
v(525)=-(a(4,2)*v(674))
v(524)=a(1,2)*v(675)
v(875)=v(514)+v(517)+v(518)+v(521)+v(524)+v(525)
v(366)=a(4,5)*v(674)
v(364)=-(a(4,3)*v(674))
v(362)=-(a(1,5)*v(675))
v(361)=a(1,3)*v(675)
v(790)=v(344)+v(349)+v(354)+v(361)+v(364)
v(216)=a(5,6)*v(676)
v(215)=-(a(4,5)*v(677))
v(214)=a(4,2)*v(677)
v(208)=-(a(5,6)*v(678))
v(683)=v(180)+v(185)+v(196)+v(204)+v(208)+v(216)
v(207)=a(1,5)*v(679)
v(682)=v(179)+v(184)+v(195)+v(203)+v(207)+v(215)
v(206)=-(a(1,2)*v(679))
v(681)=v(178)+v(183)+v(194)+v(202)+v(206)+v(214)
v(511)=a(2,6)*v(680)+a(2,5)*v(681)+a(2,2)*v(682)+a(2,3)*v(683)
v(506)=a(3,6)*v(680)+a(3,5)*v(681)+a(3,2)*v(682)+a(3,3)*v(683)
v(73)=-(a(5,2)*a(6,1))+a(5,1)*a(6,2)
v(74)=-(a(5,3)*a(6,1))+a(5,1)*a(6,3)
v(75)=-(a(5,3)*a(6,2))+a(5,2)*a(6,3)
v(80)=a(4,3)*v(73)-a(4,2)*v(74)+a(4,1)*v(75)
v(76)=-(a(5,4)*a(6,1))+a(5,1)*a(6,4)
v(77)=-(a(5,4)*a(6,2))+a(5,2)*a(6,4)
v(85)=a(4,4)*v(73)-a(4,2)*v(76)+a(4,1)*v(77)
v(78)=-(a(5,4)*a(6,3))+a(5,3)*a(6,4)
v(93)=a(4,4)*v(75)-a(4,3)*v(77)+a(4,2)*v(78)
v(89)=a(4,4)*v(74)-a(4,3)*v(76)+a(4,1)*v(78)
v(79)=-(a(3,4)*v(80))+a(3,3)*v(85)-a(3,2)*v(89)+a(3,1)*v(93)
v(81)=-(a(5,5)*a(6,1))+a(5,1)*a(6,5)
v(82)=-(a(5,5)*a(6,2))+a(5,2)*a(6,5)
v(86)=a(4,5)*v(73)-a(4,2)*v(81)+a(4,1)*v(82)
v(83)=-(a(5,5)*a(6,3))+a(5,3)*a(6,5)
v(94)=a(4,5)*v(75)-a(4,3)*v(82)+a(4,2)*v(83)
v(90)=a(4,5)*v(74)-a(4,3)*v(81)+a(4,1)*v(83)
v(84)=-(a(3,5)*v(80))+a(3,3)*v(86)-a(3,2)*v(90)+a(3,1)*v(94)
v(87)=-(a(5,5)*a(6,4))+a(5,4)*a(6,5)
v(96)=a(4,5)*v(78)-a(4,4)*v(83)+a(4,3)*v(87)
v(95)=a(4,5)*v(77)-a(4,4)*v(82)+a(4,2)*v(87)
v(91)=a(4,5)*v(76)-a(4,4)*v(81)+a(4,1)*v(87)
v(88)=-(a(3,5)*v(85))+a(3,4)*v(86)-a(3,2)*v(91)+a(3,1)*v(95)
v(92)=-(a(3,5)*v(89))+a(3,4)*v(90)-a(3,3)*v(91)+a(3,1)*v(96)
v(97)=-(a(3,5)*v(93))+a(3,4)*v(94)-a(3,3)*v(95)+a(3,2)*v(96)
v(602)=a(2,5)*v(79)-a(2,4)*v(84)+a(2,3)*v(88)-a(2,2)*v(92)+a(2,1)*v(97)
v(98)=-(a(5,6)*a(6,1))+a(5,1)*a(6,6)
v(99)=-(a(5,6)*a(6,2))+a(5,2)*a(6,6)
v(102)=a(4,6)*v(73)-a(4,2)*v(98)+a(4,1)*v(99)
v(100)=-(a(5,6)*a(6,3))+a(5,3)*a(6,6)
v(108)=a(4,2)*v(100)+a(4,6)*v(75)-a(4,3)*v(99)
v(105)=a(4,1)*v(100)+a(4,6)*v(74)-a(4,3)*v(98)
v(101)=a(3,3)*v(102)-a(3,2)*v(105)+a(3,1)*v(108)-a(3,6)*v(80)
v(103)=-(a(5,6)*a(6,4))+a(5,4)*a(6,6)
v(110)=-(a(4,4)*v(100))+a(4,3)*v(103)+a(4,6)*v(78)
v(109)=a(4,2)*v(103)+a(4,6)*v(77)-a(4,4)*v(99)
v(106)=a(4,1)*v(103)+a(4,6)*v(76)-a(4,4)*v(98)
v(104)=a(3,4)*v(102)-a(3,2)*v(106)+a(3,1)*v(109)-a(3,6)*v(85)
v(107)=a(3,4)*v(105)-a(3,3)*v(106)+a(3,1)*v(110)-a(3,6)*v(89)
v(111)=a(3,4)*v(108)-a(3,3)*v(109)+a(3,2)*v(110)-a(3,6)*v(93)
v(550)=-(a(2,4)*v(101))+a(2,3)*v(104)-a(2,2)*v(107)+a(2,1)*v(111)+a(2,6)*v(79)
v(112)=-(a(5,6)*a(6,5))+a(5,5)*a(6,6)
v(120)=-(a(4,5)*v(103))+a(4,4)*v(112)+a(4,6)*v(87)
v(117)=-(a(4,5)*v(100))+a(4,3)*v(112)+a(4,6)*v(83)
v(116)=a(4,2)*v(112)+a(4,6)*v(82)-a(4,5)*v(99)
v(114)=a(4,1)*v(112)+a(4,6)*v(81)-a(4,5)*v(98)
v(113)=a(3,5)*v(102)-a(3,2)*v(114)+a(3,1)*v(116)-a(3,6)*v(86)
v(115)=a(3,5)*v(105)-a(3,3)*v(114)+a(3,1)*v(117)-a(3,6)*v(90)
v(118)=a(3,5)*v(108)-a(3,3)*v(116)+a(3,2)*v(117)-a(3,6)*v(94)
v(504)=-(a(2,5)*v(101))+a(2,3)*v(113)-a(2,2)*v(115)+a(2,1)*v(118)+a(2,6)*v(84)
v(119)=a(3,5)*v(106)-a(3,4)*v(114)+a(3,1)*v(120)-a(3,6)*v(91)
v(121)=a(3,5)*v(109)-a(3,4)*v(116)+a(3,2)*v(120)-a(3,6)*v(95)
v(415)=-(a(2,5)*v(104))+a(2,4)*v(113)-a(2,2)*v(119)+a(2,1)*v(121)+a(2,6)*v(88)
v(122)=a(3,5)*v(110)-a(3,4)*v(117)+a(3,3)*v(120)-a(3,6)*v(96)
v(314)=-(a(2,5)*v(107))+a(2,4)*v(115)-a(2,3)*v(119)+a(2,1)*v(122)+a(2,6)*v(92)
v(124)=-(a(2,5)*v(111))+a(2,4)*v(118)-a(2,3)*v(121)+a(2,2)*v(122)+a(2,6)*v(97)
v(123)=a(1,1)*v(124)-a(1,2)*v(314)+a(1,3)*v(415)-a(1,4)*v(504)+a(1,5)*v(550)-&
&a(1,6)*v(602)
v(126)=a(3,5)*v(659)
v(127)=a(1,5)*v(659)
v(128)=a(3,4)*v(684)
v(129)=a(1,4)*v(684)
v(130)=a(5,3)*v(689)
v(131)=a(3,5)*v(660)
v(132)=a(3,5)*v(665)
v(133)=a(1,5)*v(665)
v(134)=a(5,4)*v(685)
v(135)=a(4,5)*v(686)
v(136)=a(5,4)*v(690)
v(137)=a(3,5)*v(686)
v(138)=a(3,4)*v(687)
v(139)=a(1,4)*v(687)
v(140)=a(3,3)*v(688)
v(692)=-v(126)+v(128)+v(132)-v(134)-v(138)+v(140)
v(141)=a(1,3)*v(688)
v(693)=v(127)-v(129)-v(133)+v(135)+v(139)-v(141)
v(142)=a(5,5)*v(635)
v(734)=v(136)-v(142)
v(143)=a(5,5)*v(691)
v(694)=-v(130)+v(131)-v(137)+v(143)+v(734)
v(144)=a(4,3)*v(689)
v(145)=a(3,5)*v(710)
v(146)=a(4,4)*v(690)
v(147)=a(3,5)*v(711)
v(148)=a(4,5)*v(635)
v(149)=a(4,5)*v(691)
v(695)=v(144)-v(145)-v(146)+v(147)+v(148)-v(149)
v(756)=v(146)+v(695)
v(605)=a(1,1)*v(692)+a(3,1)*v(693)+a(4,1)*v(694)+a(5,1)*v(695)
v(604)=a(1,2)*v(692)+a(3,2)*v(693)+a(4,2)*v(694)+a(5,2)*v(695)
v(316)=-(a(1,6)*v(692))-a(3,6)*v(693)-a(4,6)*v(694)-a(5,6)*v(695)
v(150)=a(1,6)*v(650)
v(151)=a(3,6)*v(650)
v(152)=a(3,4)*v(658)
v(153)=a(3,6)*v(651)
v(154)=a(3,4)*v(696)
v(155)=a(1,4)*v(696)
v(156)=a(1,6)*v(666)
v(157)=a(3,6)*v(666)
v(158)=a(5,4)*v(697)
v(159)=a(5,4)*v(699)
v(842)=-v(153)+v(159)
v(160)=a(3,2)*v(698)
v(161)=a(1,2)*v(698)
v(162)=a(1,6)*v(700)
v(163)=a(3,6)*v(701)
v(164)=a(4,4)*v(697)
v(165)=a(4,4)*v(699)
v(166)=a(4,6)*v(630)
v(167)=a(4,6)*v(703)
v(856)=v(165)-v(167)
v(704)=-v(162)+v(163)+v(164)-v(165)-v(166)+v(167)
v(168)=a(5,6)*v(700)
v(169)=a(5,6)*v(701)
v(170)=a(3,2)*v(702)
v(705)=v(151)-v(154)-v(157)+v(160)+v(168)-v(170)
v(171)=a(1,2)*v(702)
v(706)=-v(150)+v(155)+v(156)-v(161)-v(169)+v(171)
v(172)=a(5,6)*v(630)
v(173)=a(5,6)*v(703)
v(707)=v(152)-v(158)+v(172)-v(173)+v(842)
v(552)=a(5,3)*v(704)+a(1,3)*v(705)+a(3,3)*v(706)+a(4,3)*v(707)
v(417)=-(a(5,5)*v(704))-a(1,5)*v(705)-a(3,5)*v(706)-a(4,5)*v(707)
v(175)=a(2,5)*v(659)
v(176)=-(a(2,6)*v(659))
v(181)=a(5,3)*v(655)
v(186)=a(2,5)*v(660)
v(187)=a(2,5)*v(665)
v(188)=a(2,6)*v(665)
v(719)=v(176)+v(188)
v(189)=a(4,5)*v(708)
v(190)=-(a(5,4)*v(634))
v(720)=v(181)+v(190)
v(191)=a(1,5)*v(708)
v(192)=a(5,4)*v(709)
v(197)=-(a(2,6)*v(710))
v(198)=a(2,3)*v(688)
v(713)=-v(175)+v(187)-v(189)+v(198)
v(199)=a(2,6)*v(711)
v(721)=v(197)+v(199)
v(200)=a(5,5)*v(712)
v(714)=v(186)+v(191)-v(192)-v(200)
v(209)=a(2,5)*v(710)
v(210)=a(4,4)*v(726)
v(211)=a(4,4)*v(709)
v(212)=a(4,5)*v(712)
v(715)=-v(209)-v(210)+v(211)+v(212)
v(610)=-(a(2,4)*v(680))+a(2,2)*v(693)+a(1,2)*v(713)+a(4,2)*v(714)+a(5,2)*v(715)
v(343)=-(a(2,4)*v(682))-a(1,6)*v(713)-a(4,6)*v(714)-a(5,6)*v(715)+a(1,5)*v(719)+&
&a(4,5)*v(720)+a(5,5)*v(721)
v(217)=a(1,6)*v(716)
v(218)=a(4,6)*v(716)
v(219)=a(1,6)*v(717)
v(220)=a(4,6)*v(718)
v(722)=v(219)-v(220)
v(221)=a(5,6)*v(717)
v(723)=v(218)-v(221)
v(222)=a(5,6)*v(718)
v(744)=-v(217)+v(222)
v(557)=a(2,4)*v(681)+a(2,3)*v(706)+a(1,2)*v(719)+a(4,2)*v(720)+a(5,2)*v(721)+&
a(5,3)*v(722)+a(1,3)*v(723)+a(4,3)*v(744)
v(444)=a(2,4)*v(683)-a(2,5)*v(706)-a(5,5)*v(722)-a(1,5)*v(723)+a(4,4)*v(741)+ &
a(4,2)*v(745)+a(4,5)*(v(217)-v(222)+v(751)&
&)
v(224)=a(2,5)*v(724)
v(225)=-(a(2,6)*v(724))
v(226)=a(2,4)*v(725)
v(227)=a(2,6)*v(725)
v(228)=a(5,3)*v(729)
v(229)=-(a(3,6)*v(660))
v(230)=a(5,4)*v(730)
v(234)=a(5,4)*v(640)
v(235)=a(3,5)*v(634)
v(816)=v(235)+v(282)+v(408)
v(236)=a(3,6)*v(726)
v(768)=v(235)+v(236)+v(282)
v(237)=a(3,6)*v(686)
v(743)=v(229)+v(237)
v(238)=a(3,3)*v(728)
v(242)=a(3,4)*v(727)
v(731)=-v(224)+v(226)+v(230)-v(234)-v(238)+v(242)
v(243)=a(3,4)*v(634)
v(244)=a(3,6)*v(727)
v(740)=v(227)+v(244)
v(245)=a(1,3)*v(728)
v(732)=-v(228)+v(245)+v(714)
v(246)=a(3,3)*v(729)
v(247)=a(1,4)*v(730)
v(248)=a(2,3)*v(689)
v(249)=a(2,5)*v(691)
v(250)=a(1,4)*v(640)
v(251)=a(1,3)*v(753)
v(733)=v(246)-v(247)-v(248)+v(249)+v(250)-v(251)
v(617)=-(a(2,1)*v(694))+a(1,1)*v(731)+a(3,1)*v(732)+a(5,1)*v(733)
v(616)=-(a(2,2)*v(694))+a(1,2)*v(731)+a(3,2)*v(732)+a(5,2)*v(733)
v(368)=a(1,5)*v(225)+a(5,4)*(-v(235)-v(236))+a(5,5)*v(243)+a(3,6)*(v(228)-v(245))-&
a(1,6)*v(731)-a(5,6)*v(733)+a(2,6)*v&
&(734)+a(1,4)*v(740)+a(2,5)*v(743)
v(252)=a(2,5)*v(658)
v(253)=a(2,4)*v(658)
v(254)=a(2,4)*v(735)
v(255)=-(a(2,5)*v(735))
v(256)=-(a(2,5)*v(697))
v(257)=a(3,5)*v(736)
v(258)=-(a(1,5)*v(737))
v(259)=a(2,5)*v(699)
v(746)=v(256)+v(257)+v(258)+v(259)
v(769)=v(303)+v(746)
v(260)=a(2,4)*v(697)
v(261)=a(3,4)*v(736)
v(262)=a(5,5)*v(737)
v(263)=a(2,4)*v(699)
v(747)=-v(260)+v(261)+v(263)
v(264)=a(2,4)*v(738)
v(265)=a(2,5)*v(738)
v(266)=a(3,4)*v(739)
v(748)=-v(254)+v(264)-v(266)
v(267)=-(a(2,5)*v(742))
v(749)=v(252)+v(267)+v(741)
v(268)=-(a(3,5)*v(739))
v(750)=v(255)+v(262)+v(265)+v(268)
v(527)=-(a(1,2)*v(740))+a(3,3)*v(749)+a(1,3)*v(750)+a(5,6)*v(757)+a(5,2)*v(768)+&
a(5,3)*v(769)+a(5,5)*v(770)
v(269)=a(2,4)*v(742)
v(828)=v(269)+v(751)
v(579)=a(1,2)*v(225)+a(5,2)*v(243)-a(2,3)*v(707)+a(3,2)*v(720)+a(2,2)*v(743)+a(3,3)*&
(v(231)-v(239)+v(253)-v(269)+v(744)&
&)+a(5,3)*v(747)+a(1,3)*v(748)
v(468)=a(3,2)*v(745)+a(5,4)*v(746)-a(5,5)*v(747)-a(1,5)*v(748)+a(3,4)*v(749)+a(1,4)*&
v(750)+a(3,5)*(-v(253)+v(828))
v(271)=a(2,5)*v(752)
v(272)=-(a(2,6)*v(752))
v(273)=a(4,3)*v(753)
v(274)=a(2,6)*a(3,5)*a(4,3)
v(275)=a(4,3)*v(729)
v(276)=-(a(3,6)*v(710))
v(277)=a(4,4)*v(730)
v(279)=a(3,3)*v(754)
v(284)=-(a(3,5)*v(754))
v(286)=a(3,6)*v(711)
v(287)=a(2,4)*v(685)
v(288)=-(a(2,6)*v(635))
v(803)=v(243)+v(288)
v(289)=a(2,3)*v(755)
v(758)=-v(271)+v(273)+v(277)-v(287)+v(289)
v(290)=a(2,6)*v(755)
v(773)=v(284)+v(290)
v(820)=v(407)+v(773)
v(291)=a(2,3)*v(767)
v(292)=a(4,5)*v(760)
v(761)=v(275)-v(292)
v(759)=v(209)-v(211)-v(212)-v(275)+v(292)
v(611)=a(2,1)*v(693)+a(1,1)*v(713)+a(4,1)*v(732)+a(5,1)*(v(715)+v(761))+a(2,4)*v(778)
v(413)=a(4,1)*v(733)+a(2,1)*v(756)+a(1,1)*v(758)+a(3,1)*v(759)+a(4,4)*v(802)
v(312)=a(4,2)*v(733)+a(2,2)*v(756)-a(4,4)*v(757)+a(1,2)*v(758)+a(3,2)*v(759)
v(293)=-(a(3,3)*v(644))
v(764)=v(272)+v(279)+v(293)
v(294)=a(4,6)*v(730)
v(815)=-v(274)-v(291)-v(294)+v(403)
v(295)=a(4,6)*v(689)
v(296)=-(a(3,4)*v(671))
v(765)=v(276)+v(286)+v(296)
v(297)=a(4,6)*v(760)
v(812)=-v(297)+v(721)
v(308)=-(a(4,6)*v(250))+a(4,4)*(-v(236)-v(282))+a(4,5)*v(288)+a(1,4)*(v(274)+v(291)+&
v(294))+a(2,3)*v(295)+a(3,5)*v(297)&
&-a(1,6)*v(758)+a(3,6)*v(761)+a(1,5)*v(764)+a(2,5)*v(765)+a(1,3)*v(773)
v(298)=a(2,5)*v(762)
v(299)=-(a(2,6)*v(678))
v(771)=v(298)+v(299)
v(300)=a(2,4)*v(762)
v(301)=a(2,4)*v(766)
v(311)=a(3,2)*(-v(197)+v(297))+a(3,3)*(-v(219)+v(220)+v(300))-a(1,3)*v(301)+a(2,3)*(-v(164)+&
v(704))+a(4,3)*v(747)+a(4,4&
&)*v(763)+a(1,2)*v(764)+a(2,2)*v(765)+a(4,2)*v(803)
v(302)=-(a(2,5)*v(766))
v(305)=a(2,2)*v(767)
v(306)=a(3,2)*v(787)
v(772)=v(302)+v(305)+v(306)
v(310)=a(2,2)*v(341)+a(4,6)*v(757)+a(4,2)*v(768)+a(4,3)*v(769)+a(4,5)*v(770)+a(3,3)*v(771)+&
a(1,3)*v(772)+a(1,2)*v(815)
v(309)=-(a(2,5)*v(167))+a(2,2)*v(295)+a(3,5)*(-v(220)-v(300))+a(1,5)*v(301)+a(4,2)*v(371)+&
a(3,2)*v(405)-a(2,6)*v(421)-a&
&(4,5)*v(747)+a(4,4)*v(769)+a(3,4)*v(771)+a(1,4)*v(772)+a(1,2)*v(820)
v(317)=a(4,4)*v(649)
v(318)=-(a(1,5)*v(774))
v(319)=a(3,4)*v(649)
v(320)=a(4,5)*v(774)
v(321)=a(1,5)*v(775)
v(791)=v(321)+v(346)+v(355)+v(360)+v(362)+v(366)
v(322)=a(1,4)*v(775)
v(323)=a(1,6)*v(667)
v(324)=a(1,5)*v(777)
v(325)=a(1,6)*v(776)
v(326)=a(5,4)*v(642)
v(327)=a(4,6)*v(776)
v(328)=a(1,1)*v(698)
v(329)=a(1,6)*v(779)
v(330)=-(a(5,5)*v(777))
v(781)=v(320)+v(330)
v(507)=a(4,3)*v(318)+a(5,3)*v(324)+a(5,1)*v(341)+a(3,1)*v(682)-a(3,6)*v(778)+&
a(1,3)*v(781)+a(3,5)*v(790)+a(3,3)*v(791)
v(331)=a(1,6)*v(780)
v(332)=a(4,4)*v(642)
v(333)=a(4,6)*v(627)
v(334)=a(4,6)*v(638)
v(782)=-v(329)+v(331)-v(332)-v(333)+v(334)
v(335)=a(5,6)*v(779)
v(336)=a(1,4)*v(675)
v(337)=a(5,6)*v(780)
v(783)=v(327)+v(335)-v(337)
v(338)=a(4,4)*v(674)
v(784)=-v(317)+v(322)+v(323)-v(328)-v(336)+v(338)
v(339)=a(5,6)*v(627)
v(340)=a(5,6)*v(638)
v(785)=v(319)-v(325)+v(326)+v(339)-v(340)
v(553)=-(a(4,1)*v(743))+a(5,1)*v(765)+a(5,3)*v(782)+a(1,3)*v(783)+a(3,3)*v(784)+a(4,3)*v(785)
v(418)=a(4,4)*v(318)+a(3,4)*v(321)+a(5,4)*v(324)+a(1,4)*v(781)-a(5,5)*v(782)-&
a(1,5)*v(783)-a(3,5)*v(784)-a(4,5)*v(785)
v(345)=-(a(1,5)*v(786))
v(801)=v(345)+v(383)
v(347)=a(4,5)*v(786)
v(348)=-(a(5,1)*v(787))
v(350)=a(1,5)*v(789)
v(351)=a(1,6)*v(788)
v(353)=a(4,6)*v(788)
v(356)=-(a(5,5)*v(789))
v(794)=v(347)+v(348)+v(356)
v(512)=a(4,3)*v(345)+a(5,3)*v(350)+a(2,1)*v(682)-a(2,6)*v(778)+a(2,5)*v(790)+&
&a(2,3)*v(791)+a(1,3)*v(794)
v(357)=a(1,6)*v(792)
v(359)=a(4,6)*v(793)
v(795)=v(357)-v(359)
v(363)=a(5,6)*v(792)
v(796)=v(353)-v(363)
v(365)=a(5,6)*v(793)
v(804)=-v(351)+v(365)
v(558)=a(1,1)*v(719)+a(4,1)*v(720)+a(2,3)*v(784)+a(2,4)*v(790)+a(5,3)*v(795)+a(1,3)*v(796)+&
a(4,3)*v(804)+a(5,1)*v(812)
v(445)=a(2,5)*(v(317)-v(323)+v(328)+v(336)-v(338))+a(5,4)*v(350)+&
a(4,5)*(v(351)-v(365)-v(377))+a(2,4)*v(791)+a(1,4)*v&
&(794)-a(5,5)*v(795)-a(1,5)*v(796)+a(4,4)*v(801)
v(369)=a(2,5)*v(649)
v(370)=a(2,4)*v(649)
v(372)=a(2,4)*v(774)
v(373)=a(3,6)*v(645)
v(811)=-v(319)+v(325)-v(326)-v(339)+v(340)+v(373)
v(374)=-(a(2,5)*v(797))
v(375)=a(1,5)*v(798)
v(376)=a(3,5)*v(799)
v(378)=-(a(1,5)*v(643))
v(379)=a(2,5)*v(642)
v(805)=v(374)+v(375)+v(376)+v(378)+v(379)
v(380)=a(2,4)*v(797)
v(381)=-(a(5,5)*v(798))
v(382)=a(3,4)*v(799)
v(384)=a(5,5)*v(643)
v(385)=a(2,4)*v(642)
v(806)=-v(380)+v(382)+v(385)
v(386)=a(5,6)*v(626)
v(387)=a(3,1)*v(800)
v(388)=a(5,6)*v(639)
v(807)=-v(372)+v(386)-v(388)
v(389)=-(a(1,1)*v(800))
v(808)=v(369)+v(389)+v(801)
v(390)=-(a(5,6)*v(843))
v(809)=v(381)+v(384)+v(387)+v(390)
v(528)=-(a(2,3)*v(318))-a(1,1)*v(740)-a(5,6)*v(802)+a(5,3)*v(805)+a(3,3)*v(808)+&
&a(1,3)*v(809)+a(5,5)*v(814)+a(5,1)*v&
&(816)
v(391)=a(5,6)*v(654)
v(829)=v(370)+v(377)-v(391)+v(804)
v(580)=a(1,1)*v(225)+a(3,1)*v(720)+a(2,1)*v(743)+a(5,1)*v(803)+a(5,3)*v(806)+a(1,3)*v(807)+&
&a(2,3)*v(811)+a(3,3)*v(829)
v(469)=a(5,1)*v(371)-a(2,5)*v(373)+a(3,5)*(-v(370)-v(377)+v(391))+a(5,4)*v(805)-a(5,5)*v(806)-a(1,5)*v(807)+a(3,4)*v&
&(808)+a(1,4)*v(809)
v(393)=a(2,5)*v(810)
v(817)=-v(350)+v(393)
v(394)=a(2,4)*v(810)
v(857)=-v(394)+v(795)
v(818)=v(359)+v(394)
v(395)=a(2,4)*v(777)
v(396)=a(1,4)*v(777)
v(813)=v(396)+v(782)
v(554)=-(a(4,1)*v(159))+a(1,2)*v(783)+a(3,2)*v(784)-a(4,2)*v(811)+a(5,2)*v(813)+a(5,1)*v(856)
v(412)=-(a(1,3)*v(395))+a(1,1)*v(764)+a(2,1)*v(765)+a(4,1)*v(803)+a(4,3)*v(806)-a(3,1)*v(812)+&
&a(2,3)*(-v(331)+v(813))+a&
&(4,4)*v(814)+a(3,3)*v(818)
v(402)=-(a(4,5)*v(798))
v(404)=a(4,5)*v(643)
v(406)=a(3,1)*v(787)
v(819)=v(402)+v(404)+v(406)
v(411)=a(2,3)*v(324)+a(2,1)*v(341)-a(4,6)*v(802)+a(4,3)*v(805)+a(4,5)*v(814)+a(1,1)*v(815)+&
&a(4,1)*v(816)+a(3,3)*v(817)&
&+a(1,3)*v(819)
v(410)=a(2,1)*v(295)+a(4,1)*v(371)+a(1,5)*v(395)+a(2,5)*(-v(334)-v(396))+a(3,1)*v(405)+&
&a(4,4)*v(805)-a(4,5)*v(806)+a(3&
&,4)*v(817)-a(3,5)*v(818)+a(1,4)*v(819)+a(1,1)*v(820)
v(419)=a(3,5)*v(648)
v(420)=a(1,5)*v(648)
v(422)=-(a(4,5)*v(647))
v(423)=a(5,1)*v(633)
v(424)=-(a(3,5)*v(647))
v(425)=a(3,5)*v(653)
v(426)=a(1,5)*v(653)
v(427)=a(3,1)*v(821)
v(428)=a(1,1)*v(821)
v(429)=a(3,1)*v(656)
v(430)=a(3,5)*v(652)
v(431)=a(3,2)*v(822)
v(432)=a(1,2)*v(822)
v(433)=a(3,1)*v(672)
v(823)=-v(419)+v(425)-v(427)-v(431)+v(433)
v(434)=a(4,2)*v(669)
v(824)=v(420)-v(422)-v(426)+v(428)+v(432)-v(434)
v(435)=a(3,1)*v(670)
v(436)=a(5,5)*v(631)
v(847)=v(429)-v(435)+v(436)
v(825)=-v(423)+v(424)-v(430)+v(847)
v(437)=a(4,1)*v(633)
v(438)=a(3,5)*v(831)
v(439)=a(3,1)*v(678)
v(440)=a(3,5)*v(832)
v(851)=v(437)-v(438)-v(439)+v(440)
v(441)=a(3,1)*v(676)
v(442)=a(4,5)*v(631)
v(826)=v(441)-v(442)+v(851)
v(606)=a(5,1)*v(421)+a(1,4)*v(823)+a(3,4)*v(824)+a(4,4)*v(825)+a(5,4)*v(826)
v(508)=a(3,2)*v(346)-a(1,6)*v(823)-a(3,6)*v(824)-a(4,6)*v(825)-a(5,6)*v(826)
v(446)=a(2,5)*v(648)
v(447)=-(a(2,6)*v(648))
v(448)=a(4,5)*v(827)
v(449)=-(a(2,6)*v(647))
v(450)=a(1,5)*v(827)
v(451)=-(a(2,5)*v(647))
v(452)=a(2,5)*v(653)
v(453)=a(2,1)*v(821)
v(454)=-(a(2,6)*v(652))
v(837)=v(449)+v(454)
v(559)=a(1,4)*v(447)+a(2,2)*v(784)+a(1,2)*v(796)+a(4,1)*v(828)+a(4,2)*v(829)-&
&a(4,6)*v(830)+a(4,4)*v(837)+a(5,2)*v(857)
v(455)=a(2,1)*v(656)
v(456)=a(2,5)*v(652)
v(457)=a(2,2)*v(822)
v(458)=a(2,1)*v(672)
v(834)=v(448)-v(453)-v(457)+v(458)
v(838)=-v(446)+v(452)+v(834)
v(459)=a(2,1)*v(670)
v(460)=a(2,2)*v(669)
v(835)=-v(450)+v(455)-v(459)+v(460)
v(839)=v(451)-v(456)+v(835)
v(461)=a(4,1)*v(844)
v(462)=a(2,5)*v(831)
v(463)=a(2,1)*v(678)
v(464)=a(2,5)*v(832)
v(465)=a(2,1)*v(676)
v(466)=a(4,5)*v(846)
v(836)=v(461)-v(463)+v(465)-v(466)
v(840)=-v(462)+v(464)+v(836)
v(613)=a(2,3)*v(824)+a(1,3)*v(834)+a(4,3)*v(835)+a(5,3)*v(836)+a(2,5)*v(868)
v(612)=a(2,4)*v(824)+a(1,4)*v(838)+a(4,4)*v(839)+a(5,4)*v(840)
v(513)=a(2,6)*(v(426)-v(432)+v(434))+a(1,5)*v(447)+a(4,5)*v(837)-a(1,6)*v(838)-a(4,6)*v(839)-a(5,6)*v(840)
v(470)=a(2,5)*v(841)
v(471)=-(a(2,6)*v(841))
v(581)=a(1,1)*v(254)-a(5,1)*v(263)+a(1,4)*v(471)+a(3,1)*v(751)+a(5,2)*(-&
&v(385)+v(806))+a(1,2)*(v(372)+v(807))+a(2,2)*v&
&(811)+a(3,2)*v(829)+a(3,4)*v(837)+a(2,1)*v(842)
v(472)=a(3,5)*v(827)
v(474)=a(5,2)*v(845)
v(475)=a(5,2)*v(843)
v(477)=a(5,5)*v(628)
v(478)=a(5,5)*v(632)
v(867)=v(474)-v(475)-v(477)+v(478)
v(848)=-v(470)+v(472)+v(867)
v(479)=a(3,1)*v(844)
v(480)=a(1,2)*v(845)
v(481)=a(1,5)*v(632)
v(482)=a(2,5)*v(631)
v(483)=a(1,2)*v(843)
v(484)=a(3,5)*v(846)
v(849)=v(479)-v(480)-v(481)+v(482)+v(483)-v(484)
v(618)=a(2,4)*(v(423)-v(429)+v(435)-v(436))-a(3,5)*v(830)+a(3,4)*v(839)+a(1,4)*v(848)+a(5,4)*v(849)
v(529)=a(1,5)*v(471)+a(3,5)*v(837)-a(3,6)*v(839)+a(2,6)*v(847)-a(1,6)*v(848)-a(5,6)*v(849)
v(486)=a(2,5)*v(850)
v(487)=-(a(2,6)*v(850))
v(488)=a(2,2)*a(3,5)*a(4,1)
v(489)=a(1,2)*v(789)
v(490)=a(4,2)*v(845)
v(491)=a(4,2)*v(798)
v(860)=v(487)+v(491)
v(492)=a(4,2)*v(843)
v(853)=-v(486)+v(488)+v(490)-v(492)
v(548)=a(3,3)*(-v(461)+v(462)+v(463)-v(464))+a(4,3)*v(849)+a(2,3)*v(851)+a(4,5)*v(852)+a(1,3)*v(853)
v(493)=-(a(2,6)*v(832))
v(854)=-v(489)-v(493)
v(560)=a(1,3)*v(447)+a(2,6)*v(519)+a(4,6)*v(530)+a(2,1)*v(681)-a(2,2)*v(790)+&
&a(4,3)*v(837)+a(5,3)*v(854)+a(2,3)*v(875)
v(494)=a(4,5)*v(628)
v(861)=-v(494)+v(853)
v(502)=a(2,1)*v(421)+a(2,4)*v(826)-a(3,4)*v(840)+a(4,4)*v(849)+a(1,4)*v(861)
v(495)=-(a(1,2)*v(798))
v(496)=a(2,6)*v(631)
v(858)=v(495)+v(496)
v(862)=v(531)+v(858)
v(874)=v(537)+v(538)+v(539)+v(862)
v(497)=a(1,2)*a(3,1)*a(4,6)
v(498)=-(a(4,6)*v(631))
v(859)=v(497)+v(498)
v(547)=a(1,3)*v(487)+a(3,6)*v(586)-a(3,3)*v(854)+a(4,6)*v(855)+a(2,3)*v(859)+&
&a(4,1)*v(872)+a(4,2)*v(873)+a(4,3)*v(874)
v(501)=-(a(1,2)*v(395))+a(4,2)*v(806)+a(2,2)*v(813)-a(3,4)*v(854)+&
&a(2,1)*(-v(163)+v(856))-a(3,2)*v(857)+a(4,4)*v(858)+a&
&(2,4)*v(859)+a(1,4)*v(860)
v(500)=a(4,6)*(-v(479)+v(481)-v(483)+v(484))+a(3,6)*v(840)-a(3,5)*&
&v(854)+a(2,5)*v(859)+a(1,5)*v(860)-a(1,6)*v(861)+a(4&
&,5)*v(862)
v(509)=a(5,1)*v(863)
v(620)=-(a(2,4)*v(509))+a(3,4)*v(530)+a(3,3)*v(830)+a(5,4)*v(852)+a(5,1)*v(864)+a(5,2)*v(865)+a(5,3)*v(866)
v(619)=-(a(2,5)*v(509))+a(3,5)*v(530)-a(2,3)*v(825)+a(3,3)*v(839)+a(5,3)*v(849)+a(1,3)*v(867)
v(608)=a(4,4)*v(509)+a(3,4)*v(868)+a(3,3)*v(869)+a(3,1)*v(870)+a(3,2)*v(871)
v(607)=a(4,5)*v(509)+a(1,3)*v(823)+a(3,3)*v(824)+a(4,3)*v(825)+a(5,3)*v(826)
v(582)=-(a(2,6)*v(509))+a(3,6)*v(530)+a(3,3)*v(837)+a(5,6)*v(852)+a(5,1)*v(872)+a(5,2)*v(873)+a(5,3)*v(874)
v(555)=a(3,2)*(-v(344)-v(349)-v(361)-v(364))+a(4,6)*v(509)+a(3,1)*(-v(183)+v(681))+a(5,3)*v(859)+a(3,6)*v(868)+a(3,3)*v&
&(875)
ai(1,1)=v(124)/v(123)
ai(1,2)=(-(a(6,2)*v(316))+a(6,3)*v(417)-a(6,4)*v(506)+a(6,5)*v(552)-a(6,6)*v(604))/v(123)
ai(1,3)=(a(6,2)*v(343)-a(6,3)*v(444)+a(6,4)*v(511)-a(6,5)*v(557)+a(6,6)*v(610))/v(123)
ai(1,4)=(-(a(6,2)*v(368))+a(6,3)*v(468)-a(6,4)*v(527)+a(6,5)*v(579)-a(6,6)*v(616))/v(123)
ai(1,5)=(a(6,2)*v(308)-a(6,3)*v(309)+a(6,4)*v(310)-a(6,5)*v(311)+a(6,6)*v(312))/v(123)
ai(1,6)=(-(a(5,2)*v(308))+a(5,3)*v(309)-a(5,4)*v(310)+a(5,5)*v(311)-a(5,6)*v(312))/v(123)
ai(2,1)=-(v(314)/v(123))
ai(2,2)=(a(6,1)*v(316)-a(6,3)*v(418)+a(6,4)*v(507)-a(6,5)*v(553)+a(6,6)*v(605))/v(123)
ai(2,3)=(-(a(6,1)*v(343))+a(6,3)*v(445)-a(6,4)*v(512)+a(6,5)*v(558)-a(6,6)*v(611))/v(123)
ai(2,4)=(a(6,1)*v(368)-a(6,3)*v(469)+a(6,4)*v(528)-a(6,5)*v(580)+a(6,6)*v(617))/v(123)
ai(2,5)=(-(a(6,1)*v(308))+a(6,3)*v(410)-a(6,4)*v(411)+a(6,5)*v(412)-a(6,6)*v(413))/v(123)
ai(2,6)=(a(5,1)*v(308)-a(5,3)*v(410)+a(5,4)*v(411)-a(5,5)*v(412)+a(5,6)*v(413))/v(123)
ai(3,1)=v(415)/v(123)
ai(3,2)=(-(a(6,1)*v(417))+a(6,2)*v(418)-a(6,4)*v(508)+a(6,5)*v(554)-a(6,6)*v(606))/v(123)
ai(3,3)=(a(6,1)*v(444)-a(6,2)*v(445)+a(6,4)*v(513)-a(6,5)*v(559)+a(6,6)*v(612))/v(123)
ai(3,4)=(-(a(6,1)*v(468))+a(6,2)*v(469)-a(6,4)*v(529)+a(6,5)*v(581)-a(6,6)*v(618))/v(123)
ai(3,5)=(a(6,1)*v(309)-a(6,2)*v(410)+a(6,4)*v(500)-a(6,5)*v(501)+a(6,6)*v(502))/v(123)
ai(3,6)=(-(a(5,1)*v(309))+a(5,2)*v(410)-a(5,4)*v(500)+a(5,5)*v(501)-a(5,6)*v(502))/v(123)
ai(4,1)=-(v(504)/v(123))
ai(4,2)=(a(6,1)*v(506)-a(6,2)*v(507)+a(6,3)*v(508)-a(6,5)*v(555)+a(6,6)*v(607))/v(123)
ai(4,3)=(-(a(6,1)*v(511))+a(6,2)*v(512)-a(6,3)*v(513)+a(6,5)*v(560)-a(6,6)*v(613))/v(123)
ai(4,4)=(a(6,1)*v(527)-a(6,2)*v(528)+a(6,3)*v(529)-a(6,5)*v(582)+a(6,6)*v(619))/v(123)
ai(4,5)=(-(a(6,1)*v(310))+a(6,2)*v(411)-a(6,3)*v(500)+a(6,5)*v(547)-a(6,6)*v(548))/v(123)
ai(4,6)=(a(5,1)*v(310)-a(5,2)*v(411)+a(5,3)*v(500)-a(5,5)*v(547)+a(5,6)*v(548))/v(123)
ai(5,1)=v(550)/v(123)
ai(5,2)=(-(a(6,1)*v(552))+a(6,2)*v(553)-a(6,3)*v(554)+a(6,4)*v(555)-a(6,6)*v(608))/v(123)
ai(5,3)=(a(6,1)*v(557)-a(6,2)*v(558)+a(6,3)*v(559)-a(6,4)*v(560)+a(6,6)*v(614))/v(123)
ai(5,4)=(-(a(6,1)*v(579))+a(6,2)*v(580)-a(6,3)*v(581)+a(6,4)*v(582)-a(6,6)*v(620))/v(123)
ai(5,5)=(a(6,1)*v(311)-a(6,2)*v(412)+a(6,3)*v(501)-a(6,4)*v(547)+a(6,6)*v(600))/v(123)
ai(5,6)=(-(a(5,1)*v(311))+a(5,2)*v(412)-a(5,3)*v(501)+a(5,4)*v(547)-a(5,6)*v(600))/v(123)
ai(6,1)=-(v(602)/v(123))
ai(6,2)=(a(6,1)*v(604)-a(6,2)*v(605)+a(6,3)*v(606)-a(6,4)*v(607)+a(6,5)*v(608))/v(123)
ai(6,3)=(-(a(6,1)*v(610))+a(6,2)*v(611)-a(6,3)*v(612)+a(6,4)*v(613)-a(6,5)*v(614))/v(123)
ai(6,4)=(a(6,1)*v(616)-a(6,2)*v(617)+a(6,3)*v(618)-a(6,4)*v(619)+a(6,5)*v(620))/v(123)
ai(6,5)=(-(a(6,1)*v(312))+a(6,2)*v(413)-a(6,3)*v(502)+a(6,4)*v(548)-a(6,5)*v(600))/v(123)
ai(6,6)=(a(5,1)*v(312)-a(5,2)*v(413)+a(5,3)*v(502)-a(5,4)*v(548)+a(5,5)*v(600))/v(123)
det=v(123)
RETURN
END IF
CALL copy(n*n,ai,a)
CALL dgefa(ai,n,n,kpiv,ierr)
CALL dgedi(ai,n,n,kpiv,detlp,work,11)
det=DETlp(1)*10.0**DETlp(2)
END SUBROUTINE invmat
SUBROUTINE invmats(n,det,a,ai)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(5001)::v
INTEGER,DIMENSION(n)::kpiv
REAL(8),DIMENSION(2)::detlp
REAL(8),DIMENSION(n,*)::a,ai
REAL(8),DIMENSION(n)::work
INTEGER,DIMENSION(3)::inert
IF(n.EQ.1)THEN
det=a(1,1)
ai(1,1)=1.0d00/det
RETURN
END IF
IF(n.EQ.2)THEN
v(9)=-a(1,2)**2+a(1,1)*a(2,2)
v(11)=-(a(1,2)/v(9))
ai(1,1)=a(2,2)/v(9)
ai(1,2)=v(11)
ai(2,1)=v(11)
ai(2,2)=a(1,1)/v(9)
det=v(9)
RETURN
END IF
IF(n.EQ.3)THEN
v(24)=-(a(1,3)*a(2,2))+a(1,2)*a(2,3)
v(22)=-(a(1,3)*a(2,3))+a(1,2)*a(3,3)
v(20)=-a(2,3)**2+a(2,2)*a(3,3)
v(19)=a(1,1)*v(20)-a(1,2)*v(22)+a(1,3)*v(24)
v(23)=-(v(22)/v(19))
v(25)=v(24)/v(19)
v(27)=(a(1,2)*a(1,3)-a(1,1)*a(2,3))/v(19)
ai(1,1)=v(20)/v(19)
ai(1,2)=v(23)
ai(1,3)=v(25)
ai(2,1)=v(23)
ai(2,2)=(-a(1,3)**2+a(1,1)*a(3,3))/v(19)
ai(2,3)=v(27)
ai(3,1)=v(25)
ai(3,2)=v(27)
ai(3,3)=(-a(1,2)**2+a(1,1)*a(2,2))/v(19)
det=v(19)
RETURN
END IF
IF(n.EQ.4)THEN
v(68)=a(1,2)*a(2,3)
v(66)=-(a(1,4)*a(2,3))
v(65)=a(1,2)*a(1,3)-a(1,1)*a(2,3)
v(64)=-(a(1,2)*a(1,4))+a(1,1)*a(2,4)
v(63)=a(1,4)*a(2,4)
v(62)=a(1,4)*a(3,4)
v(61)=2d0*a(1,3)
v(55)=a(1,2)**2
v(67)=a(1,1)*a(2,2)-v(55)
v(52)=a(1,3)**2
v(50)=a(1,4)**2
v(48)=a(3,4)**2
v(33)=a(1,3)*a(2,4)+v(66)
v(34)=-(a(1,4)*a(3,3))+a(1,3)*a(3,4)
v(35)=-(a(2,4)*a(3,3))+a(2,3)*a(3,4)
v(46)=a(2,3)*v(33)-a(2,2)*v(34)+a(1,2)*v(35)
v(36)=a(1,3)*a(4,4)-v(62)
v(37)=-(a(2,4)*a(3,4))+a(2,3)*a(4,4)
v(44)=a(2,4)*v(33)-a(2,2)*v(36)+a(1,2)*v(37)
v(38)=a(3,3)*a(4,4)-v(48)
v(42)=a(2,4)*v(34)-a(2,3)*v(36)+a(1,2)*v(38)
v(40)=a(2,4)*v(35)-a(2,3)*v(37)+a(2,2)*v(38)
v(39)=a(1,1)*v(40)-a(1,2)*v(42)+a(1,3)*v(44)-a(1,4)*v(46)
ai(1,1)=v(40)/v(39)
ai(1,2)=-(v(42)/v(39))
ai(1,3)=v(44)/v(39)
ai(1,4)=-(v(46)/v(39))
ai(2,2)=(-(a(1,1)*v(48))-a(3,3)*v(50)+a(4,4)*(a(1,1)*a(3,3)-v(52))+v(61)*v(62))/v(39)
ai(2,3)=(a(2,3)*v(50)-a(1,3)*v(63)+a(3,4)*v(64)+a(4,4)*v(65))/v(39)
ai(2,4)=(a(2,4)*v(52)-a(3,3)*v(64)-a(3,4)*v(65)+a(1,3)*v(66))/v(39)
ai(3,3)=(-(a(1,1)*a(2,4)**2)-a(2,2)*v(50)+2d0*a(1,2)*v(63)+a(4,4)*v(67))/v(39)
ai(3,4)=(-(a(2,4)*v(65))-a(3,4)*v(67)+a(1,4)*(a(1,3)*a(2,2)-v(68)))/v(39)
ai(4,4)=(-(a(1,1)*a(2,3)**2)-a(2,2)*v(52)+a(3,3)*v(67)+v(61)*v(68))/v(39)
DO i01=2,4
DO i02=1,i01-1
ai(i01,i02)=ai(i02,i01)
ENDDO
ENDDO
det=v(39)
RETURN
END IF
IF(n.EQ.5)THEN
v(180)=2d0*a(1,4)
v(174)=2d0*a(1,3)
v(173)=a(1,5)*a(4,5)
v(172)=a(1,4)*a(5,5)
v(171)=a(1,1)*a(5,5)
v(170)=a(1,2)*a(5,5)
v(169)=-(a(3,5)*a(4,4))
v(168)=a(1,2)*a(4,5)
v(167)=a(1,1)*a(4,5)
v(166)=a(1,3)*a(4,5)
v(165)=a(1,4)*a(3,5)
v(164)=a(1,1)*a(3,5)
v(163)=a(1,2)*a(1,5)
v(162)=a(1,1)*a(3,4)
v(161)=a(1,1)*a(3,3)
v(160)=a(1,4)*a(2,5)
v(159)=a(1,3)*a(2,5)
v(158)=a(1,1)*a(2,5)
v(157)=a(1,2)*a(2,5)
v(156)=a(1,4)*a(2,4)
v(155)=a(1,2)*a(2,4)
v(154)=a(1,3)*a(1,5)
v(153)=a(1,5)*a(2,3)
v(152)=a(1,4)*a(2,2)
v(147)=a(1,3)*v(152)
v(140)=a(1,5)*v(152)
v(130)=a(2,2)*v(154)
v(131)=a(1,2)*v(153)
v(122)=a(1,4)*v(153)
v(109)=a(2,3)*v(154)
v(146)=a(1,3)*v(155)
v(129)=a(1,5)*v(155)
v(128)=a(1,3)*v(156)
v(127)=a(1,5)*v(156)
v(98)=a(2,4)*v(154)
v(142)=a(2,4)*v(158)
v(141)=a(1,4)*v(157)
v(138)=-(a(1,3)*v(157))
v(132)=a(2,3)*v(158)
v(99)=a(1,4)*v(159)
v(96)=a(1,5)*v(159)
v(95)=a(1,5)*v(160)
v(52)=-(a(1,5)*a(2,4))+v(160)
v(143)=a(2,2)*v(161)
v(111)=a(2,5)*v(161)
v(110)=a(3,3)*v(163)
v(135)=a(2,2)*v(162)
v(113)=a(2,3)*v(162)
v(100)=a(3,4)*v(163)
v(177)=v(100)+v(98)+v(99)
v(124)=-(a(2,4)*v(164))
v(123)=a(1,2)*v(165)
v(184)=v(123)+v(124)
v(101)=a(2,5)*v(164)
v(97)=a(1,5)*v(165)
v(57)=-(a(2,5)*a(3,4))+a(2,4)*a(3,5)
v(54)=-(a(1,5)*a(3,4))+v(165)
v(133)=a(4,4)*v(164)
v(112)=a(1,2)*v(169)
v(134)=a(1,4)*v(166)
v(125)=a(1,2)*v(166)
v(185)=v(122)+v(125)+v(184)
v(117)=-(a(1,4)*v(168))
v(116)=a(2,4)*v(167)
v(103)=-(a(3,5)*v(167))
v(102)=a(3,5)*v(168)
v(92)=a(4,5)*v(162)
v(90)=a(4,5)**2
v(59)=a(3,4)*a(4,5)+v(169)
v(58)=-(a(2,5)*a(4,4))+a(2,4)*a(4,5)
v(55)=-(a(1,5)*a(4,4))+a(1,4)*a(4,5)
v(107)=a(1,3)*v(170)
v(106)=a(2,4)*v(171)
v(105)=a(1,4)*v(170)
v(190)=-v(105)+v(106)
v(104)=-(a(1,3)*v(172))
v(178)=v(103)+v(104)+v(97)
v(93)=a(4,4)*v(171)
v(68)=a(4,4)*a(5,5)-v(90)
v(65)=-(a(3,5)*a(4,5))+a(3,4)*a(5,5)
v(64)=-(a(2,5)*a(4,5))+a(2,4)*a(5,5)
v(62)=v(172)-v(173)
v(51)=a(3,3)*v(52)-a(2,3)*v(54)+a(1,3)*v(57)
v(53)=a(3,4)*v(52)-a(2,3)*v(55)+a(1,3)*v(58)
v(56)=a(3,4)*v(54)-a(3,3)*v(55)+a(1,3)*v(59)
v(60)=a(3,4)*v(57)-a(3,3)*v(58)+a(2,3)*v(59)
v(80)=-(a(2,4)*v(51))+a(2,3)*v(53)-a(2,2)*v(56)+a(1,2)*v(60)
v(61)=a(3,5)*v(52)-a(2,3)*v(62)+a(1,3)*v(64)
v(63)=a(3,5)*v(54)-a(3,3)*v(62)+a(1,3)*v(65)
v(66)=a(3,5)*v(57)-a(3,3)*v(64)+a(2,3)*v(65)
v(78)=-(a(2,5)*v(51))+a(2,3)*v(61)-a(2,2)*v(63)+a(1,2)*v(66)
v(67)=a(3,5)*v(55)-a(3,4)*v(62)+a(1,3)*v(68)
v(69)=a(3,5)*v(58)-a(3,4)*v(64)+a(2,3)*v(68)
v(76)=-(a(2,5)*v(53))+a(2,4)*v(61)-a(2,2)*v(67)+a(1,2)*v(69)
v(70)=a(3,5)*v(59)-a(3,4)*v(65)+a(3,3)*v(68)
v(74)=-(a(2,5)*v(56))+a(2,4)*v(63)-a(2,3)*v(67)+a(1,2)*v(70)
v(72)=-(a(2,5)*v(60))+a(2,4)*v(66)-a(2,3)*v(69)+a(2,2)*v(70)
v(71)=a(1,1)*v(72)-a(1,2)*v(74)+a(1,3)*v(76)-a(1,4)*v(78)+a(1,5)*v(80)
v(82)=a(1,5)**2
v(191)=a(2,2)*v(82)
v(181)=-v(107)-a(2,3)*v(82)+v(96)
v(179)=v(190)-a(2,4)*v(82)+v(95)
v(83)=a(3,4)**2
v(84)=a(3,4)*v(180)
v(85)=a(1,4)**2
v(186)=v(116)+v(117)-v(127)+a(2,5)*v(85)
v(176)=a(3,5)*v(85)
v(187)=-v(133)-v(134)+v(176)
v(86)=a(3,5)**2
v(87)=a(3,5)*v(174)
v(88)=2d0*v(173)
v(175)=-(a(4,4)*v(82))-a(5,5)*v(85)+a(1,4)*v(88)-a(1,1)*v(90)+v(93)
v(89)=a(1,3)**2
v(197)=a(2,2)*v(89)
v(183)=v(113)+a(2,4)*v(89)
v(182)=v(109)-v(110)+v(111)-a(2,5)*v(89)
v(115)=a(2,4)**2
v(118)=2d0*a(1,5)*a(2,5)
v(192)=a(1,2)*v(118)
v(119)=a(2,5)**2
v(193)=-(a(1,1)*v(119))
v(188)=v(192)+v(193)
v(120)=a(1,2)**2
v(198)=a(3,3)*v(120)
v(195)=-(a(1,1)*a(2,2))+v(120)
v(194)=a(3,5)*v(120)
v(189)=a(5,5)*v(120)
v(137)=a(2,3)**2
v(199)=a(1,1)*v(137)
v(196)=-v(143)+v(197)+v(198)+v(199)
v(145)=a(2,3)*v(174)
ai(1,1)=v(72)/v(71)
ai(1,2)=-(v(74)/v(71))
ai(1,3)=v(76)/v(71)
ai(1,4)=-(v(78)/v(71))
ai(1,5)=v(80)/v(71)
ai(2,2)=(a(3,3)*v(175)+v(82)*v(83)+(-(a(1,1)*a(4,4))+v(85))*v(86)-v(55)*v(87)-&
&a(1,3)*a(3,4)*v(88)+a(5,5)*(-(a(1,1)*v(83&
&))+a(1,3)*v(84)-a(4,4)*v(89))+v(89)*v(90)+a(3,5)*(-(a(1,5)*v(84))+2d0*v(92)))/v(71)
ai(2,3)=(a(1,4)*v(102)+a(1,5)*v(112)-a(2,3)*v(175)+a(4,5)*v(177)+a(2,4)*v(178)+&
&a(3,4)*v(179)-a(1,2)*a(1,3)*v(90)+a(2,5&
&)*(-v(176)-v(92))+a(4,4)*(v(101)+v(107)-v(96)))/v(71)
ai(2,4)=(a(1,3)*v(102)+a(2,3)*v(178)-a(3,3)*v(179)+a(3,4)*(-v(101)+v(181))+&
&a(4,5)*v(182)+a(5,5)*v(183)+(-(a(1,2)*a(1,4)&
&)+a(1,1)*a(2,4))*v(86)+a(3,5)*(v(177)-3d0*v(98)))/v(71)
ai(2,5)=(a(3,5)*v(128)-a(4,4)*v(182)-a(4,5)*v(183)+a(3,3)*v(186)-a(2,3)*v(187)+(v(158)-v(163))*v(83)+a(1,3)*(v(112)-a(2&
&,5)*v(84))+a(3,4)*(v(185)+v(98)))/v(71)
ai(3,3)=(2d0*a(2,5)*(v(116)+v(117))+a(2,2)*v(175)+a(4,4)*(v(188)-v(189))+v(115)*(-v(171)+v(82))+v(119)*v(85)+a(2,4)*&
&(2d0*v(105)-a(1,4)*v(118)-a(1,2)*v(88))+v(120)*v(90))/v(71)
ai(3,4)=(-(a(1,3)*a(1,4)*v(119))+a(3,5)*v(129)-a(5,5)*v(135)-a(2,2)*v(178)+a(2,4)*v(181)+a(2,5)*v(185)+a(2,3)*v(190)+a&
&(3,4)*(v(189)+v(191)-v(192)-v(193))+a(4,5)*(-v(130)+v(131)-v(132)-v(194)))/v(71)
ai(3,5)=(a(2,4)*((-2d0)*v(123)+v(125))+a(2,5)*v(128)+a(4,5)*v(135)+a(3,4)*(-(a(4,5)*v(120))+v(129)-v(140)+v(141)-v(142)&
&)+v(115)*(-v(154)+v(164))-a(2,3)*v(186)+a(2,2)*v(187)+a(4,4)*(v(130)-v(131)+v(132)+v(138)+v(194)))/v(71)
ai(4,4)=(a(2,3)*(2d0*v(101)+2d0*v(107)-a(1,3)*v(118))+a(3,5)*((-2d0)*v(131)+2d0*v(138))+a(3,3)*(v(188)-v(191))-a(5,5)*v&
&(196)+v(137)*v(82)+v(195)*v(86)+a(1,5)*a(2,2)*v(87)+v(119)*v(89))/v(71)
ai(4,5)=(-(a(2,4)*v(110))-a(1,4)*a(1,5)*v(137)+a(3,4)*(-v(130)-v(138))+a(3,3)*(v(140)-v(141)+v(142))+a(3,5)*(-(a(3,4)*v&
&(120))+v(135)+v(146)-v(147))-a(2,5)*v(183)+a(2,3)*((-2d0)*v(125)+v(177)+v(184))+a(4,5)*v(196))/v(71)
ai(5,5)=(a(2,4)*(2d0*v(113)-a(1,4)*v(145))+a(3,4)*((-2d0)*v(146)+2d0*v(147))+a(4,4)*(v(143)+a(1,2)*v(145)-v(197)-v(198)&
&-v(199))+v(195)*v(83)-a(1,2)*a(2,3)*v(84)+v(137)*v(85)+&
&a(3,3)*(-(a(1,1)*v(115))+v(155)*v(180)-a(2,2)*v(85))+v(115)*v(89&
&))/v(71)
DO i01=2,5
DO i02=1,i01-1
ai(i01,i02)=ai(i02,i01)
ENDDO
ENDDO
det=v(71)
RETURN
END IF
IF(n.EQ.6)THEN
v(682)=2d0*a(3,6)
v(680)=a(1,2)*a(2,5)
v(661)=a(1,1)*a(3,5)
v(629)=2d0*a(3,4)
v(628)=a(1,6)*a(2,4)
v(624)=a(2,2)*a(3,4)
v(619)=a(1,4)*a(1,5)
v(618)=a(1,3)*a(1,6)
v(613)=a(2,3)*a(2,5)
v(612)=a(2,5)*a(4,6)
v(611)=a(2,2)*a(5,5)
v(610)=a(2,3)*a(2,6)
v(609)=a(1,5)*a(2,2)
v(608)=a(1,2)*a(1,6)
v(607)=a(3,5)*a(5,6)
v(603)=2d0*a(4,6)
v(600)=a(3,6)*a(4,5)
v(594)=a(3,5)*a(4,6)
v(593)=a(1,3)*a(1,4)
v(592)=a(1,4)*a(1,6)
v(586)=a(1,1)*a(2,3)
v(585)=a(1,2)*a(3,4)
v(584)=a(1,5)*a(2,3)
v(583)=a(1,5)*a(3,3)
v(582)=a(1,1)*a(5,6)
v(581)=a(1,1)*a(4,6)
v(580)=a(2,6)*a(5,5)
v(579)=a(2,6)*a(4,5)
v(578)=a(1,6)*a(3,4)
v(577)=a(1,1)*a(2,4)
v(576)=a(1,2)*a(1,4)
v(575)=a(1,3)*a(2,4)
v(574)=a(1,3)*a(4,5)
v(573)=-(a(1,4)*a(3,5))
v(572)=a(1,3)*a(1,5)
v(571)=a(1,5)*a(4,6)
v(570)=a(3,5)*a(4,4)
v(569)=a(1,5)*a(3,4)
v(568)=a(3,6)*a(5,6)
v(567)=a(1,6)*a(5,6)
v(565)=a(2,5)*a(5,6)
v(564)=-(a(2,6)*a(4,4))
v(563)=a(2,4)*a(2,5)
v(561)=a(5,5)*a(6,6)
v(559)=a(2,2)*a(3,3)
v(558)=a(1,2)*a(1,3)
v(557)=2d0*a(1,5)
v(555)=a(4,5)*a(5,6)
v(554)=a(1,6)*a(5,5)
v(553)=a(2,5)*a(3,6)
v(552)=-(a(2,6)*a(3,5))
v(551)=-(a(1,6)*a(3,5))
v(550)=a(1,5)*a(2,6)
v(549)=a(1,1)*a(6,6)
v(548)=a(1,3)*a(6,6)
v(547)=a(1,4)*a(6,6)
v(546)=2d0*a(1,2)
v(545)=a(4,4)*a(5,5)
v(544)=a(1,4)*a(4,6)
v(543)=a(1,1)*a(3,3)
v(542)=a(1,1)*a(3,6)
v(541)=a(1,2)*a(2,4)
v(540)=2d0*a(4,5)
v(539)=2d0*a(2,5)
v(538)=a(1,3)*a(4,6)
v(537)=a(1,6)*a(4,5)
v(536)=a(1,2)*a(4,5)
v(535)=a(1,6)*a(4,4)
v(534)=a(2,2)*a(4,4)
v(533)=a(1,3)/2d0
v(532)=a(2,4)*a(3,6)
v(531)=a(1,5)*a(3,6)
v(530)=-(a(1,1)*a(3,4))
v(529)=a(1,1)*a(2,2)
v(528)=2d0*a(3,5)
v(527)=2d0*a(1,3)
v(526)=a(1,4)*a(3,4)
v(525)=2d0*a(2,4)
v(524)=a(1,2)*a(3,3)
v(523)=2d0*a(1,4)
v(522)=a(1,1)*a(2,5)
v(521)=a(1,2)*a(1,5)
v(520)=a(1,6)*a(2,5)
v(519)=2d0*a(2,3)
v(466)=a(2,2)*v(523)
v(498)=a(1,2)*v(519)
v(432)=a(1,3)*v(519)
v(378)=a(2,3)*v(521)
v(463)=-(a(2,3)*v(575))
v(431)=a(1,2)*v(525)
v(373)=-(a(1,4)*v(431))
v(405)=a(2,3)*v(520)
v(385)=a(2,4)*v(522)
v(362)=a(1,5)*v(520)
v(310)=a(1,5)*v(539)
v(665)=-(a(1,2)*v(310))
v(222)=v(310)*v(533)
v(469)=a(2,6)*v(521)
v(438)=a(2,6)*v(527)
v(396)=a(2,3)*v(550)
v(341)=-(a(2,6)*v(522))
v(459)=(a(3,3)*v(431))/2d0
v(458)=a(3,3)*v(563)
v(457)=-(a(3,3)*v(523))
v(424)=a(2,6)*v(524)
v(422)=a(3,3)*v(529)
v(415)=a(1,6)*v(524)
v(287)=a(3,3)*v(521)
v(501)=a(1,3)*v(526)
v(704)=2d0*a(2,2)*v(501)
v(499)=a(3,4)*v(525)
v(465)=a(2,6)*v(526)
v(462)=-(a(2,3)*v(499))
v(439)=a(3,4)*v(527)
v(342)=a(2,6)*v(530)
v(268)=a(1,4)*v(439)
v(504)=a(2,2)*v(528)
v(398)=(a(1,6)*v(504))/2d0
v(387)=-(a(1,4)*v(504))/2d0
v(340)=a(3,5)*v(521)
v(334)=a(2,4)*v(551)
v(290)=a(3,5)*v(558)
v(595)=-v(287)+v(290)
v(274)=a(3,5)*v(342)
v(229)=a(3,5)*v(522)
v(146)=a(1,4)*v(528)
v(483)=a(3,6)*v(529)
v(475)=a(1,3)*v(531)
v(460)=a(1,4)*v(532)
v(437)=a(3,6)*v(546)
v(436)=a(3,6)*v(530)
v(420)=-(a(2,4)*v(437))/2d0
v(399)=(a(2,5)*v(437))/2d0
v(386)=-(a(2,2)*v(531))
v(683)=v(386)+v(396)+v(399)
v(345)=a(1,5)*v(532)
v(295)=v(437)*v(533)
v(276)=-(a(1,4)*v(553))
v(492)=-(a(3,3)*v(534))
v(694)=v(462)+v(492)
v(474)=a(3,6)*v(534)
v(468)=a(1,2)*v(564)
v(456)=a(3,3)*v(535)
v(383)=-(a(4,4)*v(529))
v(322)=-(a(1,2)*v(535))
v(288)=a(4,4)*v(543)
v(597)=v(268)+v(288)
v(154)=a(4,4)*v(528)
v(464)=-(a(2,3)*v(536))
v(423)=-(a(2,2)*v(537))
v(347)=a(2,5)*v(536)
v(316)=a(2,4)*v(537)
v(314)=a(4,5)*v(523)
v(309)=a(4,5)*v(525)
v(250)=a(4,5)*v(542)
v(237)=-(a(4,5)*v(521))
v(225)=a(4,5)*v(552)
v(231)=a(1,1)*v(225)
v(142)=a(3,4)*v(540)
v(473)=a(4,6)*v(530)
v(467)=a(2,5)*v(538)
v(444)=a(3,6)*v(538)
v(442)=-(a(2,2)*v(538))
v(380)=a(4,6)*v(541)
v(319)=a(4,6)*v(539)
v(203)=a(1,5)*v(544)
v(157)=a(4,6)*v(540)
v(151)=a(4,6)*v(528)
v(360)=a(5,5)*v(529)
v(344)=a(5,5)*v(541)
v(262)=a(5,5)*v(542)
v(251)=a(1,3)*v(554)
v(244)=-(a(5,5)*v(543))
v(195)=a(1,1)*v(545)
v(184)=a(5,5)*v(544)
v(174)=a(1,6)*v(545)
v(404)=a(5,6)*v(539)
v(402)=a(5,6)*v(546)
v(311)=a(5,6)*v(557)
v(255)=v(311)*v(533)
v(660)=v(251)-v(255)
v(219)=(a(3,4)*v(311))/2d0
v(256)=a(1,2)*v(219)
v(179)=a(1,4)*v(555)
v(173)=(a(4,4)*v(311))/2d0
v(643)=v(173)-v(174)+v(184)
v(168)=a(5,6)**2
v(452)=-(a(6,6)*v(529))
v(450)=-(a(6,6)*v(543))
v(449)=-(a(6,6)*v(559))
v(441)=a(3,4)*v(548)
v(433)=-(a(2,4)*v(547))
v(430)=a(3,3)*v(547)
v(401)=a(1,5)*v(548)
v(394)=a(6,6)*v(521)
v(331)=-(a(6,6)*v(545))
v(330)=-(a(5,5)*v(549))
v(324)=a(4,4)*v(549)
v(73)=-v(520)+v(550)
v(74)=v(531)+v(551)
v(75)=v(552)+v(553)
v(80)=a(3,4)*v(73)-a(2,4)*v(74)+a(1,4)*v(75)
v(76)=-v(537)+v(571)
v(77)=-v(579)+v(612)
v(85)=a(4,4)*v(73)-a(2,4)*v(76)+a(1,4)*v(77)
v(78)=v(594)-v(600)
v(93)=a(4,4)*v(75)-a(3,4)*v(77)+a(2,4)*v(78)
v(89)=a(4,4)*v(74)-a(3,4)*v(76)+a(1,4)*v(78)
v(79)=-(a(3,4)*v(80))+a(3,3)*v(85)-a(2,3)*v(89)+a(1,3)*v(93)
v(81)=v(311)/2d0-v(554)
v(82)=v(565)-v(580)
v(86)=a(4,5)*v(73)-a(2,4)*v(81)+a(1,4)*v(82)
v(83)=-(a(3,6)*a(5,5))+v(607)
v(94)=a(4,5)*v(75)-a(3,4)*v(82)+a(2,4)*v(83)
v(90)=a(4,5)*v(74)-a(3,4)*v(81)+a(1,4)*v(83)
v(84)=-(a(3,5)*v(80))+a(3,3)*v(86)-a(2,3)*v(90)+a(1,3)*v(94)
v(87)=-(a(4,6)*a(5,5))+v(555)
v(96)=a(4,5)*v(78)-a(4,4)*v(83)+a(3,4)*v(87)
v(95)=a(4,5)*v(77)-a(4,4)*v(82)+a(2,4)*v(87)
v(91)=a(4,5)*v(76)-a(4,4)*v(81)+a(1,4)*v(87)
v(88)=-(a(3,5)*v(85))+a(3,4)*v(86)-a(2,3)*v(91)+a(1,3)*v(95)
v(92)=-(a(3,5)*v(89))+a(3,4)*v(90)-a(3,3)*v(91)+a(1,3)*v(96)
v(97)=-(a(3,5)*v(93))+a(3,4)*v(94)-a(3,3)*v(95)+a(2,3)*v(96)
v(134)=a(2,5)*v(79)-a(2,4)*v(84)+a(2,3)*v(88)-a(2,2)*v(92)+a(1,2)*v(97)
v(98)=a(1,5)*a(6,6)-v(567)
v(99)=-(a(2,6)*a(5,6))+a(2,5)*a(6,6)
v(102)=a(4,6)*v(73)-a(2,4)*v(98)+a(1,4)*v(99)
v(100)=a(3,5)*a(6,6)-v(568)
v(108)=a(2,4)*v(100)+a(4,6)*v(75)-a(3,4)*v(99)
v(105)=a(1,4)*v(100)+a(4,6)*v(74)-a(3,4)*v(98)
v(101)=a(3,3)*v(102)-a(2,3)*v(105)+a(1,3)*v(108)-a(3,6)*v(80)
v(103)=-(a(4,6)*a(5,6))+a(4,5)*a(6,6)
v(110)=-(a(4,4)*v(100))+a(3,4)*v(103)+a(4,6)*v(78)
v(109)=a(2,4)*v(103)+a(4,6)*v(77)-a(4,4)*v(99)
v(106)=a(1,4)*v(103)+a(4,6)*v(76)-a(4,4)*v(98)
v(104)=a(3,4)*v(102)-a(2,3)*v(106)+a(1,3)*v(109)-a(3,6)*v(85)
v(107)=a(3,4)*v(105)-a(3,3)*v(106)+a(1,3)*v(110)-a(3,6)*v(89)
v(111)=a(3,4)*v(108)-a(3,3)*v(109)+a(2,3)*v(110)-a(3,6)*v(93)
v(132)=-(a(2,4)*v(101))+a(2,3)*v(104)-a(2,2)*v(107)+a(1,2)*v(111)+a(2,6)*v(79)
v(112)=-v(168)+v(561)
v(120)=-(a(4,5)*v(103))+a(4,4)*v(112)+a(4,6)*v(87)
v(117)=-(a(4,5)*v(100))+a(3,4)*v(112)+a(4,6)*v(83)
v(116)=a(2,4)*v(112)+a(4,6)*v(82)-a(4,5)*v(99)
v(114)=a(1,4)*v(112)+a(4,6)*v(81)-a(4,5)*v(98)
v(113)=a(3,5)*v(102)-a(2,3)*v(114)+a(1,3)*v(116)-a(3,6)*v(86)
v(115)=a(3,5)*v(105)-a(3,3)*v(114)+a(1,3)*v(117)-a(3,6)*v(90)
v(118)=a(3,5)*v(108)-a(3,3)*v(116)+a(2,3)*v(117)-a(3,6)*v(94)
v(130)=-(a(2,5)*v(101))+a(2,3)*v(113)-a(2,2)*v(115)+a(1,2)*v(118)+a(2,6)*v(84)
v(119)=a(3,5)*v(106)-a(3,4)*v(114)+a(1,3)*v(120)-a(3,6)*v(91)
v(121)=a(3,5)*v(109)-a(3,4)*v(116)+a(2,3)*v(120)-a(3,6)*v(95)
v(128)=-(a(2,5)*v(104))+a(2,4)*v(113)-a(2,2)*v(119)+a(1,2)*v(121)+a(2,6)*v(88)
v(122)=a(3,5)*v(110)-a(3,4)*v(117)+a(3,3)*v(120)-a(3,6)*v(96)
v(126)=-(a(2,5)*v(107))+a(2,4)*v(115)-a(2,3)*v(119)+a(1,2)*v(122)+a(2,6)*v(92)
v(124)=-(a(2,5)*v(111))+a(2,4)*v(118)-a(2,3)*v(121)+a(2,2)*v(122)+a(2,6)*v(97)
v(123)=a(1,1)*v(124)-a(1,2)*v(126)+a(1,3)*v(128)-a(1,4)*v(130)+a(1,5)*v(132)-a(1,6)*v(134)
v(136)=a(1,6)**2
v(411)=-(v(136)*v(611))
v(137)=a(3,5)**2
v(658)=a(1,1)*v(137)
v(635)=v(244)+v(658)
v(496)=-(v(137)*v(576))
v(138)=a(1,5)*v(154)
v(139)=a(1,5)**2
v(678)=-(a(2,3)*v(139))
v(675)=a(2,2)*v(139)
v(662)=v(222)+v(678)
v(659)=a(3,3)*v(139)
v(664)=v(635)+v(659)
v(637)=a(3,6)*v(139)
v(638)=v(255)+v(262)-v(637)
v(633)=a(4,4)*v(139)
v(556)=a(3,4)*v(139)
v(500)=a(2,4)*v(556)
v(327)=-(a(6,6)*v(633))
v(258)=-(a(2,6)*v(556))
v(140)=a(3,6)**2
v(141)=a(3,5)*v(142)
v(143)=a(4,5)*v(557)
v(144)=a(3,6)*v(578)
v(145)=a(4,5)*v(146)
v(630)=-v(138)+v(145)
v(147)=-(a(1,5)*v(523))
v(641)=a(4,5)*v(147)
v(148)=a(4,5)**2
v(644)=a(1,1)*v(148)
v(645)=v(195)-v(633)-v(644)
v(510)=v(148)*v(558)
v(328)=-(v(148)*v(549))
v(149)=a(3,6)*v(527)
v(150)=a(3,4)*v(151)
v(152)=-(a(1,6)*v(523))
v(315)=v(152)*v(555)
v(153)=a(3,4)*v(603)
v(155)=a(3,6)*v(528)
v(156)=a(3,3)*v(157)
v(631)=v(150)-v(156)
v(158)=a(3,5)*v(527)
v(636)=-(a(1,5)*v(158))
v(679)=v(635)+v(636)
v(159)=a(4,6)**2
v(160)=a(3,4)**2
v(589)=-(a(1,1)*v(160))
v(503)=v(160)*v(521)
v(470)=a(2,6)*v(589)
v(161)=a(5,5)*v(523)
v(162)=a(1,4)**2
v(646)=a(5,5)*v(162)
v(634)=-v(195)+v(633)+v(641)+v(644)+v(646)
v(599)=a(3,6)*v(162)
v(590)=-(a(3,3)*v(162))
v(560)=a(2,3)*v(162)
v(512)=v(162)*v(559)
v(477)=a(2,2)*v(599)
v(476)=a(2,5)*v(560)
v(472)=a(2,6)*v(560)
v(461)=a(2,6)*v(590)
v(329)=-(v(162)*v(561))
v(642)=v(136)*v(148)+v(139)*v(159)+v(162)*v(168)+2d0*a(1,6)*v(173)+v(315)+v(327)+v(328)+v(329)
v(163)=a(3,3)*v(545)
v(164)=a(1,3)**2
v(639)=-(a(4,4)*v(164))
v(687)=v(589)+v(590)+v(597)+v(639)
v(640)=-v(288)-v(589)-v(639)
v(632)=v(139)*v(160)+v(137)*v(162)+v(148)*v(164)
v(621)=-(a(2,2)*v(164))
v(566)=a(2,6)*v(164)
v(562)=a(4,5)*v(164)
v(513)=v(164)*v(534)
v(494)=a(2,4)*v(562)
v(488)=-(a(2,2)*v(562))
v(486)=v(164)*v(563)
v(480)=v(164)*v(564)
v(453)=a(6,6)*v(621)
v(434)=a(2,4)*v(566)
v(409)=v(164)*v(565)
v(281)=-(a(4,5)*v(566))
v(165)=a(1,6)*v(311)
v(166)=a(1,3)*v(567)
v(167)=a(1,1)*v(568)
v(170)=a(2,4)*v(569)
v(171)=-(a(1,4)*v(569))
v(172)=a(2,4)*v(573)
v(175)=a(1,5)*v(535)
v(176)=a(4,4)*v(572)
v(177)=a(1,2)*v(570)
v(178)=-(a(1,1)*v(570))
v(587)=a(3,5)*v(162)+v(176)+v(178)
v(180)=a(1,4)*v(537)
v(181)=-(a(1,4)*v(574))
v(182)=-(a(3,4)*v(536))
v(652)=v(172)+v(177)+v(182)
v(183)=-(a(4,5)*v(530))
v(653)=v(171)+v(181)+v(183)+v(587)
v(185)=a(2,3)*v(571)
v(186)=-(a(2,4)*v(572))
v(187)=a(1,2)*v(573)
v(188)=a(3,5)*v(577)
v(654)=v(187)+v(188)
v(588)=v(186)+v(188)
v(591)=v(187)+v(588)
v(293)=a(4,6)*v(591)+a(1,6)*v(652)+a(2,6)*v(653)
v(189)=a(4,6)*v(574)
v(190)=a(4,5)*v(581)
v(191)=a(1,4)*v(575)
v(192)=a(3,4)*v(576)
v(193)=-(a(3,4)*v(577))
v(649)=v(191)+v(193)
v(194)=-(a(4,4)*v(558))
v(615)=v(192)+v(194)
v(650)=v(615)+v(649)
v(651)=-v(560)+v(650)
v(479)=v(194)*v(519)
v(196)=a(4,4)*v(582)
v(197)=a(2,5)*v(578)
v(220)=a(1,5)*v(197)
v(198)=a(2,5)*v(573)
v(199)=-(a(1,4)*v(552))
v(272)=a(1,3)*v(199)
v(227)=a(1,5)*v(199)
v(200)=-(a(1,5)*v(537))
v(201)=a(1,5)*v(579)
v(259)=a(1,3)*v(201)
v(202)=a(3,5)*v(537)
v(260)=a(1,2)*v(202)
v(205)=a(1,4)*v(554)
v(206)=a(1,3)*v(580)
v(226)=-(a(1,4)*v(206))
v(207)=a(3,4)*v(554)
v(261)=-(a(1,2)*v(207))
v(208)=a(3,4)*v(580)
v(230)=a(1,1)*v(208)
v(210)=-(a(5,5)*v(581))
v(211)=-(a(5,6)*v(619))
v(212)=a(1,3)*v(565)
v(263)=a(1,4)*v(212)
v(213)=a(3,4)*v(565)
v(264)=-(a(1,1)*v(213))
v(648)=v(220)+v(226)+v(227)+v(230)+v(231)+v(256)+v(258)+v(259)+v(260)+v(261)+v(263)+v(264)
v(215)=a(4,5)*v(582)
v(666)=v(200)+v(205)+v(215)
v(647)=a(4,6)*v(139)+v(210)+v(211)+v(666)
v(217)=a(2,4)*v(583)
v(218)=-(a(1,4)*v(583))
v(267)=a(2,6)*v(218)
v(221)=-(a(1,6)*v(584))
v(223)=a(3,4)*v(550)
v(672)=v(199)-v(223)
v(270)=a(1,3)*v(223)
v(224)=a(3,5)*v(575)
v(656)=v(217)-v(224)
v(228)=a(3,5)*v(585)
v(273)=a(1,6)*v(228)
v(232)=a(1,4)*v(584)
v(677)=-v(232)+v(588)
v(275)=a(3,6)*v(232)
v(233)=-(a(1,3)*v(532))
v(695)=a(1,4)*v(233)+v(461)+v(470)+v(480)
v(234)=a(3,6)*v(576)
v(688)=a(2,3)*v(234)
v(236)=a(2,3)*v(574)
v(663)=-v(228)-v(236)
v(280)=a(1,6)*v(236)
v(282)=-(a(4,5)*v(415))
v(239)=a(4,5)*v(543)
v(283)=a(2,6)*v(239)
v(240)=a(1,3)*v(536)
v(284)=a(3,6)*v(240)
v(241)=-(a(4,5)*v(586))
v(285)=a(3,6)*v(241)
v(655)=v(267)+v(270)+v(272)+v(273)+v(274)+v(275)+v(280)+v(281)+v(282)+v(283)+v(284)+v(285)
v(242)=-(a(2,3)*v(593))
v(243)=a(1,4)*v(524)
v(245)=-(a(5,6)*v(543))
v(246)=-(a(1,3)*v(585))
v(625)=v(243)+v(246)
v(247)=a(3,4)*v(586)
v(596)=v(242)+v(247)+v(625)
v(657)=a(2,4)*v(164)+v(596)
v(303)=a(1,4)*(-v(224)-v(228))+a(2,4)*(-v(218)-v(239))+v(494)+v(503)+a(2,3)*v(587)+a(4,4)*v(595)+a(4,5)*v(596)+a(3,4)*v&
&(677)+a(2,5)*v(687)
v(248)=-(a(1,3)*v(520))
v(367)=a(5,5)*v(234)+a(3,6)*v(237)+a(4,5)*v(248)+a(2,5)*v(250)+a(1,5)*(v(276)+v(334))+a(5,6)*v(591)+a(2,4)*(v(251)-v&
&(262)+v(637))+v(648)
v(249)=a(1,3)*v(553)
v(252)=a(3,3)*v(554)
v(266)=a(3,3)*v(592)
v(269)=-(a(1,3)*v(578))
v(271)=-(a(2,3)*v(592))
v(277)=a(2,5)*v(593)
v(278)=a(3,4)*v(521)
v(670)=v(277)+v(278)
v(279)=a(3,4)*v(522)
v(601)=-v(277)-v(278)+v(279)
v(289)=-(a(4,6)*v(543))
v(598)=v(266)+v(269)+v(289)
v(292)=a(2,3)*v(594)
v(300)=-(a(1,3)*v(185))+a(3,5)*v(271)+a(1,1)*v(292)-a(4,6)*v(595)+a(2,5)*(a(4,6)*v(164)+v(598))+a(3,6)*v(601)+v(655)
v(294)=a(1,3)*v(535)
v(692)=-v(294)+v(473)
v(296)=-(a(4,4)*v(531))
v(297)=a(4,4)*v(542)
v(602)=v(294)-v(297)+v(599)
v(302)=-(a(3,6)*v(193))+a(3,4)*(-v(234)+v(271))+a(4,4)*v(295)+a(3,3)*v(322)+a(2,6)*v(597)+a(2,4)*v(598)+a(2,3)*v(602)+v&
&(160)*v(608)+a(4,6)*v(657)+v(695)
v(298)=a(1,4)*v(600)
v(301)=-(a(2,4)*v(250))+v(293)+a(1,2)*(v(296)+v(298))+a(1,3)*v(316)+a(1,4)*(v(197)+v(345))-a(4,6)*v(601)-a(2,5)*v(602)
v(305)=a(2,5)**2
v(676)=a(1,1)*v(305)
v(502)=v(305)*v(593)
v(306)=a(4,4)*v(310)
v(307)=a(2,6)**2
v(308)=a(2,5)*v(309)
v(705)=a(1,1)*v(308)
v(312)=a(2,6)*v(525)
v(313)=a(2,5)*v(314)
v(317)=-(a(2,6)*v(546))
v(318)=a(2,4)*v(319)
v(320)=-(a(1,6)*v(603))
v(321)=a(2,2)*v(603)
v(323)=a(2,4)**2
v(701)=v(164)*v(323)
v(505)=-(v(323)*v(572))
v(478)=v(323)*v(542)
v(471)=v(323)*v(618)
v(325)=a(1,2)**2
v(702)=v(160)*v(325)
v(667)=a(5,5)*v(325)
v(622)=-(a(3,3)*v(325))
v(606)=a(3,4)*v(325)
v(605)=a(4,4)*v(325)
v(669)=a(1,1)*v(323)+v(373)+v(383)+v(605)
v(668)=a(2,2)*v(162)+v(669)
v(604)=a(4,5)*v(325)
v(514)=a(3,3)*v(605)
v(509)=a(3,5)*v(604)
v(490)=-(a(3,3)*v(604))
v(487)=a(3,5)*v(606)
v(484)=a(3,6)*v(604)
v(481)=a(3,6)*v(605)
v(454)=a(6,6)*v(622)
v(446)=a(3,6)*v(606)
v(408)=-(v(325)*v(607))
v(326)=a(2,6)*v(539)
v(333)=a(2,4)*v(584)
v(674)=-v(333)+v(387)
v(337)=-(a(1,4)*v(610))
v(623)=v(337)+v(420)
v(338)=-(a(1,6)*v(609))
v(339)=a(2,5)*v(608)
v(343)=a(1,4)*v(609)
v(352)=a(2,2)*v(574)
v(353)=-(a(2,3)*v(537))
v(354)=a(1,1)*v(610)
v(696)=a(4,4)*v(354)
v(355)=-(a(4,5)*v(529))
v(614)=v(343)+v(355)+v(385)
v(369)=-(a(2,5)*v(234))-a(2,6)*v(240)+a(2,4)*v(248)+a(1,5)*v(337)+a(1,6)*v(352)+a(1,2)*(-v(345)+v(353))+a(4,5)*v(354)+v&
&(484)+a(3,6)*v(614)
v(356)=-(a(2,2)*v(593))
v(357)=a(2,3)*v(576)
v(358)=a(5,6)*v(541)
v(359)=-(a(2,3)*v(577))
v(691)=v(357)+v(359)
v(626)=-v(356)-v(357)-v(359)
v(616)=v(356)-v(606)+v(691)
v(361)=a(5,6)*v(529)
v(671)=v(338)+v(339)+v(361)
v(363)=a(2,3)*v(554)
v(364)=a(3,6)*v(611)
v(366)=a(2,3)*v(565)
v(673)=v(364)+v(366)
v(370)=a(1,4)*v(613)
v(372)=-(a(2,2)*v(592))
v(681)=a(3,3)*v(372)
v(374)=a(1,6)*v(541)
v(377)=a(2,2)*v(571)
v(381)=a(1,2)*v(612)
v(698)=-v(377)+v(381)
v(627)=v(377)-v(381)+v(423)
v(390)=a(2,6)*(-v(177)-v(182))+a(2,2)*v(298)+a(3,5)*v(380)+a(4,5)*v(623)+a(3,4)*v(627)+a(2,4)*(v(197)+v(276)-v(353)+v&
&(672))+a(4,6)*(v(370)+v(674))+a(4,4)*(v(398)-v(405)+v(683))+v(323)*v(74)
v(382)=a(1,1)*v(613)
v(392)=a(2,2)*v(176)+a(1,4)*v(333)+a(4,4)*(-v(378)+v(382))-v(476)+v(505)-a(3,4)*v(614)+a(2,5)*v(615)+a(4,5)*v(616)+a(3&
&,5)*v(668)+a(2,4)*(v(240)+v(670))
v(384)=a(4,6)*v(529)
v(617)=v(372)+v(374)+v(384)
v(391)=a(2,4)*((-2d0)*v(234)-v(271))+a(2,3)*v(322)+a(1,3)*v(380)-v(471)-v(472)+v(477)+v(478)+v(481)+a(2,2)*(-v(599)+v&
&(602))+a(4,6)*v(616)+a(3,4)*v(617)+a(2,6)*v(650)+v(696)
v(389)=a(1,2)*(v(185)+v(199))+v(369)+a(1,6)*v(370)-a(4,6)*v(382)-a(2,6)*v(588)+a(3,5)*(-(a(4,6)*v(325))+v(617))+a(1,3&
&)*v(698)
v(395)=a(3,3)*v(539)
v(397)=-(a(3,5)*v(519))
v(400)=a(1,6)*v(528)
v(403)=-(a(1,3)*v(552))
v(406)=2d0*v(618)
v(686)=-(a(3,6)*v(406))
v(407)=a(2,6)*v(519)
v(410)=a(2,3)**2
v(703)=v(162)*v(410)
v(693)=-v(479)+v(701)+v(702)+v(703)
v(684)=-(a(1,1)*v(410))
v(620)=a(4,5)*v(410)
v(495)=v(410)*v(619)
v(489)=-(a(1,1)*v(620))
v(700)=v(486)+v(487)+v(488)+v(489)+v(490)
v(485)=v(410)*v(571)
v(482)=a(1,6)*v(620)
v(435)=v(410)*v(592)
v(412)=a(2,5)*v(519)
v(413)=a(1,2)*v(432)
v(685)=-v(413)-v(422)-v(621)-v(622)-v(684)
v(416)=-(a(2,4)*a(2,6)*a(3,3))
v(699)=a(1,5)*v(416)
v(689)=a(1,1)*v(416)
v(697)=a(2,4)*v(415)+v(689)
v(417)=-(a(2,3)*v(578))
v(690)=a(1,2)*v(417)
v(418)=-(a(2,3)*v(628))
v(427)=a(2,6)*v(246)+a(3,4)*v(354)+a(1,4)*v(424)+v(434)+v(435)+a(2,2)*(-v(269)-v(289)+v(436))+v(446)+a(1,3)*(v(418)+v&
&(623))+a(3,6)*v(626)+v(681)+a(4,6)*(v(413)+v(621)+v(622)+v(684))+v(690)+v(697)
v(419)=a(3,5)*v(624)
v(421)=a(1,5)*v(624)
v(706)=v(333)-v(421)
v(428)=-(a(2,3)*v(278))+a(3,4)*v(382)+a(3,3)*(-v(343)-v(385))-a(1,1)*v(419)+a(1,3)*(-v(333)-v(370)+v(421))+a(4,5)*(v&
&(413)+v(422))+v(495)+a(2,5)*v(625)+a(3,5)*v(626)+a(1,2)*v(656)+v(700)
v(426)=a(1,2)*v(292)+a(3,4)*v(399)+a(2,4)*(-v(249)+v(403))+a(2,5)*v(417)+a(4,5)*v(424)+a(3,5)*(v(418)+v(442))+a(1,6)*(v&
&(419)+v(458))+a(2,3)*(v(223)+v(467))+v(482)-v(485)+a(3,3)*v(627)+a(2,6)*v(663)+v(699)+a(3,6)*(v(352)+v(464)+v(706))
v(440)=a(2,6)*v(628)
v(443)=a(3,6)*v(523)
v(445)=a(3,6)*v(519)
v(447)=a(3,6)*v(629)
v(448)=-(a(2,6)*v(603))
v(451)=-(a(6,6)*v(629))
v(491)=a(5,6)*v(519)
v(497)=a(2,5)*v(523)
v(506)=a(2,5)*v(528)
v(507)=a(2,5)*v(558)
v(508)=-(a(4,5)*v(519))
v(511)=-(a(5,5)*v(519))
ai(1,1)=v(124)/v(123)
ai(1,2)=-(v(126)/v(123))
ai(1,3)=v(128)/v(123)
ai(1,4)=-(v(130)/v(123))
ai(1,5)=v(132)/v(123)
ai(1,6)=-(v(134)/v(123))
ai(2,2)=(v(143)*v(144)+a(4,6)*v(137)*v(152)-v(144)*v(161)+v(136)*(a(4,4)*v(137)-v(141)+a(5,5)*v(160)-v(163))-v(160)*v&
&(165)+v(142)*v(166)-v(154)*v(166)-v(142)*v(167)+v(154)*v(167)+v(149)*(-v(173)+v(174)+v(179)-v(184))+v(155)*v(203)-v(151&
&)*v(250)-v(137)*v(324)+v(160)*v(330)+v(164)*v(331)-v(142)*v(401)+v(143)*v(430)+v(161)*v(441)+v(143)*v(444)+a(5,6)*(a(3&
&,4)*(-(a(3,6)*v(147))-a(3,5)*v(152))-v(155)*v(162)-v(157)*v(164)+v(151)*v(593)-a(1,1)*v(631))+a(1,6)*(-(v(148)*v(149))&
&+a(4,5)*a(4,6)*v(158)+a(3,6)*v(630)+a(1,5)*v(631))+a(6,6)*(a(1,1)*(v(141)+v(163))-v(146)*v(569)-a(1,3)*v(630)+v(632))+v&
&(140)*v(634)+v(153)*(-v(251)+v(638))+v(168)*(-v(268)+v(640))+a(3,3)*(a(4,6)*(a(5,6)*v(147)-a(5,5)*v(152))+v(642))+v(159&
&)*(a(5,5)*v(164)+v(679)))/v(123)
ai(2,3)=(a(3,6)*(a(2,5)*(a(5,6)*v(162)+v(175)-v(180)+v(190)-v(196)-v(203))+a(4,6)*v(237)+v(201)*v(523)+a(1,2)*(a(1,6)*v&
&(148)-v(179)+v(643))+a(2,6)*(v(645)-v(646))+a(2,4)*v(647))-a(4,6)*(a(1,6)*v(198)+a(4,6)*(a(1,2)*(-(a(1,5)*a(3,5))+a(1,3&
&)*a(5,5))-v(222)+v(229))-a(5,6)*v(240)+a(2,3)*v(647)+v(648))+a(5,6)*(a(1,6)*v(170)+a(1,4)*v(185)+a(1,2)*v(189)+a(2,3)*(&
&-v(175)+v(180)-v(190)+v(196))+v(293)+a(5,6)*v(651))-a(6,6)*(v(500)+v(510)+a(2,3)*v(645)+a(5,5)*v(651)+a(1,5)*v(652)+a(2&
&,5)*v(653)+a(4,5)*(-(a(2,3)*v(147))+v(186)+v(654)))-a(1,6)*v(88))/v(123)
ai(2,4)=(-(a(3,6)*v(367))-a(5,6)*(a(3,4)*v(221)+a(1,5)*v(233)+a(2,4)*v(245)+a(3,5)*(-v(234)+a(1,1)*v(532))+v(655)+a(1,6&
&)*v(656)+a(5,6)*v(657))+a(4,6)*(a(2,5)*v(245)+a(3,5)*(v(221)+v(248))-a(1,5)*v(249)+a(1,2)*(a(1,6)*v(137)-v(252))+a(5,5&
&)*v(295)+a(3,6)*(v(229)-v(340))+a(3,3)*v(362)+v(409)-a(5,6)*v(595)+a(2,6)*(a(5,5)*(-v(164)+v(543))-v(636)-v(658)-v(659)&
&)+a(2,3)*(a(3,6)*(-(a(1,1)*a(5,5))+v(139))+v(660)+a(5,6)*v(661)))+a(6,6)*(-(a(1,3)*v(198))+a(3,3)*v(237)+a(3,5)*(2d0*v&
&(186)+v(232)+v(240)+v(241))+v(496)+a(2,5)*(v(218)+v(239)-v(562))+a(5,5)*v(657)+a(3,4)*(-v(229)+v(662))-a(1,5)*v(663)+a&
&(2,4)*v(664))+a(1,6)*v(84))/v(123)
ai(2,5)=(-(a(4,6)*v(300))+a(3,6)*v(301)+a(5,6)*v(302)-a(6,6)*v(303)-a(1,6)*v(79))/v(123)
ai(2,6)=(a(4,5)*v(300)-a(3,5)*v(301)-a(5,5)*v(302)+a(5,6)*v(303)+a(1,5)*v(79))/v(123)
ai(3,3)=(a(1,2)*a(2,6)*a(4,6)*v(143)-v(136)*v(308)+a(5,5)*v(136)*v(323)+a(1,6)*(a(2,6)*(-v(306)+v(313))+v(148)*v(317)+a&
&(1,5)*v(318)-v(311)*v(323))+v(305)*(a(4,4)*v(136)+a(1,1)*v(159)+a(1,4)*v(320)-v(324))+v(196)*v(326)+v(323)*v(330)+v(325&
&)*v(331)+v(157)*v(341)+v(320)*v(344)-v(320)*v(347)-v(159)*v(360)+v(311)*v(380)-v(309)*v(394)+v(316)*v(402)+v(322)*v(404&
&)+a(4,4)*v(411)+v(310)*v(433)+a(5,6)*(-(a(1,1)*v(318))+a(1,2)*(a(2,6)*v(314)+a(1,4)*v(319))-v(157)*v(325)-v(162)*v(326)&
&-v(152)*v(563))-a(2,6)*v(147)*v(612)+v(307)*v(634)+a(2,2)*((-2d0)*a(5,6)*v(203)+a(5,5)*v(324)-a(6,6)*v(641)+v(642))+v&
&(317)*v(643)-v(312)*v(647)+v(159)*v(665)+v(321)*v(666)+v(159)*v(667)+v(168)*v(669)+a(6,6)*(v(162)*v(305)+a(1,2)*(a(2,4&
&)*v(161)+v(306)-v(313))+v(139)*v(323)+v(148)*v(325)+v(705)))/v(123)
ai(3,4)=(a(2,6)*v(367)+a(5,6)*(a(1,6)*v(333)+a(2,5)*v(342)+a(1,3)*v(358)+v(369)+a(5,6)*v(616)+a(2,6)*v(670)+a(3,4)*v&
&(671))-a(1,6)*(a(2,3)*v(201)+a(2,2)*(v(202)-v(207)+v(219))+a(1,2)*(v(208)-v(213)+v(225))+a(5,5)*v(337)+a(3,6)*(-(a(1,4&
&)*v(305))-v(344)+v(347))+a(3,5)*v(358)+a(2,4)*v(363)+a(4,5)*v(386)+v(305)*v(578)+a(2,5)*(v(334)+v(345)+v(353)+v(672))+a&
&(1,4)*v(673)+a(5,6)*v(674))-a(4,6)*(a(5,5)*v(354)+a(2,3)*v(362)+a(1,2)*(-v(206)+v(212)-v(363))+a(5,6)*v(378)+v(408)-v&
&(305)*v(618)+a(2,2)*v(660)+a(2,6)*(v(340)+v(662))+a(3,5)*(v(341)+v(671))-a(1,1)*v(673)+a(3,6)*(v(665)+v(667)+v(675)+v&
&(676)))-a(6,6)*(a(1,2)*v(198)+a(2,3)*v(237)+a(1,3)*v(344)+a(1,5)*v(352)+v(502)+v(509)+a(3,5)*(-v(385)+v(614))+a(5,5)*v&
&(616)+a(3,4)*(v(360)-v(675)-v(676))+a(2,5)*(-v(240)-v(241)+2d0*v(278)+v(677))+a(2,4)*(-v(340)-v(678))))/v(123)
ai(3,5)=(-(a(2,6)*v(301))+a(4,6)*v(389)+a(1,6)*v(390)-a(5,6)*v(391)+a(6,6)*v(392))/v(123)
ai(3,6)=(a(2,5)*v(301)-a(4,5)*v(389)-a(1,5)*v(390)+a(5,5)*v(391)-a(5,6)*v(392))/v(123)
ai(4,4)=(a(2,2)*v(136)*v(137)-v(252)*v(317)-v(245)*v(326)+v(155)*v(341)-v(140)*v(360)+v(155)*v(361)+v(394)*v(395)+a(2,5&
&)*v(136)*v(397)+v(394)*v(397)+v(402)*v(403)+v(364)*v(406)-2d0*a(2,6)*v(409)+v(330)*v(410)+a(3,3)*v(411)+(v(166)-v(167)&
&-v(401))*v(412)-v(404)*v(415)-v(311)*v(424)-v(363)*v(437)-v(363)*v(438)+v(139)*v(449)+v(137)*v(452)+a(5,5)*(v(164)*v&
&(307)+a(1,3)*a(3,6)*v(317)+v(140)*v(325)+v(136)*v(410)+v(453)+v(454))+v(155)*v(469)+v(326)*v(475)+v(401)*v(504)+2d0*v&
&(405)*v(531)+a(1,6)*(v(137)*v(317)-v(311)*v(410)+v(403)*v(539)-v(395)*v(550))+v(407)*v(638)+v(140)*v(665)+v(140)*v(675)&
&+v(307)*(v(659)+v(679))+a(6,6)*(-(a(2,2)*v(244))+v(164)*v(305)+v(137)*v(325)+v(139)*v(410)+a(5,5)*v(413)+v(382)*v(528)&
&-v(158)*v(680))+v(408)*v(682)+a(5,6)*((-2d0)*a(3,3)*v(338)-v(398)*v(527)+v(397)*(a(1,1)*a(2,6)-v(608))+v(149)*(-v(609)&
&+v(680))+v(378)*v(682))+v(400)*v(683)+v(168)*v(685)+v(305)*(a(3,3)*v(136)+a(1,1)*v(140)+v(450)+v(686)))/v(123)
ai(4,5)=(a(2,6)*v(300)-a(3,6)*v(389)-a(1,6)*v(426)+a(5,6)*v(427)-a(6,6)*v(428))/v(123)
ai(4,6)=(-(a(2,5)*v(300))+a(3,5)*v(389)+a(1,5)*v(426)-a(5,5)*v(427)+a(5,6)*v(428))/v(123)
ai(5,5)=(a(1,6)*v(160)*v(317)+v(269)*v(321)-v(324)*v(410)+v(430)*v(431)+v(432)*v(433)+v(312)*v(436)+v(439)*v(440)-v(418&
&)*v(443)+v(442)*v(443)+v(431)*v(444)-a(2,6)*v(162)*v(445)+v(322)*v(445)+v(162)*v(449)+v(323)*v(450)+v(160)*v(452)+a(4,4&
&)*v(453)+a(4,4)*v(454)-v(317)*v(456)+v(440)*v(457)+v(320)*v(459)+v(438)*v(460)+v(320)*v(463)+v(437)*v(465)+v(441)*v(466&
&)+v(149)*v(468)+v(406)*v(474)+v(153)*v(483)-a(2,6)*v(417)*v(523)+v(448)*(-v(247)+v(596))+v(447)*(-v(384)+v(617))+v(140&
&)*v(668)+v(159)*v(685)+v(323)*v(686)-v(307)*v(687)+a(4,6)*((-2d0)*v(434)-2d0*v(435)-2d0*v(446)-2d0*v(681)+v(359)*v(682)&
&+2d0*v(688)-2d0*v(689)-2d0*v(690))+v(451)*v(691)+v(407)*(v(297)+v(692))+a(6,6)*(a(2,2)*v(288)+v(246)*v(525)+v(693))+v&
&(136)*(a(2,2)*v(160)+a(3,3)*v(323)+a(4,4)*v(410)+v(694)))/v(123)
ai(5,6)=(-(a(2,4)*v(270))-a(2,4)*v(280)-a(2,4)*v(281)-v(245)*v(323)+v(160)*v(338)+v(160)*v(339)+v(160)*v(361)-v(175)*v&
&(410)+v(196)*v(410)-v(172)*v(437)+v(358)*v(439)+v(358)*v(457)+a(2,3)*(a(2,6)*v(176)+a(1,6)*(2d0*v(170)+v(177))-a(4,4)*v&
&(248)-a(1,2)*v(296)-a(1,5)*v(465))+a(3,3)*(-(a(2,2)*v(180))+a(2,2)*v(190)-a(1,5)*a(1,6)*v(323)-a(4,4)*v(339)+a(1,5)*v&
&(468))+v(160)*v(469)+v(323)*v(475)+a(3,6)*(-(a(1,2)*v(170))-a(2,2)*v(178)+a(2,4)*(-v(232)+v(279))-a(4,4)*v(382)+v(476))&
&+v(191)*v(491)+v(192)*v(491)+v(189)*v(498)+v(326)*v(501)-v(474)*v(572)+v(456)*v(609)+a(3,4)*(a(1,3)*v(377)+a(1,6)*v(464&
&)+a(1,2)*(-v(185)-v(467))+v(484)+a(2,6)*v(654))+a(2,5)*(a(2,6)*v(288)+a(1,4)*v(417)+a(2,4)*(-v(289)+v(598))-a(3,6)*v&
&(615)+v(695))+a(3,5)*(-(a(2,6)*v(194))-a(3,4)*v(374)+a(1,4)*v(418)+v(471)+v(472)-v(477)-v(478)-v(481)+a(2,2)*v(692)-v&
&(696))+a(4,5)*(a(1,2)*v(233)-a(2,2)*v(269)+a(1,3)*v(337)+a(3,4)*(v(354)-v(483))+a(2,6)*v(625)+a(3,6)*(v(357)+v(626))-v&
&(688)+v(697))+a(1,4)*(-(a(2,4)*v(403))+a(1,6)*v(419)+a(3,6)*v(421)+v(482)+v(485)+a(3,3)*v(698)-v(699))+a(4,6)*(a(1,2)*v&
&(217)-a(2,4)*v(290)-a(1,3)*v(387)-a(1,1)*v(458)+a(1,5)*v(463)+a(2,5)*(v(596)-v(625))-a(3,5)*v(691)+v(700))+a(5,6)*(v&
&(479)+v(512)+v(513)+v(514)+a(1,1)*v(694)-v(701)-v(702)-v(703)-v(704)))/v(123)
ai(6,6)=(-(v(160)*v(360))-v(154)*v(378)+v(137)*v(383)+(-v(176)-v(178)-v(181))*v(412)-v(148)*v(422)-v(344)*v(439)+v(139&
&)*v(492)+v(222)*v(499)+v(176)*v(504)+v(193)*v(506)-v(154)*v(507)+v(142)*(v(378)-v(382)+v(507))+v(186)*v(508)+v(188)*v&
&(508)+v(191)*v(511)+v(193)*v(511)-v(500)*v(519)-v(510)*v(519)+a(4,4)*v(395)*v(521)+a(1,5)*v(228)*v(525)+v(496)*v(525)+v&
&(505)*v(528)-v(494)*v(539)-v(503)*v(539)+a(4,5)*(a(1,2)*(a(2,4)*v(158)-2d0*v(217))-2d0*v(495)-v(243)*v(539))-v(506)*v&
&(560)+v(497)*(-v(217)+v(224)+v(228)+a(2,3)*v(569))+v(137)*v(605)-v(148)*v(622)-v(502)*v(629)-v(509)*v(629)+v(305)*(-v&
&(590)+v(640))-v(410)*v(645)+a(2,2)*(v(632)+a(3,3)*(v(195)-v(641))+v(142)*(-v(572)+v(661)))+v(323)*v(664)+a(5,5)*(-v(512&
&)-v(513)-v(514)+v(243)*v(525)-v(498)*v(526)+v(693)+v(704))+a(3,3)*v(705)+v(146)*(-v(352)-v(464)+v(706)))/v(123)
DO i01=2,6
DO i02=1,i01-1
ai(i01,i02)=ai(i02,i01)
ENDDO
ENDDO
det=v(123)
RETURN
END IF
CALL copy(n*n,ai,a)
CALL dsifa(ai,n,n,kpiv,info)
CALL dsidi(ai,n,n,kpiv,detlp,inert,work,11)
det=DETlp(1)*10.0**DETlp(2)
END SUBROUTINE invmats
REAL(8) FUNCTION rnorm2(n,x)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::x
IF(n.LE.0)THEN
rnorm2=0.0d00
ELSE
rnorm2=dnrm2(n,x,1)
END IF
END FUNCTION rnorm2
REAL(8) FUNCTION rnorm1(n,x)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::x
IF(n.LE.0)THEN
rnorm1=0.0d00
ELSE
rnorm1=dasum(n,x,1)
END IF
END FUNCTION rnorm1
FUNCTION rnormi(n,x)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::x
IF(n.LE.0)THEN
rnormi=0.0d00
ELSE
rnormi=ABS(x(indmax(n,x)))
END IF
END FUNCTION rnormi
FUNCTION rnormrms(n,x)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::x
rnormrms=0.0d00
IF(n.LE.0)RETURN
r1=rnorm2(n,x)
r2=SQRT(1.0d00/n)
rnormrms=r1*r2
END FUNCTION rnormrms
real(8) FUNCTION fnorm(n,a)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(n,*)::a
r=dotprod(n*n,a,a)
fnorm=SQRT(r)
END FUNCTION fnorm
real(8) function condnum(n,a)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(n,*)::a
real(8),dimension(n,n)::ai
call matinv(n,det,a,ai,.false.)
condnum=fnorm(n,a)/fnorm(n,ai)
end function condnum
SUBROUTINE nrmali(n,x)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::x
r=rnorm2(n,x(1))
IF(r.GT.0.0d00)THEN
r=1.0d00/r
CALL escvec(n,x,r,x)
ENDIF
END SUBROUTINE nrmali
SUBROUTINE angvec(vec,rot)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3,3)::rot
REAL(8),DIMENSION(3)::vec
ang=rnorm2(3,vec)
CALL nrmali(3,vec)
c=COS(ang)
s=SIN(ang)
wx=vec(1)
wy=vec(2)
wz=vec(3)
c1=1.0d00-c
rot(1,1)=c+wx*wx*c1;rot(1,2)=wx*wy*c1-wz*s;rot(1,3)=wy*s+wx*wz*c1
rot(2,1)=wz*s+wx*wy*c1;rot(2,2)=c+wy*wy*c1;rot(2,3)=-wx*s+wy*wz*c1
rot(3,1)=-wy*s+wx*wz*c1;rot(3,2)=wx*s+wy*wz*c1;rot(3,3)=c+wz*wz*c1
END SUBROUTINE angvec
SUBROUTINE powermatrix(x,nx,n)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(nx,*)::x
REAL(8),DIMENSION(nx,nx)::xtemp
CALL copy(nx*nx,xtemp,x)
DO i=1,n-1
CALL matmat(nx,nx,nx,xtemp,x,xtemp,0)
END DO
CALL copy(nx*nx,x,xtemp)
END SUBROUTINE powermatrix
FUNCTION ifvzer(n,v)
IMPLICIT REAL(8) (a-h,o-z)
LOGICAL::ifvzer
REAL(8)::zero
REAL(8),DIMENSION(*)::v
ifvzer=.TRUE.
zero=TINY(zero)
DO i=1,n
IF(ABS(v(i)).GT.zero)THEN
ifvzer=.FALSE.
EXIT
ENDIF
ENDDO
END FUNCTION ifvzer
LOGICAL FUNCTION ifvnan(n,v)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::v
inan=0
DO i=1,n
IF(isnan(v(i)))THEN
inan=1
EXIT
END IF
END DO
IF(inan.EQ.0)THEN
ifvnan=.FALSE.
ELSE
ifvnan=.TRUE.
END IF
END FUNCTION ifvnan
REAL(8) FUNCTION traco(n,a)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(n,*)::a
rtemp=0.0d00
DO i=1,n	
rtemp=rtemp+a(i,i)
END DO
traco=rtemp
END FUNCTION traco
SUBROUTINE traceless(n,a)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(n,*)::a
IF(n.GT.0)THEN
rt=traco(n,a)/n
DO i=1,n
a(i,i)=a(i,i)-rt
END DO
END IF
END SUBROUTINE traceless
REAL(8) FUNCTION sumlist(n,v)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::v
r=0.0d00
DO i=1,n
r=r+v(i)
END DO
sumlist=r
END FUNCTION sumlist
REAL(8) FUNCTION asumlist(n,v)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::v
r=0.0d00
DO i=1,n
r=r+ABS(v(i))
END DO
asumlist=r
END FUNCTION asumlist

SUBROUTINE duplos(text)
CHARACTER(*)::text
DO
i=INDEX(TRIM(text),"  ")
IF(i.EQ.0)EXIT
text(i:)=text(i+1:)
ENDDO
END SUBROUTINE duplos
LOGICAL FUNCTION ifsame(n,s1,s2)
CHARACTER(*)::s1,s2
ifsame=.FALSE.
IF(LEN_TRIM(s1).NE.LEN_TRIM(s2))RETURN
IF(s1(1:n).EQ.s2(1:n))ifsame=.TRUE.
END FUNCTION ifsame
INTEGER FUNCTION iposics(m,n,sa,s)
CHARACTER(*)::s
CHARACTER(*),DIMENSION(*)::sa
iposics=0
DO i=1,m
IF(ifsame(n,sa(i),s))THEN
iposics=i
RETURN
END IF
END DO
END FUNCTION iposics
SUBROUTINE leinte(text,l)
CHARACTER(*)::text
READ(text,*,iostat=ierr)l
IF(ierr.NE.0.OR.text.EQ." ")l=0
END SUBROUTINE leinte
SUBROUTINE lereal(text,r)
CHARACTER(*)::text
REAL(8)::r
READ(text,*,iostat=ierr)r
IF(ierr.NE.0.OR.text.EQ." ")r=0.0d00
END SUBROUTINE lereal
SUBROUTINE lestri(text,r)
CHARACTER(*)::text,r
READ(text,*,iostat=ierr)r
IF(ierr.NE.0.OR.text.EQ." ")r=""
CALL maiusc(r)
END SUBROUTINE lestri
SUBROUTINE lepint(text,l)
CHARACTER(*)::text
CALL leinte(text,l)
i=INDEX(text," ")
IF(i.NE.0)THEN
text(1:)=text(i:)
CALL remoes(text)
ENDIF
END SUBROUTINE lepint
SUBROUTINE leprea(text,r)
CHARACTER(*)::text
REAL(8)::r
CALL lereal(text,r)
i=INDEX(text," ")
IF(i.NE.0)THEN
text(1:)=text(i:)
CALL remoes(text)
ENDIF
END SUBROUTINE leprea
SUBROUTINE lepstr(text,l)
CHARACTER(*)::text,l
CALL lestri(text,l)
i=INDEX(text," ")
IF(i.NE.0)THEN
text(1:)=text(i:)
CALL remoes(text)
ENDIF
CALL remoes(l)
CALL remoarroba(l)
END SUBROUTINE lepstr
SUBROUTINE maiusc(str)
CHARACTER(*)::str
jlen=LEN(str)
DO i=1,jlen
iasc=ICHAR(str(i:i))
IF((iasc.GT.96).AND.(iasc.LT.123))THEN
str(i:i)=CHAR(iasc-32)
ENDIF
ENDDO
END SUBROUTINE maiusc
SUBROUTINE minusc(str)
CHARACTER(*)::str
jlen=LEN(str)
DO i=1,jlen
iasc=ICHAR(str(i:i))
IF ((iasc.GT.64).AND.(iasc.LT.91)) THEN
str(i:i)=CHAR(iasc+32)
ENDIF
ENDDO
END SUBROUTINE minusc
SUBROUTINE purgadig(text)
CHARACTER(*)::text
CHARACTER(*),PARAMETER::numer="0123456789"
DO
i=SCAN(text,numer)
IF(i.EQ.0)EXIT
text(i:i)=" "
ENDDO
DO
i=INDEX(TRIM(text),"  ")
IF(i.EQ.0)EXIT
text(i:)=text(i+1:)
ENDDO
END SUBROUTINE purgadig
SUBROUTINE purgat(text)
CHARACTER(*)::text
CHARACTER(*),PARAMETER::numer="0123456789.eE-*+ "
DO
i=VERIFY(text,numer)
IF(i.EQ.0) EXIT
text(i:i)=" "
ENDDO
DO
i=INDEX(TRIM(text),"  ")
IF(i.EQ.0)EXIT
text(i:)=text(i+1:)
ENDDO
END SUBROUTINE purgat
SUBROUTINE purgav(text)
CHARACTER(*)::text
DO
i=INDEX(text,",")
IF(i.EQ.0) EXIT
text(i:i)=" "
ENDDO
DO
i=INDEX(TRIM(text),"  ")
IF(i.EQ.0)EXIT
text(i:)=text(i+1:)
ENDDO
END SUBROUTINE purgav
SUBROUTINE remoes(text)
CHARACTER(*)::text
lm=LEN(text)
ik=1
DO
ik=ik+1
IF(ik.EQ.lm)EXIT
IF(text(1:1).EQ." ")THEN
text(1:)=text(2:)
ELSE
EXIT
ENDIF
ENDDO
END SUBROUTINE remoes
SUBROUTINE remoarroba(text)
CHARACTER(*)::text
lm=LEN(text)
ik=1
DO
ik=ik+1
IF(ik.EQ.lm)EXIT
IF(text(1:1).EQ."@".OR.text(1:1).EQ." ")THEN
text(1:)=text(2:)
ELSE
EXIT
ENDIF
ENDDO
END SUBROUTINE remoarroba
SUBROUTINE simple(text)
CHARACTER(*)::text
DO
i=INDEX(TRIM(text)," ")
IF(i.EQ.0)EXIT
text(i:)=text(i+1:)
ENDDO
END SUBROUTINE simple
SUBROUTINE stripe(str) ! ascii < 33 ou ascii > 254
CHARACTER(*)::str
jlen=LEN(str)
IF(jlen.GT.1)THEN
DO i=1,jlen
iasc=ICHAR(str(i:i))
IF((iasc.LE.31).OR.(iasc.GE.255)) THEN
str(i:i)=' '
ENDIF
ENDDO
ENDIF
END SUBROUTINE stripe
SUBROUTINE openfld(nome,exte,iuni,n,ierr)
INTEGER,PARAMETER::mst=160
CHARACTER(*)::nome,exte
REAL(8),DIMENSION(:),ALLOCATABLE::r
CHARACTER(mst)::nome2,exte2
ALLOCATE(r(n))
nome2=" "
nome2(1:LEN(nome))=nome
CALL minusc(nome2)
exte2=" "
exte2(1:LEN(exte))=exte
CALL minusc(exte2)
IF(iuni.LE.0)iuni=iunit()
INQUIRE(iolength=ir)r
OPEN(iuni,file=TRIM(nome2)//"."//TRIM(exte2),recl=ir,iostat=ierr,access='direct')
DEALLOCATE(r)
END SUBROUTINE openfld
SUBROUTINE openfl(nome,exte,iuni,ijob,unfr,ierr)
INTEGER,PARAMETER::mst=160
CHARACTER(*)::nome,exte,ijob
CHARACTER(mst)::ijob2,nome2,exte2
LOGICAL::unfr
ijob2=" "
ijob2(1:LEN(ijob))=ijob
CALL minusc(ijob2)
nome2=" "
nome2(1:LEN(nome))=nome
CALL minusc(nome2)
exte2=" "
exte2(1:LEN(exte))=exte
CALL minusc(exte2)
IF(iuni.LE.0)iuni=iunit()
CLOSE(iuni,iostat=igash)
IF(unfr)THEN
IF(ijob2.EQ."substitui")THEN
OPEN(iuni,file=TRIM(nome2)//"."//TRIM(exte2),status='replace', &
form='unformatted',iostat=ierr,access='sequential')
ELSEIF(ijob2.EQ."continua")THEN
OPEN(iuni,file=TRIM(nome2)//"."//TRIM(exte2),status='unknown', &
position="append",form='unformatted',iostat=ierr,access='sequential')
ELSEIF(ijob2.EQ."desconhecido")THEN
OPEN(iuni,file=TRIM(nome2)//"."//TRIM(exte2),status='unknown', &
form='unformatted',iostat=ierr,access='sequential')
ELSEIF(ijob2.EQ."novo")THEN
OPEN(iuni,file=TRIM(nome2)//"."//TRIM(exte2),status='new', &
form='unformatted',iostat=ierr,access='sequential')
ENDIF
ELSE
IF(ijob2.EQ."substitui")THEN
OPEN(iuni,file=TRIM(nome2)//"."//TRIM(exte2),status='replace', &
iostat=ierr,access='sequential')
ELSEIF(ijob2.EQ."continua")THEN
OPEN(iuni,file=TRIM(nome2)//"."//TRIM(exte2),status='unknown', &
position="append",iostat=ierr,access='sequential')
ELSEIF(ijob2.EQ."desconhecido")THEN
OPEN(iuni,file=TRIM(nome2)//"."//TRIM(exte2),status='unknown', &
iostat=ierr,access='sequential')
ELSEIF(ijob2.EQ."novo")THEN
OPEN(iuni,file=TRIM(nome2)//"."//TRIM(exte2),status='new', &
iostat=ierr,access='sequential')
ENDIF
ENDIF
END SUBROUTINE openfl
SUBROUTINE posic(iu,ik)
IF(iu.LE.0)RETURN
REWIND(iu,iostat=io)
DO jk=1,ik-1
READ(iu,*,iostat=io)
IF(io.NE.0)EXIT
ENDDO
END SUBROUTINE posic
SUBROUTINE nextstr(iuni,str,ierr)
INTEGER,PARAMETER::mst=160
CHARACTER(mst)::str2
CHARACTER(*)::str
ierr=1
jlen=LEN_TRIM(TRIM(str))
DO
READ(iuni,"(a)",iostat=io)str2
IF(io.NE.0)EXIT
IF(str(1:jlen).EQ.str2(1:jlen))THEN
ierr=0
EXIT
ENDIF
ENDDO
BACKSPACE(iuni,iostat=ierr)
END SUBROUTINE nextstr
SUBROUTINE letudo(tex1,ires,iu)
CHARACTER(*)::tex1
ires=0
DO
READ(unit=iu,fmt="(a)",iostat=io)tex1
IF(io.NE.0)THEN
IF(io.LT.0)ires=1
IF(io.GT.0)ires=2
EXIT
ENDIF
CALL stripe(tex1)
CALL purgav(tex1)
tex1=ADJUSTL(tex1)
IF(tex1.EQ." ".OR.tex1(1:1).EQ."*")THEN
CYCLE
ELSE
EXIT
ENDIF
ENDDO
END SUBROUTINE letudo
FUNCTION iunit()
LOGICAL::ope
iu=20
DO
INQUIRE(unit=iu,opened=ope,iostat=ie)
IF(ie.NE.0)CYCLE
IF(.NOT.ope)EXIT
iu=iu+1
IF(iu.GT.100)STOP "too many units opened - please check your code (.c, .cpp and .f*)"
ENDDO
iunit=iu
END FUNCTION iunit
FUNCTION icountstr(iuni,str)
INTEGER,PARAMETER::mst=160
CHARACTER(mst)::str2
CHARACTER(*)::str
icon=0
jlen=LEN_TRIM(TRIM(str))
REWIND(iuni)
DO
READ(iuni,"(a)",iostat=io)str2
IF(io.NE.0)EXIT
IF(str(1:jlen).EQ.str2(1:jlen))THEN
icon=icon+1
ENDIF
ENDDO
icountstr=icon
END FUNCTION icountstr
SUBROUTINE closfl()
LOGICAL::ope
INTEGER,PARAMETER::mu=120
DO iu=1,mu
INQUIRE(unit=iu,opened=ope,iostat=ic1)
IF(ic1.NE.0)EXIT
IF(ope)THEN
CLOSE(iu,iostat=ic2,status="keep")
IF(ic2.NE.0)EXIT
ENDIF
ENDDO
END SUBROUTINE closfl
LOGICAL FUNCTION ifexistf(str)
CHARACTER(*)::str
INQUIRE(file=TRIM(ADJUSTL(str)),exist=ifexistf)
END FUNCTION ifexistf
SUBROUTINE entrance(iuni,nlin,crt)
INTEGER,PARAMETER::mst=160
CHARACTER(mst)::str
CHARACTER::crt
nlin=0
nlt=0
DO
READ(iuni,"(a)",iostat=io)str
CALL maiusc(str(1:1))
IF(io.NE.0.OR.(ICHAR(str(1:1)).LE.90.AND.ICHAR(str(1:1)).GE.65))EXIT
nlt=nlt+1
IF(str(1:1).EQ.crt.OR.str.EQ." ")CYCLE
nlin=nlin+1
ENDDO
DO ik=nlt,0,-1
BACKSPACE(iuni)
ENDDO
END SUBROUTINE entrance
SUBROUTINE removefileext(ext)
INTEGER(4)::i
CHARACTER(*)::ext
CHARACTER(LEN(ext)+8)::str
str="rm -r *."//TRIM(ADJUSTL(ext))
i=system(TRIM(str))
str="del *."//TRIM(ADJUSTL(ext))
i=system(str)
END SUBROUTINE removefileext
SUBROUTINE cronom(ijob,nseg)
REAL,SAVE::tempo1=0.0
REAL::tempo2
SELECT CASE(ijob)
CASE(1)
CALL CPU_TIME(tempo1)
CASE(2)
CALL CPU_TIME(tempo2)
nseg=NINT(tempo2-tempo1)
endselect
END SUBROUTINE cronom
subroutine rcronom(ijob,rseg)
real,save::tempo1=0.0
real::tempo2,rseg
select case(ijob)
case(1)
call cpu_time(tempo1)
case(2)
call cpu_time(tempo2)
rseg=tempo2-tempo1
end select
end subroutine rcronom


FUNCTION genprime(mx) RESULT (res)
INTEGER :: res, cnt, cur
cur = 0
cnt = 0
res=1
DO WHILE(cur.LT.mx)
IF(isprime(cur)) THEN
res=cur
cnt = cnt + 1
END IF
cur = cur + 1
END DO
END FUNCTION genprime

FUNCTION isprime(x) RESULT (res)
INTEGER:: x
INTEGER:: lim, y
LOGICAL :: res
IF(x.LT.2) THEN
res = .FALSE.
RETURN
END IF
IF(x.LT.4) THEN
res = .TRUE.
RETURN
END IF
IF(x.EQ.5) THEN
res = .TRUE.
RETURN
END IF
IF(MODULO(x,2).EQ.0) THEN
res = .FALSE.
RETURN
END IF
IF(MODULO(x,5).EQ.0) THEN
res = .FALSE.
RETURN
END IF
IF(MODULO(x + 1, 6) .NE. 0) THEN
IF(MODULO(x - 1, 6) .NE. 0) THEN
res = .FALSE.
RETURN
END IF
END IF
lim = INT(SQRT(REAL(x)) + 1.0)
DO y = 3, lim, 2
IF(MODULO(x,y).EQ.0) THEN
res = .FALSE.
RETURN
END IF
END DO
res = .TRUE.
RETURN
END FUNCTION isprime
SUBROUTINE dynaREAL(n,l)
REAL(8),DIMENSION(:),ALLOCATABLE::l,lt
IF(n.LE.0)THEN
IF(ALLOCATED(l))DEALLOCATE(l)
ELSE
IF(ALLOCATED(l))THEN
nl=SIZE(l)
IF(nl.LT.n)THEN
ALLOCATE(lt(nl))
CALL copy(nl,lt,l)
CALL salloc(n*2,l)
CALL copy(nl,l,lt)
DEALLOCATE(lt)
END IF
ELSE
CALL salloc(n*2,l)
END IF
END IF
END SUBROUTINE dynaREAL
SUBROUTINE removevreal(nl,l,i)
REAL(8),DIMENSION(:),ALLOCATABLE::l
IF(i.LE.nl)THEN
l(i)=l(nl)
l(nl)=0.0d00
nl=nl-1
END IF
END SUBROUTINE removevreal
SUBROUTINE insertvchar(l,i,k)
CHARACTER(*)::k
CHARACTER(LEN(k))::ktemp
CHARACTER(*),DIMENSION(:),ALLOCATABLE::l
ktemp=k
CALL dynachar(i,l)
IF(i.GT.0)l(i)=ktemp
END SUBROUTINE insertvchar
SUBROUTINE dynachar(n,l)
CHARACTER(*),DIMENSION(:),ALLOCATABLE::l
CHARACTER(lcharacter),DIMENSION(:),ALLOCATABLE::lt
IF(n.LE.0)THEN
IF(ALLOCATED(l))DEALLOCATE(l)
ELSE
IF(ALLOCATED(l))THEN
nl=SIZE(l)
IF(nl.LT.n)THEN
ALLOCATE(lt(nl))
DO i=1,nl
lt(i)=l(i)
END DO
CALL salloc(n*2,l)
DO i=1,nl
l(i)=lt(i)
END DO
DEALLOCATE(lt)
END IF
ELSE
CALL salloc(n*2,l)
END IF
END IF
END SUBROUTINE dynachar
SUBROUTINE removevchar(nl,l,i)
CHARACTER(*),DIMENSION(:),ALLOCATABLE::l
IF(i.LE.nl)THEN
l(i)=l(nl)
l(nl)=""
nl=nl-1
END IF
END SUBROUTINE removevchar
SUBROUTINE insertvREAL(l,i,k)
REAL(8)::k,ktemp
REAL(8),DIMENSION(:),ALLOCATABLE::l
ktemp=k
CALL dynaREAL(i,l)
IF(i.GT.0)l(i)=ktemp
END SUBROUTINE insertvREAL
SUBROUTINE rinsertcopy(istart,iend,l1,l2)
REAL(8),DIMENSION(:),ALLOCATABLE::l1
REAL(8),DIMENSION(*)::l2
nval=iend-istart+1
IF(nval.GT.0)THEN
CALL insert(l1,iend,l2(nval))
CALL copy(nval,l1(istart),l2)
END IF
END SUBROUTINE rinsertcopy
SUBROUTINE cinsertcopy(istart,iend,l1,l2)
CHARACTER(*),DIMENSION(:),ALLOCATABLE::l1
CHARACTER(*),DIMENSION(*)::l2
nval=iend-istart+1
IF(nval.GT.0)THEN
CALL insert(l1,iend,l2(nval))
DO i=1,nval
l1(istart-1+i)=l2(i)
END DO
END IF
END SUBROUTINE cinsertcopy
REAL(8) FUNCTION rinsertget(l,i)
REAL(8),DIMENSION(:),ALLOCATABLE::l
IF(SIZE(l).LT.i)CALL insert(l,i,0.0d00)
rinsertget=l(i)
END FUNCTION rinsertget
CHARACTER(lcharacter) FUNCTION cinsertget(l,i)
CHARACTER(*),DIMENSION(:),ALLOCATABLE::l
IF(SIZE(l).LT.i)CALL insert(l,i,"")
cinsertget=l(i)
END FUNCTION cinsertget
SUBROUTINE enlarge(n1,lis1,nt,pt,dt,n,p,d,ij)
INTEGER,DIMENSION(:)::lis1
INTEGER,DIMENSION(:),ALLOCATABLE::p,d,pt,dt,ij
CALL salloc(n1+1,pt)
pt(1)=1
DO i=2,n1+1
pt(i)=pt(i-1)+1
END DO
nt=n1
CALL salloc(nt,dt)
CALL ncopy(nt,dt,lis1)
CALL invind(nt,n,pt,p,dt,d,ij)
END SUBROUTINE enlarge
SUBROUTINE append(n1,p1,d1,n2,p2,d2)
INTEGER,DIMENSION(:),ALLOCATABLE::p1,d1,p,d
INTEGER,DIMENSION(:)::p2,d2
n=n1+n2
CALL salloc(n+1,p)
CALL salloc(p1(n1+1)-1+p2(n2+1)-1,d)
DO i=1,n1+1
p(i)=p1(i)
END DO
DO i=n1+2,n1+n2+1
p(i)=p(i-1)+p2(i-n1)-p2(i-n1-1)
END DO
DO i=1,p1(n1+1)-1
d(i)=d1(i)
END DO
DO i=1,p2(n2+1)-1
d(i+p1(n1+1)-1)=d2(i)
END DO
CALL copysparse(n1,p1,d1,n,p,d)
END SUBROUTINE append
SUBROUTINE numbersfrommodel(bfacemodel,pfacemodel,dfacemodel,flagmodel,ilocal,ielem,elmodel,elni,elno,knumbers,numbers)
INTEGER,DIMENSION(*)::elmodel,elni,elno,bfacemodel,pfacemodel,dfacemodel
LOGICAL,DIMENSION(*)::flagmodel
INTEGER,DIMENSION(:),ALLOCATABLE::numbers
LOGICAL::check
ielmodel=elmodel(ielem)
j=bfacemodel(ielmodel)-1+ilocal
knumbers=0
DO k=pfacemodel(j),pfacemodel(j+1)-1
knumbers=knumbers+1
nlocal=dfacemodel(k)
IF(flagmodel(k))THEN
nglobal=elno(elni(ielem)-1+nlocal)
ELSE
nglobal=nlocal
ENDIF
CALL insert(numbers,knumbers,nglobal)
END DO
END SUBROUTINE numbersfrommodel
SUBROUTINE generaldetermination(bfacemodel,pfacemodel,dfacemodel,flagmodel,nelem,elmodel,elni,elno,noil,noel,elfi,elfa,nfaces,fani,fano)
IMPLICIT REAL(8) (a-h,o-z)
INTEGER,DIMENSION(*)::bfacemodel,pfacemodel,dfacemodel,elmodel,elni,noil,elno,noel
LOGICAL,DIMENSION(*)::flagmodel
INTEGER,DIMENSION(:),ALLOCATABLE::elfi,elfa,fani,fano
INTEGER,DIMENSION(:),ALLOCATABLE::lista,listn1,listn2
CALL salloc(nelem+1,elfi)
DO ielem=1,nelem
ielmodel=elmodel(ielem)
elfi(ielem)=bfacemodel(ielmodel+1)-bfacemodel(ielmodel)
END DO
CALL salloc(nelem,elfi,elfa)
nfaces=0
DO ielem=1,nelem
CALL duallocalgraph(ielem,elni,elno,noil,noel,nl,lista)
DO ilocal=1,elfi(ielem+1)-elfi(ielem)
CALL numbersfrommodel(bfacemodel,pfacemodel,dfacemodel,flagmodel,ilocal,ielem,elmodel,elni,elno,nlistn1,listn1)
jfa=0
doinner:DO k=1,nl
jelem=lista(k)
IF(jelem.LT.ielem)THEN
DO jlocal=1,elfi(jelem+1)-elfi(jelem)
CALL numbersfrommodel(bfacemodel,pfacemodel,dfacemodel,flagmodel,jlocal,jelem,elmodel,elni,elno,nlistn2,listn2)
IF(nlistn1.EQ.nlistn2)THEN
IF(iflisco(nlistn1,listn1,.FALSE.,listn2,.FALSE.))THEN
jfa=elfa(jlocal-1+elfi(jelem))
EXIT doinner
END IF
END IF
END DO
END IF
END DO doinner
IF(jfa.EQ.0)THEN
nfaces=nfaces+1
elfa(elfi(ielem)-1+ilocal)=nfaces
ELSE
elfa(elfi(ielem)-1+ilocal)=jfa
END IF
END DO
END DO
CALL salloc(nfaces+1,fani)
DO ielem=1,nelem
ilocal=0
ielmodel=elmodel(ielem)
DO ik=elfi(ielem),elfi(ielem+1)-1
ilocal=ilocal+1
ifa=elfa(ik)
nnf=pfacemodel(bfacemodel(ielmodel)+ilocal)-pfacemodel(bfacemodel(ielmodel)-1+ilocal)
fani(ifa)=nnf
END DO
END DO
CALL salloc(nfaces,fani,fano)
DO ielem=1,nelem
ilocal=0
ielmodel=elmodel(ielem)
DO ik=elfi(ielem),elfi(ielem+1)-1
ilocal=ilocal+1
ifa=elfa(ik)
CALL numbersfrommodel(bfacemodel,pfacemodel,dfacemodel,flagmodel,ilocal,ielem,elmodel,elni,elno,nlistn1,listn1)
DO jk=1,nlistn1
fano(fani(ifa)-1+jk)=listn1(jk)
END DO
END DO
END DO
END SUBROUTINE generaldetermination
INTEGER FUNCTION ifromnodes(nn,ln,noi,nop,poi,pon)
INTEGER,DIMENSION(*)::ln,noi,nop,poi,pon
INTEGER,DIMENSION(nn)::lp
ifromnodes=0
ino=ln(1)
DO ik=noi(ino),noi(ino+1)-1
ifa=nop(ik)
DO jk=poi(ifa),poi(ifa+1)-1
lno=pon(jk)
lp(jk+1-poi(ifa))=lno
END DO
IF(nn.EQ.poi(ifa+1)-poi(ifa))THEN
IF(iflisco(nn,ln,.FALSE.,lp,.false.))THEN
ifromnodes=ifa
EXIT
END IF
END IF
END DO
END FUNCTION ifromnodes
SUBROUTINE tensorprodlists(n,lis1,lis2,m,ind,lis)
INTEGER,DIMENSION(*)::lis1,lis2
INTEGER,DIMENSION(:),ALLOCATABLE::ind,lis,lis2t
IF(n.EQ.0)THEN
m=0
ELSE
DO i=1,n
CALL insert(lis2t,i,lis2(lis1(i)))
END DO
CALL invind(n,m,ind,lis2t,lis)
IF(ALLOCATED(lis2t))DEALLOCATE(lis2t)
END IF
END SUBROUTINE tensorprodlists
REAL(8) FUNCTION dotprods(nx,ny,ix,iy,x,y)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::x,y
INTEGER,DIMENSION(*)::ix,iy
rtemp=0.0d00
DO i=1,nx
itemp=ix(i)
DO j=1,ny
jtemp=iy(j)
IF(itemp.EQ.jtemp)rtemp=rtemp+x(i)*y(j)
END DO
END DO
dotprods=rtemp
END FUNCTION dotprods
SUBROUTINE duallocalgraph(iel,elni,elno,noil,noel,nl,lista)
INTEGER,DIMENSION(*)::elni,elno,noil,noel
INTEGER,DIMENSION(:),ALLOCATABLE::lista
nl=0
DO j=elni(iel),elni(iel+1)-1
k=elno(j)
DO l=noil(k),noil(k+1)-1
m=noel(l)
IF(m.NE.iel)THEN
nl=nl+1
CALL insert(lista,nl,m)
END IF
END DO
END DO
CALL purgar(nl,lista,.false.)
END SUBROUTINE duallocalgraph
SUBROUTINE rduallocalgraph(elni,elno,noil,noel,nl,lista,listb)
INTEGER,DIMENSION(*)::elni,elno,noil,noel
INTEGER,DIMENSION(nl)::lista,listb
CALL pconsi(nl,listb)
ik=0
DO
ik=ik+1
nz=0
DO i=1,nl
IF(listb(i).EQ.0)THEN
listb(i)=ik
nz=ik
EXIT
END IF
END DO
IF(nz.EQ.0)EXIT
DO il=1,nl
iel=lista(il)
ik2=listb(il)
IF(ik2.EQ.nz)THEN
DO j=elni(iel),elni(iel+1)-1
k=elno(j)
DO l=noil(k),noil(k+1)-1
m=noel(l)
IF(m.NE.iel)THEN
ili=isearch(nl,lista,m)
IF(0.NE.ili)listb(ili)=ik2
END IF
END DO
END DO
END IF
END DO
END DO
END SUBROUTINE rduallocalgraph
SUBROUTINE convertcoo(num,nnz,ipo,lis,ilin,icol,v1,v2)
IMPLICIT REAL(8)(a-h,o-z)
INTEGER,DIMENSION(:),ALLOCATABLE::ipo,lis
INTEGER,DIMENSION(*)::ilin,icol
REAL(8),DIMENSION(*),OPTIONAL::v1,v2
IF(ALLOCATED(ipo))DEALLOCATE(ipo)
IF(ALLOCATED(lis))DEALLOCATE(lis)
CALL salloc(num+1,ipo)
DO k=1,nnz
ipo(ilin(k))=ipo(ilin(k))+1
END DO
CALL mudlis(num,ipo)
CALL salloc(num,ipo,lis)
DO k=1,nnz
i=ilin(k)
j=icol(k)
iad=ipo(i)
IF(PRESENT(v1))x=v1(k)
IF(PRESENT(v2))v2(iad)=x
lis(iad)=j
ipo(i)=iad+1
END DO
CALL mudlis2(num,ipo)
END SUBROUTINE convertcoo
SUBROUTINE convert(num,ipo,lis,ilin,icol)
IMPLICIT REAL(8)(a-h,o-z)
INTEGER,DIMENSION(*)::ipo,lis
INTEGER,DIMENSION(:),ALLOCATABLE::ilin,icol
IF(ALLOCATED(ilin))DEALLOCATE(ilin)
IF(ALLOCATED(icol))DEALLOCATE(icol)
nz=ipo(num+1)-ipo(1)
ALLOCATE(ilin(nz),icol(nz))
DO ir=1,num
DO iz=ipo(ir),ipo(ir+1)-1
ic=lis(iz)
ilin(iz)=ir
icol(iz)=ic
END DO
END DO
END SUBROUTINE convert
LOGICAL FUNCTION colsorted(na,ia,ja)
INTEGER na, ia(*), ja(*)
DO i = 1, na
DO j = ia(i)+1, ia(i+1)-1
IF (ja(j-1).GE.ja(j)) THEN
colsorted = .FALSE.
RETURN
ENDIF
ENDDO
ENDDO
colsorted = .TRUE.
END FUNCTION colsorted
SUBROUTINE salloccount1(num,ind,lis)
INTEGER,DIMENSION(*)::ind
INTEGER,DIMENSION(:),ALLOCATABLE::lis
IF(num.GT.0)THEN
IF(ind(num+1).LE.0)CALL mudlis(num,ind)
itemp=ind(num+1)-1
CALL salloc(itemp,lis)
END IF
END SUBROUTINE salloccount1
SUBROUTINE salloccount2(num,ind,lis)
INTEGER,DIMENSION(*)::ind
REAL(8),DIMENSION(:),ALLOCATABLE::lis
IF(num.GT.0)THEN
IF(ind(num+1).LE.0)CALL mudlis(num,ind)
itemp=ind(num+1)-1
CALL salloc(itemp,lis)
END IF
END SUBROUTINE salloccount2
SUBROUTINE fromdense(na,ia,ja,va,nr,nc,a)
IMPLICIT REAL(8)(a-h,o-z)
INTEGER,DIMENSION(:),ALLOCATABLE::ia,ja
REAL(8),DIMENSION(:),ALLOCATABLE::va
REAL(8),DIMENSION(nr,*)::a
na=nr
small=TINY(1.0d00)
next=1
CALL salloc(na+1,ia)
ia(1)=1
DO ir=1,nr
DO ic=1,nc
IF(ABS(a(ir,ic)).GT.small)next=next+1
ia(ir+1)=next
END DO
END DO
next=1
CALL salloc(ia(na+1)-ia(1),ja)
CALL salloc(ia(na+1)-ia(1),va)
DO ir=1,nr
DO ic=1,nc
IF(ABS(a(ir,ic)).GT.small)THEN
ja(next)=ic
va(next)=a(ir,ic)
next=next+1
END IF
END DO
END DO
END SUBROUTINE fromdense
SUBROUTINE todense(na,ia,ja,va,nr,nc,a)
IMPLICIT REAL(8)(a-h,o-z)
INTEGER,DIMENSION(*)::ia,ja
REAL(8),DIMENSION(*)::va
REAL(8),DIMENSION(:,:),ALLOCATABLE::a
nr=na
nc=numinj(na,ia,ja)
CALL salloc(nr,nc,a)
DO i=1,na
DO j=ia(i),ia(i+1)-1
a(i,ja(j))=va(j)
END DO
END DO
END SUBROUTINE todense
INTEGER FUNCTION getsparselmsort(i,j,ia,ja)
INTEGER,DIMENSION(*)::ia,ja
iadd=0
ibeg=ia(i)
iend=ia(i+1)-1
10  CONTINUE
imid=(ibeg+iend)/2
IF(ja(imid).EQ.j)THEN
iadd=imid
ELSEIF(ibeg.GE.iend)THEN
iadd=0
ELSE
IF(ja(imid).GT.j)THEN
iend=imid-1
ELSE
ibeg=imid+1
END IF
GOTO 10
END IF
getsparselmsort=iadd
END FUNCTION getsparselmsort
SUBROUTINE aplusb1(num,ipo1,lis1,ipo2,lis2,ipo3)
IMPLICIT REAL(8)(a-h,o-z)
INTEGER,DIMENSION(*)::ipo1,ipo2,lis1,lis2
INTEGER,DIMENSION(:),ALLOCATABLE::ipo3,iw
CALL salloc(num+1,ipo3)
CALL salloc(num,iw)
DO ii=1,num
ldg=0
las=-1
DO j=ipo1(ii),ipo1(ii+1)-1
jr=lis1(j)
ldg=ldg+1
iw(jr)=las
las=jr
END DO
DO j=ipo2(ii),ipo2(ii+1)-1
jc=lis2(j)
IF(iw(jc).EQ.0)THEN
ldg=ldg+1
iw(jc)=las
las=jc
END IF
END DO
ipo3(ii)=ldg
DO k=1,ldg
j=iw(las)
iw(las)=0
las=j
END DO
END DO
CALL mudlis(num,ipo3)
CALL salloc(0,iw)
END SUBROUTINE aplusb1
SUBROUTINE aplusb2(num,ipo1,lis1,v1,ipo2,lis2,v2,ipo3,lis3,v3)
IMPLICIT REAL(8)(a-h,o-z)
LOGICAL::symb
INTEGER,DIMENSION(*)::ipo1,ipo2,ipo3,lis1,lis2
REAL(8),DIMENSION(*),OPTIONAL::v1,v2
INTEGER,DIMENSION(:),ALLOCATABLE::lis3,iw
REAL(8),DIMENSION(:),ALLOCATABLE,OPTIONAL::v3
IF(PRESENT(v1))THEN
symb=.FALSE.
ELSE
symb=.TRUE.
END IF
itemp=ipo3(num+1)-1
CALL salloc(itemp,lis3)
CALL salloc(num,iw)
SELECT CASE(symb)
CASE(.FALSE.)
CALL salloc(itemp,v3)
len=0
ipo3(1)=1
DO i=1,num
DO k=ipo1(i),ipo1(i+1)-1
len=len+1
jc=lis1(k)
lis3(len)=jc
v3(len)=v1(k)
iw(jc)=len
END DO
DO k=ipo2(i),ipo2(i+1)-1
jc=lis2(k)
jp=iw(jc)
IF(jp.EQ.0)THEN
len=len+1
lis3(len)=jc
v3(len)=v2(k)
iw(jc)=len
ELSE
v3(jp)=v3(jp)+v2(jp)
END IF
END DO
DO k=ipo3(i),len
iw(lis3(k))=0
END DO
ipo3(i+1)=len+1
END DO
CASE(.TRUE.)
len=0
ipo3(1)=1
DO i=1,num
DO k=ipo1(i),ipo1(i+1)-1
len=len+1
jc=lis1(k)
lis3(len)=jc
iw(jc)=len
END DO
DO k=ipo2(i),ipo2(i+1)-1
jc=lis2(k)
jp=iw(jc)
IF(jp.EQ.0)THEN
len=len+1
lis3(len)=jc
iw(jc)=len
END IF
END DO
DO k=ipo3(i),len
iw(lis3(k))=0
END DO
ipo3(i+1)=len+1
END DO
END SELECT
CALL salloc(0,iw)
END SUBROUTINE aplusb2
SUBROUTINE atimesv(na,ia,ja,va,v,w)
IMPLICIT REAL(8) (a-h,o-z)
INTEGER,DIMENSION(*)::ia,ja
REAL(8),DIMENSION(*)::va
REAL(8),DIMENSION(*)::v,w
DO i=1,na
t=0.0d00
DO j=ia(i),ia(i+1)-1
t=t+va(j)*v(ja(j))
END DO
w(i)=t
END DO
END SUBROUTINE atimesv
SUBROUTINE attimesv(na,ia,ja,va,v,w)
IMPLICIT REAL(8) (a-h,o-z)
INTEGER,DIMENSION(*)::ia,ja
REAL(8),DIMENSION(*)::va,v,w
CALL pconsr(numinj(na,ia,ja),w)
DO i=1,na
DO j=ia(i),ia(i+1)-1
w(ja(j))=w(ja(j))+v(i)*va(j)
END DO
END DO
END SUBROUTINE attimesv
SUBROUTINE atimesb1(na,ia,ja,nb,ib,jb,nc,ic)
INTEGER,DIMENSION(*)::ia,ja,ib,jb
INTEGER,DIMENSION(:),ALLOCATABLE::iw,ic
ncb=numinj(nb,ib,jb)
CALL salloc(ncb,iw)
nc=na
CALL salloc(nc+1,ic)
DO i=1,na
ldg=0
llast=-1
DO j=ia(i),ia(i+1)-1
jr=ja(j)
DO k=ib(jr),ib(jr+1)-1
jc=jb(k)
IF(iw(jc).EQ.0)THEN
ldg=ldg+1
iw(jc)=llast
llast=jc
END IF
END DO
END DO
ic(i)=ldg
DO k=1,ldg
j=iw(llast)
iw(llast)=0
llast=j
END DO
END DO
CALL mudlis(nc,ic)
CALL salloc(0,iw)
END SUBROUTINE atimesb1
SUBROUTINE atimesb2(na,ia,ja,nb,ib,jb,nc,ic,jc,va,vb,vc)
IMPLICIT REAL(8) (a-h,o-z)
LOGICAL::symb
INTEGER::ira,ica,len
INTEGER,DIMENSION(*)::ia,ja,ib,jb,ic
INTEGER,DIMENSION(:),ALLOCATABLE::jc,iw
REAL(8),DIMENSION(*),OPTIONAL::va,vb
REAL(8),DIMENSION(:),ALLOCATABLE,OPTIONAL::vc
REAL(8)::scal
IF(PRESENT(va))THEN
symb=.FALSE.
ELSE
symb=.TRUE.
END IF
itemp=ic(nc+1)-1
CALL salloc(itemp,jc)
IF(.NOT.symb)CALL salloc(itemp,vc)
ncb=numinj(nb,ib,jb)
CALL salloc(ncb,iw)
len=0
SELECT CASE(symb)
CASE(.FALSE.)
DO ira=1,na
CALL outer
DO izc=ic(ira),len
iw(jc(izc))=0
END DO
END DO
nc=na
CASE(.TRUE.)
DO ira=1,na
CALL outers
DO izc=ic(ira),len
iw(jc(izc))=0
END DO
END DO
nc=na
END SELECT
CALL salloc(0,iw)
CONTAINS
SUBROUTINE outer
ini=ia(ira)
ifi=ia(ira+1)-1
DO iza=ini,ifi
scal=va(iza)
ica=ja(iza)
CALL inner
END DO
END SUBROUTINE outer
SUBROUTINE inner
jni=ib(ica)
jfi=ib(ica+1)-1
DO izb=jni,jfi
icb=jb(izb)
ip=iw(icb)
IF(ip.EQ.0)THEN
len=len+1
jc(len)=icb
iw(icb)=len
vc(len)=scal*vb(izb)
ELSE
vc(ip)=vc(ip)+scal*vb(izb)
END IF
END DO
END SUBROUTINE inner
SUBROUTINE outers
ini=ia(ira)
ifi=ia(ira+1)-1
DO iza=ini,ifi
ica=ja(iza)
CALL inners
END DO
END SUBROUTINE outers
SUBROUTINE inners
jni=ib(ica)
jfi=ib(ica+1)-1
DO izb=jni,jfi
icb=jb(izb)
ip=iw(icb)
IF(ip.EQ.0)THEN
len=len+1
jc(len)=icb
iw(icb)=len
END IF
END DO
END SUBROUTINE inners
END SUBROUTINE atimesb2
subroutine identitysparse(na,ia,ja,a)
integer,dimension(:),allocatable::ia,ja
real(8),dimension(:),allocatable::a
if(na.gt.0)then
call salloc(na+1,ia)
do i=1,na
ia(i)=1
end do
call salloc(na,ia,ja)
do i=1,na
ja(ia(i))=1
enddo
call salloc(ia(na+1)-ia(1),a)
do i=1,na
a(ja(ia(i)))=1.0d00
end do
end if
end subroutine identitysparse
subroutine atimesb(na,ia,ja,nb,ib,jb,nc,ic,jc,a,b,c)
integer,dimension(:)::ia,ja,ib,jb
integer,dimension(:),allocatable::ic,jc
real(8),dimension(:),optional::a,b
real(8),dimension(:),allocatable,optional::c
call atimesb1(na,ia,ja,nb,ib,jb,nc,ic)
if(present(c))then
call atimesb2(na,ia,ja,nb,ib,jb,nc,ic,jc,a,b,c)
else
call atimesb2(na,ia,ja,nb,ib,jb,nc,ic,jc)
end if
end subroutine atimesb
SUBROUTINE copysparse(nb,ib,jb,na,ia,ja,va,vb)
IMPLICIT REAL(8) (a-h,o-z)
INTEGER,DIMENSION(*)::ia,ja
INTEGER,DIMENSION(:),ALLOCATABLE::ib,jb
REAL(8),DIMENSION(*),OPTIONAL::va
REAL(8),DIMENSION(:),ALLOCATABLE,OPTIONAL::vb
nb=na
CALL insertcopy(1,nb+1,ib,ia)
CALL insertcopy(1,ib(nb+1)-1,jb,ja)
IF(PRESENT(va))THEN
CALL insertcopy(1,ib(nb+1)-1,vb,va)
END IF
END SUBROUTINE copysparse
SUBROUTINE sparssubm(is,IF,js,jf,ia,ja,a,ib,jb,b)
INTEGER,DIMENSION(:)::ia,ja
INTEGER,DIMENSION(:),ALLOCATABLE::ib,jb
REAL(8),DIMENSION(:),ALLOCATABLE,OPTIONAL::b
REAL(8),DIMENSION(:),OPTIONAL::a
icount=0
CALL salloc(IF-is+1,ib)
IF(PRESENT(a))THEN
DO i=Is,IF!cycle rows of a (i is row)
ist=ia(i)
ifi=ia(i+1)-1
DO ic=ist,ifi
j=ja(ic)! column of a
IF(j.GE.js.AND.j.LE.jf)ib(i-is+1)=ib(i-is+1)+1
END DO
END DO
CALL salloc(IF-is+1,ib,jb)
CALL salloc(IF-is+1,ib,b)
DO i=Is,IF!cycle rows of a (i is row)
ist=ia(i)
ifi=ia(i+1)-1
icount=0
DO ic=ist,ifi
j=ja(ic)! column of a
IF(j.GE.js.AND.j.LE.jf)THEN
jb(ib(i-is+1)+icount)=j-js+1
b(ib(i-is+1)+icount)=a(ic)
icount=icount+1
END IF
END DO
END DO
ELSE
DO i=Is,IF!cycle rows of a (i is row)
ist=ia(i)
ifi=ia(i+1)-1
DO ic=ist,ifi
j=ja(ic)! column of a
IF(j.GE.js.AND.j.LE.jf)ib(i-is+1)=ib(i-is+1)+1
END DO
END DO
CALL salloc(IF-is+1,ib,jb)
DO i=Is,IF!cycle rows of a (i is row)
ist=ia(i)
ifi=ia(i+1)-1
icount=0
DO ic=ist,ifi
j=ja(ic)! column of a
IF(j.GE.js.AND.j.LE.jf)THEN
jb(ib(i-is+1)+icount)=j-js+1
icount=icount+1
END IF
END DO
END DO
END IF
END SUBROUTINE sparssubm
SUBROUTINE removediag(na,ia,ja,a,diag)
INTEGER,DIMENSION(*)::ia,ja
REAL(8),DIMENSION(:),OPTIONAL::a,diag
IF(PRESENT(a).AND.PRESENT(diag))THEN
icount=0
DO i=1,na
icountold=icount
ini=ia(i)
ifi=ia(i+1)-1
DO j=ini,ifi
k=ja(j)
IF(k.NE.i)THEN
icount=icount+1
ja(icount)=ja(j)
a(icount)=a(j)
ELSE
diag(i)=a(j)
END IF
END DO
ia(i)=icountold+1
END DO
ia(na+1)=icount+1
ELSE
icount=0
DO i=1,na
icountold=icount
ini=ia(i)
ifi=ia(i+1)-1
DO j=ini,ifi
k=ja(j)
IF(k.NE.i)THEN
icount=icount+1
ja(icount)=ja(j)
END IF
END DO
ia(i)=icountold+1
END DO
ia(na+1)=icount+1
END IF
END SUBROUTINE removediag
SUBROUTINE removetrianginf(na,ia,ja,a)
INTEGER,DIMENSION(*)::ia,ja
REAL(8),DIMENSION(:),OPTIONAL::a
IF(PRESENT(a))THEN
icount=0
DO i=1,na
icountold=icount
ini=ia(i)
ifi=ia(i+1)-1
DO j=ini,ifi
k=ja(j)
IF(k.GE.i)THEN
icount=icount+1
ja(icount)=ja(j)
a(icount)=a(j)
END IF
END DO
ia(i)=icountold+1
END DO
ia(na+1)=icount+1
ELSE
icount=0
DO i=1,na
icountold=icount
ini=ia(i)
ifi=ia(i+1)-1
DO j=ini,ifi
k=ja(j)
IF(k.GE.i)THEN
icount=icount+1
ja(icount)=ja(j)
END IF
END DO
ia(i)=icountold+1
END DO
ia(na+1)=icount+1
END IF
END SUBROUTINE removetrianginf
SUBROUTINE removetriangsup(na,ia,ja,a)
INTEGER,DIMENSION(*)::ia,ja
REAL(8),DIMENSION(:),OPTIONAL::a
REAL*8 t
ko = 0
DO i=1, na
kfirst = ko+1
kdiag = 0
DO  k = ia(i), ia(i+1) -1
IF(ja(k).LT.i) CYCLE
ko = ko+1
a(ko) = a(k)
ja(ko) = ja(k)
IF (ja(k).EQ.i)kdiag = ko
END DO
IF(kdiag.NE.0.AND.kdiag.NE.kfirst)THEN
t = a(kdiag)
a(kdiag) = a(kfirst)
a(kfirst) = t
k = ja(kdiag)
ja(kdiag) = ja(kfirst)
ja(kfirst) = k
ENDIF
ia(i) = kfirst
END DO
ia(na+1) = ko+1
END SUBROUTINE removetriangsup
SUBROUTINE approxmindeg(n,ia,ja,list,ilis)
IMPLICIT REAL(8)(a-h,o-z)
INTEGER,DIMENSION(*)::ia,ja,list,ilis
INTEGER,DIMENSION(:),ALLOCATABLE::ib,jb
INTEGER,DIMENSION(10)::icntl,info
REAL(8),DIMENSION(10)::rinfo
CALL MC47ID(ICNTL)
CALL salloc(n+1,ib)
ib(1:n+1)=ia(1:n+1)
nnz=ia(n+1)-1
iwlen=(2*nnz+9*n)*2
CALL salloc(iwlen,jb)
jb(1:nnz)=ja(1:nnz)
CALL MC47AD(n,nnz,ib,jb,iwlen,ICNTL,INFO,RINFO)
DO i=1,n
list(i)=jb(iwlen-n+i)
ilis(i)=jb(iwlen-2*n+i)
END DO
END SUBROUTINE approxmindeg
INTEGER FUNCTION iaddress(ipo,i,j)
INTEGER,DIMENSION(*)::ipo
IF(j.EQ.0)THEN
iaddress=ipo(i+1)-ipo(i)
ELSE
iaddress=ipo(i)-1+j
END IF
END FUNCTION iaddress
INTEGER FUNCTION numinj(num,ipo,lis)
INTEGER,DIMENSION(*)::ipo,lis
num2=0
DO i=1,ipo(num+1)-1
num2=MAX(num2,lis(i))
END DO
numinj=num2
END FUNCTION numinj
SUBROUTINE ivperm (n, ix, perm)
INTEGER n, perm(n), ix(n)
INTEGER tmp, tmp1
init      = 1
tmp	= ix(init)	
ii        = perm(init)
perm(init)= -perm(init)
k         = 0
6   k = k+1
tmp1	  = ix(ii)
ix(ii)     = tmp
next	  = perm(ii)
IF (next .LT. 0 ) GOTO 65
IF (k .GT. n) GOTO 101
tmp       = tmp1
perm(ii)  = - perm(ii)
ii        = next
GOTO 6
65  init      = init+1
IF (init .GT. n) GOTO 101
IF (perm(init) .LT. 0) GOTO 65
tmp	= ix(init)
ii	= perm(init)
perm(init)=-perm(init)
GOTO 6
101 CONTINUE
DO j=1, n
perm(j) = -perm(j)
END DO
RETURN
END SUBROUTINE ivperm
SUBROUTINE dvperm (n, ix, perm)
IMPLICIT REAL(8)(a-h,o-z)
INTEGER n, perm(n)
REAL(8) ix(n)
init      = 1
tmp	= ix(init)	
ii        = perm(init)
perm(init)= -perm(init)
k         = 0
6   k = k+1
tmp1	  = ix(ii)
ix(ii)     = tmp
next	  = perm(ii)
IF (next .LT. 0 ) GOTO 65
IF (k .GT. n) GOTO 101
tmp       = tmp1
perm(ii)  = - perm(ii)
ii        = next
GOTO 6
65  init      = init+1
IF (init .GT. n) GOTO 101
IF (perm(init) .LT. 0) GOTO 65
tmp	= ix(init)
ii	= perm(init)
perm(init)=-perm(init)
GOTO 6
101 CONTINUE
DO j=1, n
perm(j) = -perm(j)
END DO
RETURN
END SUBROUTINE dvperm
SUBROUTINE spcolsort(na,ia,ja,va)
IMPLICIT REAL(8)(a-h,o-z)
INTEGER,DIMENSION(*)::ia,ja
INTEGER,DIMENSION(:),ALLOCATABLE::iwork
REAL(8),DIMENSION(*),OPTIONAL::va
CALL salloc(MAX(na+1,2*(ia(na+1)-ia(1))),iwork)
m=0
DO i=1,na
DO k=ia(i),ia(i+1)-1
m=MAX(m,ja(k))
END DO
END DO
DO i=1,na
DO k=ia(i),ia(i+1)-1
j=ja(k)+1
iwork(j)=iwork(j)+1
END DO
END DO
iwork(1)=1
DO i=1,na
iwork(i+1)=iwork(i)+iwork(i+1)
END DO
ifirst=ia(1)
nnz=ia(na+1)-ifirst
DO i=1,na
DO k=ia(i),ia(i+1)-1
j=ja(k)
next=iwork(j)
iwork(nnz+next)=k
iwork(j)=next+1
END DO
END DO
DO i=1,na
DO  k=ia(i), ia(i+1)-1
iwork(k) = i
END DO
END DO
DO  k=1, nnz
ko = iwork(nnz+k)
irow = iwork(ko)
next = ia(irow)
iwork(ko) = next
ia(irow)  = next+1
END DO
CALL ivperm (nnz, ja(ifirst), iwork)
IF (PRESENT(va))CALL dvperm (nnz, va(ifirst), iwork)
DO  i=na,1,-1
ia(i+1) = ia(i)
END DO
ia(1) = ifirst
END SUBROUTINE spcolsort
subroutine cleansup(num1,ipo1,lis1)
integer,dimension(:)::ipo1,lis1
integer,dimension(:),allocatable::icolsp
nnz=numinj(num1,ipo1,lis1)
CALL salloc(nnz,icolsp)
il=0
DO i=1,num1
ns=ipo1(i)
nf=ipo1(i+1)-1
ipo1(i)=0
do j=ns,nf
if(lis1(j).gt.0)icolsp(lis1(j))=0
end do
DO j=ns,nf
k=lis1(j)
IF(k.GT.0)THEN
IF(icolsp(k).EQ.0)THEN
ipo1(i)=ipo1(i)+1
il=il+1
lis1(il)=k
icolsp(k)=il
END IF
END IF
END DO
END DO
IF(num1.LE.0)RETURN
CALL mudlis(num1,ipo1)
DO i=il+1,ipo1(num1+1)-1
lis1(i)=0
END DO
end subroutine cleansup
SUBROUTINE removenpos(num1,num2,ipo1,ipo2,lis1,v)
REAL(8)::rtemp
INTEGER,DIMENSION(*)::ipo1,lis1
REAL(8),DIMENSION(*),OPTIONAL::v
INTEGER,DIMENSION(:),ALLOCATABLE::ipo2,icolsp
nnz=numinj(num1,ipo1,lis1)
CALL salloc(nnz,icolsp)
il=0
IF(PRESENT(v))THEN
DO i=1,num1
ns=ipo1(i)
nf=ipo1(i+1)-1
ipo1(i)=0
do j=ns,nf
k=lis1(j)
if(k.gt.0)icolsp(k)=0
end do
DO j=ns,nf
k=lis1(j)
rtemp=v(j)
IF(k.GT.0.AND.rtemp.NE.0.0d00)THEN
IF(icolsp(k).EQ.0)THEN
num2=MAX(num2,k)
ipo1(i)=ipo1(i)+1
il=il+1
lis1(il)=k
v(il)=rtemp
icolsp(k)=il
ELSE
v(icolsp(k))=v(icolsp(k))+rtemp
END IF
END IF
END DO
END DO
ELSE
IF(num2.EQ.0)THEN
DO i=1,num1
ns=ipo1(i)
nf=ipo1(i+1)-1
ipo1(i)=0
do j=ns,nf
k=lis1(j)
if(k.gt.0)icolsp(k)=0
end do
DO j=ns,nf
k=lis1(j)
IF(k.GT.0)THEN
IF(icolsp(k).EQ.0)THEN
num2=MAX(num2,k)
ipo1(i)=ipo1(i)+1
il=il+1
lis1(il)=k
icolsp(k)=il
END IF
END IF
END DO
END DO
ELSE
DO i=1,num1
ns=ipo1(i)
nf=ipo1(i+1)-1
ipo1(i)=0
do j=ns,nf
k=lis1(j)
if(k.gt.0)icolsp(k)=0
end do
DO j=ns,nf
k=lis1(j)
IF(k.GT.0)THEN
IF(icolsp(k).EQ.0)THEN
ipo1(i)=ipo1(i)+1
il=il+1
lis1(il)=k
icolsp(k)=il
END IF
END IF
END DO
END DO
END IF
END IF
IF(num1.LE.0)RETURN
CALL mudlis(num1,ipo1)
DO i=il+1,ipo1(num1+1)-1
lis1(i)=0
END DO
IF(ALLOCATED(ipo2))DEALLOCATE(ipo2)
ALLOCATE(ipo2(num2+1))
CALL pconsi(num2+1,ipo2,0)
DO i=1,num1
DO j=ipo1(i),ipo1(i+1)-1
k=lis1(j)
ipo2(k)=ipo2(k)+1
END DO
END DO
CALL mudlis(num2,ipo2)
END SUBROUTINE removenpos
SUBROUTINE compactlis(ijob,nlp,nlg,ipo,lis,lisorig)
INTEGER,DIMENSION(:),ALLOCATABLE::ipo,lis
INTEGER,DIMENSION(nlp,nlg)::lisorig
SELECT CASE(ijob)
CASE(1)
CALL salloc(nlg,ipo)
DO i=1,nlg
DO j=1,nlp
IF(lisorig(j,i).LE.0)CYCLE
ipo(i)=ipo(i)+1
END DO
END DO
CALL mudlis(nlg,ipo)
CASE(2)
CALL salloc(ipo(nlg+1)-1,lis)
DO i=1,nlg
ik=0
DO j=1,nlp
k=lisorig(j,i)
IF(k.GT.0)THEN
lis(ipo(i)+ik)=k
ik=ik+1
ENDIF
ENDDO
ENDDO
END SELECT
END SUBROUTINE compactlis
SUBROUTINE mudlis(n,list)
INTEGER,DIMENSION(*)::list
IF(n.LE.0)RETURN
lol=list(1)
list(1)=1
DO in=1,n
newv=list(in)+lol
in1=in+1
lol=list(in1)
list(in1)=newv
ENDDO
END SUBROUTINE mudlis
SUBROUTINE mudlis2(n,list)
INTEGER,DIMENSION(*)::list
IF(n.LE.0)RETURN
DO i=n,1,-1
list(i+1)=list(i)
END DO
list(1)=1
END SUBROUTINE mudlis2
SUBROUTINE fillin1(num1,num2,ipo1,ipo2,lis1,lis2)
INTEGER,DIMENSION(*)::ipo1,ipo2,lis1
INTEGER,DIMENSION(:),ALLOCATABLE::lis2
IF(ALLOCATED(lis2))DEALLOCATE(lis2)
ALLOCATE(lis2(ipo2(num2+1)-1),stat=iiooo)
DO i=1,num1
DO j=ipo1(i),ipo1(i+1)-1
k=lis1(j)
nextv=ipo2(k)
ipo2(k)=nextv+1
lis2(nextv)=i
ENDDO
ENDDO
CALL mudlis2(num2,ipo2)
END SUBROUTINE fillin1
SUBROUTINE fillin2(num1,num2,ipo1,ipo2,lis1,lis2,ij)
INTEGER,DIMENSION(*)::ipo1,ipo2,lis1
INTEGER,DIMENSION(:),ALLOCATABLE::ij
INTEGER,DIMENSION(:),ALLOCATABLE::lis2
IF(ALLOCATED(lis2))DEALLOCATE(lis2)
IF(ALLOCATED(ij))DEALLOCATE(ij)
itemp=ipo2(num2+1)-1
ALLOCATE(lis2(itemp),ij(itemp))
DO i=1,num1
ik=0
DO j=ipo1(i),ipo1(i+1)-1
ik=ik+1
k=lis1(j)
nextv=ipo2(k)
ipo2(k)=nextv+1
lis2(nextv)=i
ij(nextv)=ik
ENDDO
ENDDO
CALL mudlis2(num2,ipo2)
END SUBROUTINE fillin2
SUBROUTINE fillin3(num1,num2,ipo1,ipo2,lis1,lis2,v1,v2)
INTEGER,DIMENSION(*)::ipo1,ipo2,lis1
REAL(8),DIMENSION(*)::v1
REAL(8),DIMENSION(:),ALLOCATABLE::v2
INTEGER,DIMENSION(:),ALLOCATABLE::lis2
IF(ALLOCATED(lis2))DEALLOCATE(lis2)
IF(ALLOCATED(v2))DEALLOCATE(v2)
itemp=ipo2(num2+1)-1
ALLOCATE(lis2(itemp),v2(itemp))
DO i=1,num1
DO j=ipo1(i),ipo1(i+1)-1
k=lis1(j)
nextv=ipo2(k)
ipo2(k)=nextv+1
lis2(nextv)=i
v2(nextv)=v1(j)
ENDDO
ENDDO
CALL mudlis2(num2,ipo2)
END SUBROUTINE fillin3
SUBROUTINE fillin4(num1,num2,ipo1,ipo2,lis1,lis2,ij,v1,v2)
INTEGER,DIMENSION(*)::ipo1,ipo2,lis1
REAL(8),DIMENSION(*)::v1
REAL(8),DIMENSION(:),ALLOCATABLE::v2
INTEGER,DIMENSION(:),ALLOCATABLE::lis2,ij
IF(ALLOCATED(lis2))DEALLOCATE(lis2)
IF(ALLOCATED(v2))DEALLOCATE(v2)
IF(ALLOCATED(ij))DEALLOCATE(ij)
itemp=ipo2(num2+1)-1
ALLOCATE(lis2(itemp),v2(itemp),ij(itemp))
DO i=1,num1
ik=0
DO j=ipo1(i),ipo1(i+1)-1
ik=ik+1
k=lis1(j)
nextv=ipo2(k)
ipo2(k)=nextv+1
lis2(nextv)=i
v2(nextv)=v1(j)
ij(nextv)=ik
ENDDO
ENDDO
CALL mudlis2(num2,ipo2)
END SUBROUTINE fillin4
SUBROUTINE invind_two4(num1,num2,ipo1,ipo2,lis1,lis2,ij,v1,v2)
INTEGER,DIMENSION(*)::ipo1,lis1
INTEGER,DIMENSION(:),ALLOCATABLE::ipo2,lis2
INTEGER,DIMENSION(:),ALLOCATABLE::ij
REAL(8),DIMENSION(*)::v1
REAL(8),DIMENSION(:),ALLOCATABLE::v2
CALL removenpos(num1,num2,ipo1,ipo2,lis1,v1)
CALL fillin(num1,num2,ipo1,ipo2,lis1,lis2,ij,v1,v2)
END SUBROUTINE invind_two4
SUBROUTINE invind_two3(num1,num2,ipo1,ipo2,lis1,lis2,v1,v2)
INTEGER,DIMENSION(*)::ipo1,lis1
INTEGER,DIMENSION(:),ALLOCATABLE::ipo2,lis2
REAL(8),DIMENSION(*)::v1
REAL(8),DIMENSION(:),ALLOCATABLE::v2
CALL removenpos(num1,num2,ipo1,ipo2,lis1,v1)
CALL fillin(num1,num2,ipo1,ipo2,lis1,lis2,v1,v2)
END SUBROUTINE invind_two3
SUBROUTINE invind_two2(num1,num2,ipo1,ipo2,lis1,lis2,ij)
INTEGER,DIMENSION(*)::ipo1,lis1
INTEGER,DIMENSION(:),ALLOCATABLE::ipo2,lis2
INTEGER,DIMENSION(:),ALLOCATABLE::ij
CALL removenpos(num1,num2,ipo1,ipo2,lis1)
CALL fillin(num1,num2,ipo1,ipo2,lis1,lis2,ij)
END SUBROUTINE invind_two2
SUBROUTINE invind_two1(num1,num2,ipo1,ipo2,lis1,lis2)
INTEGER,DIMENSION(*)::ipo1,lis1
INTEGER,DIMENSION(:),ALLOCATABLE::ipo2,lis2
CALL removenpos(num1,num2,ipo1,ipo2,lis1)
CALL fillin(num1,num2,ipo1,ipo2,lis1,lis2)
END SUBROUTINE invind_two1
SUBROUTINE rowperm(n,ia,ja,a,iao,jao,ao,perm)
INTEGER,DIMENSION(*)::ia,ja,iao,jao,perm
REAL(8),DIMENSION(*)::a,ao
DO j=1,n
i=perm(j)
iao(i+1)=ia(j+1)-ia(j)
END DO
iao(1)=1
DO j=1,n
iao(j+1)=iao(j+1)+iao(j)
END DO
DO ii=1,n
ko=iao(perm(ii))-1
DO k=ia(ii),ia(ii+1)-1
ko=ko+1
jao(ko)=ja(k)
ao(ko)=a(k)
END DO
END DO
END SUBROUTINE rowperm
SUBROUTINE colperm(n,ia,ja,a,iao,jao,ao,perm)
INTEGER,DIMENSION(*)::ia,ja,iao,jao,perm
REAL(8),DIMENSION(*)::a,ao
nnz=ia(n+1)-1
DO k=1,nnz
jao(k)=perm(ja(k))
END DO
IF(loc(ia(1)).NE.loc(iao(1)))THEN
DO i=1,n+1
iao(i) = ia(i)
END DO
DO k=1,nnz
ao(k) = a(k)
END DO
END IF
END SUBROUTINE colperm
SUBROUTINE rowcolperm(n,ia,ja,a,iao,jao,ao,perm)
INTEGER,DIMENSION(*)::ia,ja,perm,iao,jao
REAL(8),DIMENSION(*)::a,ao
CALL rowperm(n,ia,ja,a,iao,jao,ao,perm)
CALL colperm(n,iao,jao,ao,iao,jao,ao,perm)
END SUBROUTINE rowcolperm
SUBROUTINE invind_one(num1,num2,ipo2,lis1,lis2)
INTEGER,DIMENSION(*)::lis1
INTEGER,DIMENSION(:),ALLOCATABLE::ipo2,lis2
IF(num1.LE.0)RETURN
n=num1
IF(num2.EQ.0)THEN
num2=0
DO i=1,n
num2=MAX(num2,lis1(i))
END DO
END IF
IF(num2.LE.0.OR.num1.LE.0)RETURN
IF(ALLOCATED(ipo2))DEALLOCATE(ipo2)
ALLOCATE(ipo2(num2+1));CALL pconsi(num2+1,ipo2,0)
DO i=1,num1
j=lis1(i)
ipo2(j)=ipo2(j)+1
END DO
CALL mudlis(num2,ipo2)
IF(ALLOCATED(lis2))DEALLOCATE(lis2)
ALLOCATE(lis2(ipo2(num2+1)-1))
DO i=1,num1
j=lis1(i)
nextv=ipo2(j)
ipo2(j)=nextv+1
lis2(nextv)=i
END DO
CALL mudlis2(num2,ipo2)
END SUBROUTINE invind_one
SUBROUTINE heapsortr(n,arr)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::arr
INTEGER,DIMENSION(n)::per
CALL heapsortrp(n,arr,per)
CALL rheapp(n,arr,per)
END SUBROUTINE heapsortr
SUBROUTINE heapsortrp(n,arr,per)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::arr
INTEGER,DIMENSION(*)::per
DO i=1,n
per(i)=i
ENDDO
DO i=n/2,1,-1
CALL sd(i,n)
END DO
DO i=n,2,-1
l=per(i)
per(i)=per(1)
per(1)=l
CALL sd(1,i-1)
ENDDO
CONTAINS
SUBROUTINE sd(l,m)
IMPLICIT REAL(8) (a-h,o-z)
INTEGER::m
ia=per(l)
a=arr(ia)
jold=l
j=l+l
DO
IF(j.GT.m)EXIT
IF(j.LT.m)THEN
IF(arr(per(j))<arr(per(j+1)))j=j+1
ENDIF
IF(a.GE.arr(per(j)))EXIT
per(jold)=per(j)
jold=j
j=j+j
END DO
per(jold)=ia
END SUBROUTINE sd
END SUBROUTINE heapsortrp
SUBROUTINE rheapp(n,arr,per)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::arr
REAL(8),DIMENSION(:),ALLOCATABLE::tmp
INTEGER,DIMENSION(*)::per
ALLOCATE(tmp(n),stat=ierr)
IF(ierr.NE.0)STOP "rheapp"
CALL copy(n,tmp,arr)
DO i=1,n
arr(i)=tmp(per(i))
ENDDO
DEALLOCATE(tmp,stat=ierr)
IF(ierr.NE.0)STOP "rheapp"
END SUBROUTINE rheapp


INTEGER FUNCTION rbinsearch(n,l,u)
IMPLICIT REAL(8)(a-h,o-z)
INTEGER,SAVE::iold=1
REAL(8)::u
REAL(8),DIMENSION(*)::l
rbinsearch=0
IF(n.GE.2)THEN
iheuristic=0
IF(iold.GE.1.AND.iold+1.LE.n)THEN
IF(l(iold).LE.u.AND.l(iold+1).GE.u)THEN
i=iold
iheuristic=1
END IF
END IF
IF(iheuristic.EQ.0)THEN
i=1
j=n
DO
k=i+((j-i)/2)
IF(u.LT.l(k))THEN
j=k
ELSE
i=k
END IF
IF(i+1.GE.j)EXIT
END DO
END IF
rbinsearch=i
ELSEIF(n.EQ.1)THEN
rbinsearch=1
END IF
iold=rbinsearch
END FUNCTION rbinsearch



FUNCTION heaviside(x)
IMPLICIT REAL(8)(a-h,o-z)
IF(x.LT.0.0d00)THEN
heaviside=0.0d00
ELSE
heaviside=1.0d00
ENDIF
END FUNCTION heaviside
REAL(8) FUNCTION coshr1(x)
IMPLICIT REAL(8) (a-h,o-z)
IF(x.GT.0.0d00)THEN
coshr1=(1.0d00+EXP(-2.0d00*x))/(2.0d00*EXP(-x))
ELSE
coshr1=(1.0d00+EXP(2.0d00*x))/(2.0d00*EXP(x))
END IF
END FUNCTION coshr1
SUBROUTINE shiftedramp(x,eps0,f,df)
IMPLICIT REAL(8) (a-h,o-z)
gg58=1.0d00/eps0
f=2.8853783452355186d0*eps0*(3.4657500000000003d-1+1.7328750000000002d-1*x*gg58+&
5.d-1*LOG(COSHR1(3.4657500000000003d-1*x*gg58)))
df=2.8853783452355186d0*eps0*(1.7328750000000002d-1*gg58+1.7328750000000002d-1*gg58*TANH(3.4657500000000003d-1*x*gg58))
END SUBROUTINE shiftedramp
SUBROUTINE corrpower(a,x,b_lim,y,dy)
IMPLICIT REAL(8)(a-h,o-z)
IF(ABS(b_lim).LE.TINY(1.0d00))THEN
b=1.0d30**(1.0d00/a)
ELSE
b=b_lim
END IF
IF(ABS(x).LE.b)THEN
y=x**a
dy=a*x**(a-1.0d00)
ELSE
IF(x.GT.b)THEN
y=b**a+a*b**(a-1.0d00)*(x-b)
ELSE
y=(-b)**a+a*(-b)**(a-1.0d00)*(x+b)
END IF
END IF
END SUBROUTINE corrpower
FUNCTION smoothabs(x,l)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8)::x,l
smoothabs=LOG(COSH(x/l))/LOG(COSH(1.0d00/l))
END FUNCTION smoothabs
FUNCTION dsmoothabs(x,l)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8)::x,l
dsmoothabs=TANH(x/l)/(l*LOG(COSH(1.0d00/l)))
END FUNCTION dsmoothabs
FUNCTION smooth(x)
IMPLICIT REAL(8) (a-h,o-z)
smooth=0.5d00*TANH(x)+0.5d00
END FUNCTION smooth
FUNCTION dsmooth(x)
IMPLICIT REAL(8) (a-h,o-z)
dsmooth=0.5d00-0.5d00*TANH(x)*TANH(x)
END FUNCTION dsmooth
FUNCTION ddsmooth(x)
IMPLICIT REAL(8) (a-h,o-z)
ddsmooth=-TANH(x)*(1.0d00-TANH(x)*TANH(x))
END FUNCTION ddsmooth
SUBROUTINE smoothab(fa,fb,dfa,dfb,x,b,dx,f2,df2)
IMPLICIT REAL(8) (a-h,o-z)
IF(dx.LE.0.0d00)STOP "error smoothab"
a=dx/2.297559925d00
f=smooth((x-b)/a)
df=dsmooth((x-b)/a)/a
f2=f*(fb-fa)+fa
df2=df*(fb-fa)+f*(dfb-dfa)+dfa
END SUBROUTINE smoothab
SUBROUTINE smoothabc(fa,fb,fc,dfa,dfb,dfc,x,b,c,dx,f2,df2)
IMPLICIT REAL(8) (a-h,o-z)
IF(dx.LE.0.0d00)STOP "error smoothab"
a=dx/2.297559925d00
fs1=smooth((x-b)/a)
fs2=smooth((x-c)/a)
dfs1=dsmooth((x-b)/a)/a
dfs2=dsmooth((x-c)/a)/a
f2=fa*(1.0d00-fs1)+fb*fs1*(1.0d00-fs2)+fc*fs2
df2=-fa*dfs1+fb*dfs1*(1.0d00-fs2)-fb*fs1*dfs2+fc*dfs2 &
-dfa*(1.0d00-fs1)+dfb*fs1*(1.0d00-fs2)+dfc*fs2
END SUBROUTINE smoothabc
SUBROUTINE smoothmaximum(a,b,error,val,dval,d2val)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(2)::dval
REAL(8),DIMENSION(2,2)::d2val
val=a+b+rmanga(1,b-a,error)+rmanga(1,a-b,error)
dval(1)=1.0d00-rmanga(2,b-a,error)+rmanga(2,a-b,error)
dval(2)=1.0d00+rmanga(2,b-a,error)-rmanga(2,a-b,error)
d2val(1,1)=rmanga(3,b-a,error)+rmanga(3,a-b,error)
d2val(1,2)=-rmanga(3,b-a,error)-rmanga(3,a-b,error)
d2val(2,1)=-rmanga(3,b-a,error)-rmanga(3,a-b,error)
d2val(2,2)=rmanga(3,b-a,error)+rmanga(3,a-b,error)
val=val*0.5d00
dval=dval*0.5d00
d2val=d2val*0.5d00
END SUBROUTINE smoothmaximum
!
!*** smooth "minumum" function
!
SUBROUTINE smoothminimum(a,b,error,val,dval,d2val)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(2)::dval
REAL(8),DIMENSION(2,2)::d2val
CALL smoothmaximum(-a,-b,error,val,dval,d2val)
val=-val
d2val=-d2val
END SUBROUTINE smoothminimum
REAL(8) FUNCTION rmanga(ityp,x,error)
IMPLICIT REAL(8) (a-h,o-z)
alpha=LOG(2.0d00)/error
SELECT CASE(ityp)
CASE(1)
IF(x.GE.0.0d00)THEN
rmanga=x+(1.0d00/alpha)*LOG(1.0d00+EXP(-alpha*x))
ELSE
rmanga=x+(1.0d00/alpha)*(-x*alpha+LOG(1.0d00+EXP(x*alpha)))
END IF
CASE(2)
IF(x.GE.0.0d00)THEN
rmanga=1.0d00/(1.0d00+EXP(-alpha*x))
ELSE
rmanga=EXP(alpha*x)/(EXP(alpha*x)+1.0d00)
END IF
CASE(3)
IF(x.GE.0.0d00)THEN
rmanga=alpha*EXP(-alpha*x)/(1.0d00+2.0d00*EXP(-alpha*x)+EXP(-2.0d00*alpha*x))
ELSE
rmanga=alpha*EXP(alpha*x)/(1.0d00+2.0d00*EXP(alpha*x)+EXP(2.0d00*alpha*x))
END IF
END SELECT
END FUNCTION rmanga
INTEGER FUNCTION factorial(n)
IF(n.LT.1)THEN
factorial=1
ELSE
j=1
DO i=2,n
j=j*i
END DO
factorial=j
END IF
END FUNCTION factorial
SUBROUTINE interpll(n,x,y,xl,yl,dy)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::x,y
dy=0.0d00
IF(xl.LT.x(1))THEN
yl=y(1)
RETURN
END IF
IF(xl.GT.x(n))THEN
yl=y(n)
RETURN
END IF
IF(n.GE.2)THEN
IF(xl.LE.x(2))THEN
CALL interpl(x(1),x(2),y(1),y(2),xl,yl,dy)
RETURN
END IF
ELSE
yl=y(1)
dy=0.0d00
RETURN
END IF
i1=rbinsearch(n,x,xl)
i2=i1+1
CALL interpl(x(i1),x(i2),y(i1),y(i2),xl,yl,dy)
CONTAINS
SUBROUTINE interpl(x0,x1,y0,y1,x,y,dy)
IMPLICIT REAL(8) (a-h,o-z)
tol=TINY(tol)
xi=x0
xf=x1
yi=y0
yf=y1
IF(xi.GT.xf)THEN
xt=xi
xi=xf
xf=xt
yt=yi
yi=yf
yf=yt
ENDIF
IF(ABS(xi-xf).LE.tol)THEN
y=0.5d00*(yi+yf)
dy=0.0d00
ELSEIF(x.GT.xf)THEN
y=yf
dy=0.0d00
ELSEIF(x.LT.xi)THEN
y=yi
dy=0.0d00
ELSE
dy=(yf-yi)/(xf-xi)
y=yi+dy*(x-xi)
ENDIF
END SUBROUTINE interpl
END SUBROUTINE interpll
REAL(8) FUNCTION xplus(x)
IMPLICIT REAL(8) (a-h,o-z)
xplus=MAX(0.0d00,x)
END FUNCTION xplus
REAL(8) FUNCTION xminus(x)
IMPLICIT REAL(8) (a-h,o-z)
xminus=MIN(0.0d00,x)
END FUNCTION xminus
REAL(8) FUNCTION bissect(x0,x1,f0,f1)
IMPLICIT REAL(8) (a-h,o-z)
IF(ABS(f0-f1).LE.TINY(f0).OR.SIGN(1.0d00,f0)*SIGN(1.0d00,f1).GT.0.0d00)STOP "error bissect"
bissect=(x1*f0-x0*f1)/(f0-f1)
END FUNCTION bissect

REAL(8) FUNCTION coth(x)
IMPLICIT REAL(8) (a-h,o-z)
rtemp=EXP(2.0d00*x)
coth=(rtemp+1.0d00)/(rtemp-1.0d00)
END FUNCTION coth
SUBROUTINE langevin(y,x,dxdy)
IMPLICIT REAL(8) (a-h,o-z)
y=1.0d00
iter=0
DO
y0=y
csch=1.0d00/SINH(y)
r=coth(y)-(1.0d00/y)-x
dr=(1.0d00/(y*y))-csch*csch
y=y-r/dr
iter=iter+1
IF(ABS(y-y0)/MAX(ABS(y),ABS(y0),1.0d-50).LE.1.0d-7)EXIT
IF(iter.GT.100)THEN
WRITE(*,*) "error in langevin"
RETURN
END IF
END DO
dxdy=1.0d00/dr
END SUBROUTINE langevin
SUBROUTINE splineint(n,x,y,xv,yv,dyv)
IMPLICIT REAL(8) (a-h,o-z)
INTEGER::n
REAL(8),DIMENSION(n)::x,y
REAL(8),DIMENSION(:),ALLOCATABLE::b,c,d
CALL salloc(n,b)
CALL salloc(n,c)
CALL salloc(n,d)
CALL spline(n,x,y,b,c,d)
yv=seval(n,xv,x,y,b,c,d)
dyv=dseval(n,xv,x,b,c,d)
END SUBROUTINE splineint
SUBROUTINE spline (n, x, y, b, c, d)
INTEGER n
DOUBLE PRECISION x(*), y(*), b(*), c(*), d(*)
INTEGER nm1, ib, i
DOUBLE PRECISION t
nm1 = n-1
IF ( n .LT. 2 ) RETURN
IF ( n .LT. 3 ) go to 50
d(1) = x(2) - x(1)
c(2) = (y(2) - y(1))/d(1)
DO i = 2, nm1
d(i) = x(i+1) - x(i)
b(i) = 2.*(d(i-1) + d(i))
c(i+1) = (y(i+1) - y(i))/d(i)
c(i) = c(i+1) - c(i)
END DO
b(1) = -d(1)
b(n) = -d(n-1)
c(1) = 0.
c(n) = 0.
IF ( n .NE. 3 )THEN
c(1) = c(3)/(x(4)-x(2)) - c(2)/(x(3)-x(1))
c(n) = c(n-1)/(x(n)-x(n-2)) - c(n-2)/(x(n-1)-x(n-3))
c(1) = c(1)*d(1)**2/(x(4)-x(1))
c(n) = -c(n)*d(n-1)**2/(x(n)-x(n-3))
END IF
DO i = 2, n
t = d(i-1)/b(i-1)
b(i) = b(i) - t*d(i-1)
c(i) = c(i) - t*c(i-1)
END DO
c(n) = c(n)/b(n)
DO ib = 1, nm1
i = n-ib
c(i) = (c(i) - d(i)*c(i+1))/b(i)
END DO
b(n) = (y(n) - y(nm1))/d(nm1) + d(nm1)*(c(nm1) + 2.*c(n))
DO i = 1, nm1
b(i) = (y(i+1) - y(i))/d(i) - d(i)*(c(i+1) + 2.*c(i))
d(i) = (c(i+1) - c(i))/d(i)
c(i) = 3.*c(i)
END DO
c(n) = 3.*c(n)
d(n) = d(n-1)
RETURN
50  CONTINUE
b(1) = (y(2)-y(1))/(x(2)-x(1))
c(1) = 0.
d(1) = 0.
b(2) = b(1)
c(2) = 0.
d(2) = 0.
RETURN
END SUBROUTINE spline
DOUBLE PRECISION FUNCTION seval(n, u, x, y, b, c, d)
INTEGER n
DOUBLE PRECISION  u, x(*), y(*), b(*), c(*), d(*)
INTEGER i, j, k
DOUBLE PRECISION dx
DATA i/1/
IF ( i .GE. n ) i = 1
IF ( u .LT. x(i) ) go to 10
IF ( u .LE. x(i+1) ) go to 30
10  i = 1
j = n+1
20  k = (i+j)/2
IF ( u .LT. x(k) ) j = k
IF ( u .GE. x(k) ) i = k
IF ( j .GT. i+1 ) go to 20
30  dx = u - x(i)
seval = y(i) + dx*(b(i) + dx*(c(i) + dx*d(i)))
RETURN
END FUNCTION seval
DOUBLE PRECISION FUNCTION dseval(n, u, x,b, c, d)
INTEGER n
DOUBLE PRECISION  u, x(*),  b(*), c(*), d(*)
INTEGER i, j, k
DOUBLE PRECISION dx
DATA i/1/
IF ( i .GE. n ) i = 1
IF ( u .LT. x(i) ) go to 10
IF ( u .LE. x(i+1) ) go to 30
10  i = 1
j = n+1
20  k = (i+j)/2
IF ( u .LT. x(k) ) j = k
IF ( u .GE. x(k) ) i = k
IF ( j .GT. i+1 ) go to 20
30  dx = u - x(i)
dseval = b(i) + 2.0d00*c(i)*dx+3.0d00*d(i)*dx**2
IF(u.LE.x(1))THEN
dseval=0.0d00
ELSEIF(u.GE.x(n))THEN
dseval=0.0d00
END IF
END FUNCTION dseval
SUBROUTINE segugr(z1,z2,a,b,c,is)
IMPLICIT REAL(8) (a-h,o-z)
small=TINY(small)
z1=0.0d00
z2=0.0d00
is=0
d=b*b-4.0d00*a*c
IF(d.LE.-small)RETURN
IF(ABS(a).LE.small)THEN
IF(ABS(b).GE.small)THEN
is=1
z1=-c/b
ENDIF
RETURN
ENDIF
IF(ABS(d).LE.small)THEN
is=1
z1=-0.5d00*b/a
RETURN
ENDIF
is=2
e=SQRT(ABS(d))
rtp=0.5d00/a
z1=(-b+e)*rtp
z2=(-b-e)*rtp
END SUBROUTINE segugr
SUBROUTINE cardano(at,bt,ct,dt,x1,x2,x3)
IMPLICIT REAL(8) (a-z)
INTEGER::is
small=TINY(small)
x1=0.0d00
x2=0.0d00
x3=0.0d00
IF(ABS(at).LE.small)THEN
CALL segugr(x1,x2,bt,ct,dt,is)
ELSE
rtemp=1.0d00/at
a=bt*rtemp
b=ct*rtemp
c=dt*rtemp
dois=2.0d00
tres=3.0d00
r13=1.0d00/tres
seis=tres*dois
nove=seis+tres
r19=1.0d00/nove
r154=1.0d00/(seis*nove)
pi=4.0d00*ATAN(1.0d00)
a2=a*a
a3=a2*a
q=(a2-tres*b)*r19
r=(dois*a3-nove*a*b+nove*tres*c)*r154
r2=r*r
q3=q*q*q
r13a=r13*a
IF(r2.LT.q3)THEN
sq3=SQRT(q3)
sq=SQRT(q)
sq2=dois*sq
theta=ACOS(r/sq3)
doispi=dois*pi
x1=-sq2*COS(theta*r13)-r13a
x2=-sq2*COS((theta+doispi)*r13)-r13a
x3=-sq2*COS((theta-doispi)*r13)-r13a
ELSE
ar=ABS(r)
aa=-SIGN(r,1.0d00)*(ar+SQRT(r2-q3))**(1.0d00/3.0d00)
IF(ABS(aa).LE.small)THEN
bb=0.0d00
ELSE
bb=q/aa
END IF
x1=(aa+bb)-r13a
END IF
END IF
END SUBROUTINE cardano
SUBROUTINE inbrack(a,b,f,ifs)
IMPLICIT REAL(8) (a-h,o-z)
LOGICAL::ifs
EXTERNAL::f
REAL(8),PARAMETER::fac=1.6d00
INTEGER,PARAMETER::ntry=10
INTEGER,PARAMETER::n=100
atemp=MIN(a,b)
btemp=MAX(a,b)
a=atemp
b=btemp
fa=f(a)
fb=f(b)
ifs=.FALSE.
DO i=1,ntry
IF(fa*fb.LT.0.0d00)THEN
ifs=.TRUE.
RETURN
ENDIF
IF(ABS(fa).LT.ABS(fb))THEN
a=a+fac*(a-b)
fa=f(a)
ELSE
b=b+fac*(b-a)
fb=f(b)
END IF
END DO
a=atemp
b=btemp
IF(.NOT.ifs)THEN
x=a
dx=(b-a)/n
fp=f(x)
DO i=1,n
x=x+dx
fc=f(x)
IF(fc*fp.LE.0.0d00)THEN
a=x-dx
b=x
ifs=.TRUE.
RETURN
ENDIF
fp=fc
ENDDO
END IF
END SUBROUTINE inbrack
SUBROUTINE brent(x1,x2,fx,x,tol,ife)
IMPLICIT REAL(8) (a-h,o-z)
EXTERNAL::fx
INTEGER,PARAMETER::itmax=3000
ife=0
tol1=2.0d00*epsmach()*MIN(ABS(x1),ABS(x2))+0.5d00*MAX(0.0d00,tol)
a=x1
b=x2
IF(x.EQ.0.0d00.OR.x.GT.b.OR.x.LT.a)x=0.5d00*(a+b)
fa=fx(a)
fb=fx(b)
ife=ife+2
IF((fa.GT.0.0d00.AND.fb.GT.0.0d00).OR.(fa.LT.0.0d00.AND.fb.LT.0.0d00))THEN
STOP "Pre-bracket the function in brent"
END IF
c=b
fc=fb
DO iter=1,itmax
IF(iter.EQ.itmax)THEN
ife=-ife
EXIT
ENDIF
IF((fb.GT.0.0d00.AND.fc.GT.0.0d00).OR.(fb.LT.0.0d00.AND.fc.LT.0.0d00))THEN
c=a
fc=fa
d=b-a
e=d
END IF
IF(ABS(fc).LT.ABS(fb))THEN
a=b
b=c
c=a
fa=fb
fb=fc
fc=fa
END IF
xm=0.5d00*(c-b)
IF(ABS(xm).LE.tol1.OR.fb.EQ.0.0d00)THEN
EXIT
END IF
IF(ABS(e).GE.tol1.AND.ABS(fa).GT.ABS(fb))THEN
s=fb/fa
IF(a.EQ.c)THEN
p=2.0d00*xm*s
q=1.0d00-s
ELSE
q=fa/fc
r=fb/fc
p=s*(2.0d00*xm*q*(q-r)-(b-a)*(r-1.0d00))
q=(q-1.0d00)*(r-1.0d00)*(s-1.0d00)
END IF
IF(p.GT.0.0d00)q=-q
p=ABS(p)
IF(2.0d00*p.LT.MIN(3.0d00*xm*q-ABS(tol1*q),ABS(e*q)))THEN
e=d
d=p/q
ELSE
d=xm
e=d
END IF
ELSE
d=xm
e=d
END IF
a=b
fa=fb
IF(ABS(d).GT.tol1)THEN
b=b+d
ELSE
b=b+SIGN(tol1,xm)
END IF
fb=fx(b)
ife=ife+1
END DO
x=b
END SUBROUTINE brent
SUBROUTINE bissn(x1,x2,fx,dfx,x,tol,ife)
IMPLICIT REAL(8) (a-h,o-z)
EXTERNAL::fx,dfx
INTEGER,PARAMETER::maxit=300
ife=0
tol1=2.0d00*epsmach()*MIN(ABS(x1),ABS(x2))+0.5d00*MAX(0.0d00,tol)
fl=fx(x1)
fh=fx(x2)
ife=ife+2
IF((fl.GT.0.0d00.AND.fh.GT.0.0d00).OR.(fl.LT.0.0d00.AND.fh.LT.0.0d00))THEN
STOP "Pre-bracket the function in bissn"
END IF
IF(fl.EQ.0.0d00)THEN
x=x1
RETURN
ELSE IF(fh.EQ.0.0d00)THEN
x=x2
RETURN
ELSE IF(fl.LT.0.0d00)THEN
xl=x1
xh=x2
ELSE
xh=x1
xl=x2
ENDIF
IF(x.EQ.0.0d00.OR.x.GT.x2.OR.x.LT.x1)x=0.5d00*(x1+x2)
dxold=ABS(x2-x1)
dx=dxold
f=fx(x)
df=dfx(x)
ife=ife+1
DO j=1,maxit
IF(((x-xh)*df-f)*((x-xl)*df-f).GT.0.0d00 &
.OR.ABS(2.0d00*f).GT.ABS(dxold*df)) THEN
dxold=dx
dx=0.5d00*(xh-xl)
x=xl+dx
IF(xl.EQ.x)RETURN
ELSE
dxold=dx
dx=f/df
temp=x
x=x-dx
IF(temp.EQ.x)RETURN
ENDIF
IF(ABS(dx).LT.tol1) RETURN
f=fx(x)
IF(f.EQ.0.0d00)RETURN
df=dfx(x)
ife=ife+1
IF(f.LT.0.0d00)THEN
xl=x
ELSE
xh=x
ENDIF
ENDDO
ife=-ife
END SUBROUTINE bissn
SUBROUTINE newton(iconv,nequa,soluc,sres ,srig , &
rtole,vtole,niter,nitls,stole)
IMPLICIT REAL(8) (a-h,o-z)
EXTERNAL sres
EXTERNAL srig
REAL(8),DIMENSION(nequa)::soluc,dsolu,resid
REAL(8),DIMENSION(nequa,nequa)::jacob
irw=0
IF(iconv.EQ.666)irw=1
IF(nequa.GT.50.OR.nequa.LT.1)THEN
WRITE(*,*)" erro na subrotina newton: caso nao contemplado-verifique o numero de incognitas"
STOP
ENDIF
IF(nequa.EQ.1.AND.irw.EQ.1)THEN
WRITE(*,*)" newton: para o presente caso utilize newto1"
STOP
ENDIF
IF(rtole.LE.1.0d-20)THEN
toler=1.0d-10
ELSE
toler=rtole
ENDIF
IF(vtole.LE.1.0d-20)THEN
tolev=1.0d-10
ELSE
tolev=vtole
ENDIF
IF(stole.LE.0.01d00.OR.stole.GT.1.0d00)THEN
toles=0.9d00
ELSE
toles=stole
ENDIF
IF(niter.LE.0.OR.niter.GT.10000)THEN
miter=1000
ELSE
miter=niter
ENDIF
IF(nitls.LT.0.OR.nitls.GT.5)THEN
mitls=2
ELSE
mitls=nitls
ENDIF
DO iequa=1,nequa
IF(ABS(soluc(iequa)).GT.1.0d20)soluc(iequa)=0.0d00
ENDDO
IF(irw.EQ.1)THEN
WRITE(*,*)" newton:parametros"
WRITE(*,"(a,3e12.3)")" rtole,vtole,stole",toler,tolev,toles
WRITE(*,"(a,2i5)")" niter,nitls",miter,mitls
WRITE(*,*)" prima uma tecla"
READ(*,*)
ENDIF
iconv=0
itera=0
DO
itera=itera+1
IF(itera.GT.miter)THEN
IF(irw.EQ.1)THEN
WRITE(*,*)" newton:saida devido a excesso de iteracoes"
WRITE(*,*)" prima uma tecla"
READ(*,*)
ENDIF
RETURN
ENDIF
CALL sres2_newton(sres,soluc,resid,nequa)
DO i=1,nequa
dsolu(i)=resid(i)
ENDDO
CALL srig(soluc,jacob)
CALL solvcp(nequa,jacob,dsolu)
rdc=rd_newton(dsolu,nequa)
rrc=rd_newton(resid,nequa)
IF(irw.EQ.1)THEN
WRITE(*,*)" newton:residuos"
WRITE(*,"(a,i5)")" itera:",itera
WRITE(*,"(a,2e12.3)")" resiv,resir",rdc,rrc
WRITE(*,*)" prima uma tecla"
READ(*,*)
ENDIF
IF(rdc.LE.tolev.AND.rrc.LE.toler.AND.itera.NE.1)THEN
iconv=1
IF(irw.EQ.1)THEN
WRITE(*,*)" newton:verificacao dos criterios de convergencia"
WRITE(*,*)" prima uma tecla"
READ(*,*)
ENDIF
RETURN
ENDIF
CALL ls_newton2(mitls,sres,toles,soluc,resid,dsolu,nequa)
ENDDO
END SUBROUTINE newton
SUBROUTINE upd_newton(x,soluc,dsolu,nequa)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::soluc,dsolu
DO i=1,nequa
soluc(i)=soluc(i)+x*dsolu(i)
ENDDO
END SUBROUTINE upd_newton
FUNCTION rd_newton(dsolu,nequa)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::dsolu
rd1=rnorm2(nequa,dsolu)
rd2=rnormi(nequa,dsolu)
rd_newton=MAX(rd1,rd2)
END FUNCTION rd_newton
SUBROUTINE ls_newton2(mitls,sres,toles,soluc,resid,dsolu,nequa)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::soluc,dsolu,resid
EXTERNAL sres
eto=0.0d00
CALL sres2_newton(sres,soluc,resid,nequa)
r0=rnorm2(nequa,resid)
DO ils=0,mitls
eta=0.5d00**ils
stp=eta-eto
CALL upd_newton(stp,soluc,dsolu,nequa)
eto=eta
CALL sres2_newton(sres,soluc,resid,nequa)
r1=rnorm2(nequa,resid)
IF(r1.LE.toles*r0)EXIT
ENDDO
END SUBROUTINE ls_newton2
SUBROUTINE sres2_newton(sres,soluc,resid,nequa)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::soluc,resid
EXTERNAL sres
CALL sres(soluc,resid)
DO i=1,nequa
resid(i)=-resid(i)
ENDDO
END SUBROUTINE sres2_newton
SUBROUTINE ensightoutput_bin(&
number,filename, &
nnoe,x, &
nele, &
nscalar,nvector,ntensor, &
cscalar,cvector,ctensor, &
scalar,vector,tens, &
nescalar,nevector,netensor, &
cescalar,cevector,cetensor, &
escalar,evector,etensor,names,nelpr,ncnos,el_ni,el_no)
INTEGER,PARAMETER::lstring=80
CHARACTER(lstring)::texto
INTEGER,PARAMETER::mtp=7
INTEGER,PARAMETER::mstr=79
REAL(8),DIMENSION(3,*)::x
CHARACTER(mstr)::ext
CHARACTER(*)::filename
CHARACTER(2)::pred
CHARACTER(6),DIMENSION(*)::names
INTEGER,DIMENSION(*)::nelpr,ncnos,el_ni,el_no
REAL(8),DIMENSION(:,:)::scalar
REAL(8),DIMENSION(:,:,:)::vector
REAL(8),DIMENSION(:,:,:)::tens
REAL(8),DIMENSION(:,:)::escalar
REAL(8),DIMENSION(:,:,:)::evector
REAL(8),DIMENSION(:,:,:)::etensor
CHARACTER(*),DIMENSION(*)::cscalar,cvector,ctensor,cescalar,cevector,cetensor
INTEGER,DIMENSION(:),ALLOCATABLE::el_list
CHARACTER(80)::textheader
IF(ALLOCATED(el_list))DEALLOCATE(el_list)
IF(nnoe.GT.99999999.OR.nele.GT.99999999)THEN
WRITE(*,*)"Too large problem, more than 99999999 elements or nodes"
STOP
END IF
IF(number.GT.999)THEN
WRITE(*,*)"Too many output files, please limit them to 999 steps"
STOP
END IF
IF(number.LE.9)THEN
pred="00"
ELSE IF(number.LE.99)THEN
pred="0"
ELSE
pred=""
END IF
iun=iunit()
WRITE(texto,*)number
texto=TRIM(ADJUSTL(pred))//TRIM(ADJUSTL(texto))
ext=TRIM(texto)
OPEN(iun,file=TRIM(ADJUSTL(filename))//".geo"//TRIM(ADJUSTL(ext)),status="unknown", &
form='unformatted',iostat=ierr,access='sequential')
textheader="Fortran Binary"
WRITE(iun) ADJUSTL(textheader)
texto="Linha 1"
WRITE(iun) ADJUSTL(texto)
texto="Linha 2"
WRITE(iun) ADJUSTL(texto)
texto="node id given"
WRITE(iun)ADJUSTL(texto)
texto="element id given"
WRITE(iun)ADJUSTL(texto)
texto="coordinates"
WRITE(iun)ADJUSTL(texto)
WRITE(iun)nnoe
WRITE(iun) (i,i=1,nnoe)
WRITE(iun) ((REAL(x(i,in)),i=1,3),in=1,nnoe)
texto="part 1"
WRITE(iun)ADJUSTL(texto)
texto="Only one part"
WRITE(iun)ADJUSTL(texto)
CALL salloc(nele,el_list)
DO itp=1,mtp
ikount=0
DO i=1,nele
it=nelpr(i)
IF(it.EQ.itp)ikount=ikount+1
END DO
IF(ikount.NE.0)THEN
texto=names(itp)
WRITE(iun) ADJUSTL(texto)
WRITE(iun)ikount
iti=0
ilimit=ncnos(itp)
CALL pconsi(nele,el_list)
DO i=1,nele
it=nelpr(i)
IF(it.LE.0)CYCLE
IF(it.EQ.itp) THEN
iti=iti+1
CALL insert(el_list,iti,i)
END IF
END DO
IF(iti.GT.0) THEN
WRITE(iun) (el_list(i),i=1,iti)
i=1
WRITE(iun) ((el_no(ikk),ikk=el_ni(el_list(i)),el_ni(el_list(i))+ilimit-1),i=1,iti)
END IF
END IF
END DO
CALL FLUSH(iun)
CLOSE(iun)
iun=iunit()
OPEN(iun,file=TRIM(ADJUSTL(filename))//".case",status="unknown")
WRITE(iun,"(a)")"FORMAT"
WRITE(iun,"(a)")"type:   ensight"
WRITE(iun,"(a)")"GEOMETRY"
WRITE(iun,"(a)")"model: 1"//" "//TRIM(ADJUSTL(filename))//".geo"//"***"
WRITE(iun,"(a)")"VARIABLE"
DO i=1,nscalar
WRITE(iun,"(a)")"scalar per node:"//" 1 "//TRIM(cscalar(i))//" " &
//TRIM(ADJUSTL(filename))//TRIM(cscalar(i))//".res"//"***"
END DO
DO i=1,nvector
WRITE(iun,"(a)")"vector per node:"//" 1 "//TRIM(cvector(i))//" " &
//TRIM(ADJUSTL(filename))//TRIM(cvector(i))//".res"//"***"
END DO
DO i=1,ntensor
WRITE(iun,"(a)")"tensor symm per node:"//" 1 "//TRIM(ctensor(i))//" " &
//TRIM(ADJUSTL(filename))//TRIM(ctensor(i))//".res"//"***"
END DO
DO i=1,nescalar
WRITE(iun,"(a)")"scalar per element:"//" 1 "//TRIM(cescalar(i))//" " &
//TRIM(ADJUSTL(filename))//TRIM(cescalar(i))//".res"//"***"
END DO
DO i=1,nevector
WRITE(iun,"(a)")"vector per element:"//" 1 "//TRIM(cevector(i))//" " &
//TRIM(ADJUSTL(filename))//TRIM(cevector(i))//".res"//"***"
END DO
DO i=1,netensor
WRITE(iun,"(a)")"tensor symm per element:"//" 1 "//TRIM(cetensor(i))//" " &
//TRIM(ADJUSTL(filename))//TRIM(cetensor(i))//".res"//"***"
END DO
WRITE(iun,"(a)")"TIME"
WRITE(iun,"(a,i8)")"time set:"//" ",1
WRITE(iun,"(a,i8)")"number of steps:"//" ",number+1
WRITE(iun,"(a,i8)")"filename start number:"//" ",0
WRITE(iun,"(a,i8)")"filename increment:"//" ",1
WRITE(iun,"(a)")"time values:"
nloop=(number+1)/5
ntemp=MOD(number+1,5)
ik=0
DO i=1,nloop
iz=ik
WRITE(iun,"(5i8)")(j,j=iz,iz+4)
ik=iz+5
END DO
iz=ik
WRITE(iun,"(5i8)")(i,i=iz,iz+ntemp-1)
CALL FLUSH(iun)
CLOSE(iun)
DO i=1,nscalar
iun=iunit()
OPEN(iun,file=TRIM(ADJUSTL(filename))//TRIM(cscalar(i)) &
//".res"//TRIM(ADJUSTL(ext)),status="unknown", &
form='unformatted',iostat=ierr,access='sequential')
texto=cscalar(i)
WRITE(iun)ADJUSTL(texto)
WRITE(iun)(REAL(scalar(i,j)),j=1,nnoe)
CALL FLUSH(iun)
CLOSE(iun)
END DO
DO i=1,nvector
iun=iunit()
OPEN(iun,file=TRIM(ADJUSTL(filename))//TRIM(cvector(i)) &
//".res"//TRIM(ADJUSTL(ext)),status="unknown", &
form='unformatted',iostat=ierr,access='sequential')
texto=cvector(i)
WRITE(iun)ADJUSTL(texto)
WRITE(iun) ((REAL(vector(k,i,j)),k=1,3),j=1,nnoe)
CALL FLUSH(iun)
CLOSE(iun)
END DO
DO i=1,ntensor
iun=iunit()
OPEN(iun,file=TRIM(ADJUSTL(filename))//TRIM(ctensor(i)) &
//".res"//TRIM(ADJUSTL(ext)),status="unknown", &
form='unformatted',iostat=ierr,access='sequential')
texto=ctensor(i)
WRITE(iun)ADJUSTL(texto)
WRITE(iun) ((REAL(tens(k,i,j)),k=1,6),j=1,nnoe)
CALL FLUSH(iun)
CLOSE(iun)
END DO
DO i=1,nescalar
iun=iunit()
OPEN(iun,file=TRIM(ADJUSTL(filename))//TRIM(cescalar(i)) &
//".res"//TRIM(ADJUSTL(ext)),status="unknown", &
form='unformatted',iostat=ierr,access='sequential')
texto=cescalar(i)
WRITE(iun)ADJUSTL(texto)
texto="part 1"
WRITE(iun)ADJUSTL(texto)
DO itp=1,mtp
ikount=0
CALL pconsi(nele,el_list)
DO j=1,nele
it=nelpr(j)
IF(it.EQ.itp) THEN
ikount=ikount+1
CALL insert(el_list,ikount,j)
END IF
END DO
IF(ikount.NE.0)THEN
texto=names(itp)
WRITE(iun)ADJUSTL(texto)
WRITE(iun)(REAL(escalar(i,el_list(j))),j=1,ikount)
END IF
END DO
CALL FLUSH(iun)
CLOSE(iun)
END DO
DO i=1,nevector
iun=iunit()
OPEN(iun,file=TRIM(ADJUSTL(filename))//TRIM(cevector(i)) &
//".res"//TRIM(ADJUSTL(ext)),status="unknown", &
form='unformatted',iostat=ierr,access='sequential')
texto=cevector(i)
WRITE(iun)ADJUSTL(texto)
texto="part 1"
WRITE(iun)ADJUSTL(texto)
DO itp=1,mtp
ikount=0
CALL pconsi(nele,el_list)
DO j=1,nele
it=nelpr(j)
IF(it.EQ.itp) THEN
ikount=ikount+1
CALL insert(el_list,ikount,j)
END IF
END DO
IF(ikount.NE.0)THEN
texto=names(itp)
WRITE(iun)ADJUSTL(texto)
WRITE(iun)((REAL(evector(k,i,el_list(j))),k=1,3),j=1,ikount)
END IF
END DO
CALL FLUSH(iun)
CLOSE(iun)
END DO
DO i=1,netensor
iun=iunit()
OPEN(iun,file=TRIM(ADJUSTL(filename))//TRIM(cetensor(i)) &
//".res"//TRIM(ADJUSTL(ext)),status="unknown", &
form='unformatted',iostat=ierr,access='sequential')
texto=cetensor(i)
WRITE(iun)ADJUSTL(texto)
texto="part 1"
WRITE(iun)ADJUSTL(texto)
DO itp=1,mtp
ikount=0
CALL pconsi(nele,el_list)
DO j=1,nele
it=nelpr(j)
IF(it.EQ.itp)THEN
ikount=ikount+1
CALL insert(el_list,ikount,j)
END IF
END DO
IF(ikount.NE.0)THEN
texto=names(itp)
WRITE(iun)ADJUSTL(texto)
WRITE(iun) ((REAL(etensor(k,i,el_list)),k=1,6),j=1,ikount)
END IF
END DO
CALL FLUSH(iun)
CLOSE(iun)
END DO
END SUBROUTINE ensightoutput_bin
END MODULE basfun
MODULE membase
USE basfun
TYPE memarray
INTEGER,DIMENSION(:),ALLOCATABLE::n,p
INTEGER,DIMENSION(:),ALLOCATABLE::busy
INTEGER::free=1
INTEGER::nvalues=0
INTEGER::first=1
INTEGER::current=1
END TYPE memarray
CONTAINS
INTEGER FUNCTION insertl(m)
TYPE(memarray)::m
IF(.NOT.ALLOCATED(m%p))THEN
nm=10
CALL insert(m%p,nm,0)
CALL insert(m%n,nm,0)
DO i=1,SIZE(m%p)
m%p(i)=i-1
m%n(i)=i+1
END DO
ELSE IF(SIZE(m%n).LT.m%n(m%free))THEN
itemp=SIZE(m%n)
jtemp=m%n(m%free)
CALL insert(m%p,jtemp,0)
CALL insert(m%n,jtemp,0)
DO i=itemp+1,SIZE(m%p)
m%p(i)=i-1
m%n(i)=i+1
END DO
m%p(itemp+1)=m%free
END IF
m%nvalues=m%nvalues+1
insertl=m%free
CALL insert(m%busy,insertl,1)
m%free=m%n(m%free)
END FUNCTION insertl
SUBROUTINE removel(m,i)
TYPE(memarray)::m
IF(m%busy(i).EQ.1)THEN
IF(m%n(i).NE.0)m%p(m%n(i))=m%p(i)
IF(m%p(i).NE.0)m%n(m%p(i))=m%n(i)
IF(m%first.EQ.i)THEN
m%first=m%n(i)
END IF
iofree=m%free
ipfree=m%p(iofree)
m%free=i
m%p(i)=ipfree
m%n(ipfree)=i
m%n(i)=iofree
m%p(iofree)=i
m%busy(i)=0
END IF
m%nvalues=m%nvalues-1
END SUBROUTINE removel
INTEGER FUNCTION mfirst(m)
TYPE(memarray)::m
m%current=m%first
mfirst=m%first
END FUNCTION mfirst
INTEGER FUNCTION mSIZE(m)
TYPE(memarray)::m
msize=m%nvalues
END FUNCTION mSIZE
INTEGER FUNCTION mnext(m)
TYPE(memarray)::m
mnext=m%n(m%current)
m%current=m%n(m%current)
END FUNCTION mnext
END MODULE membase
MODULE binaryio
USE basfun
PRIVATE::ioint,iodouble,iological,iostring,iointvec,iodoublevec,iostringvec,iointvec2,iointvec3,iointvec4,iodoublevec2,iodoublevec3,iodoublevec4
INTERFACE iotransfer
MODULE PROCEDURE ioint,iodouble,iological,iostring,iointvec,iodoublevec,iostringvec,iointvec2,iointvec3,iointvec4,iodoublevec2,iodoublevec3,iodoublevec4
END INTERFACE iotransfer
CONTAINS
INTEGER FUNCTION openfile(name,mode)
CHARACTER(*)::name
CHARACTER(LEN(name))::namet
CHARACTER::mode
namet=TRIM(ADJUSTL(name))//CHAR(0)
openfile=iunit()
CALL copenfile(openfile,mode,namet)
END FUNCTION openfile
SUBROUTINE closefile(ichannel)
CALL cclosefile(ichannel)
END SUBROUTINE closefile
SUBROUTINE ioint(ichannel,val)
INTEGER::val
CALL cioint(ichannel,val)
END SUBROUTINE ioint
SUBROUTINE iodouble(ichannel,val)
REAL(8)::val
CALL ciodouble(ichannel,val)
END SUBROUTINE iodouble
SUBROUTINE iological(ichannel,val)
LOGICAL::val
INTEGER::temp
IF(val.EQ..FALSE.)THEN
temp=0
ELSE
temp=1
END IF
CALL ioint(ichannel,temp)
IF(temp.EQ.0)THEN
val=.FALSE.
ELSE
val=.TRUE.
END IF
END SUBROUTINE iological
SUBROUTINE iostring(ichannel,val)
CHARACTER(*)::val
CHARACTER(LEN(val)+1)::valtemp
valtemp=val
IF(LEN(Valtemp).EQ.LEN_TRIM(valtemp).OR.valtemp.EQ."")valtemp=" "
valtemp=valtemp//CHAR(0)
CALL ciostring(ichannel,valtemp)
val=valtemp
END SUBROUTINE iostring
SUBROUTINE iointvec(ichannel,dim,array)
INTEGER,DIMENSION(*)::array
INTEGER::dim
CALL ciointvec(ichannel,dim,array)
END SUBROUTINE iointvec
SUBROUTINE iointvec2(ichannel,dim1,dim2,array)
INTEGER::dim1,dim2
INTEGER,DIMENSION(dim1,dim2)::array
CALL iointvec(ichannel,dim1*dim2,array)
END SUBROUTINE iointvec2
SUBROUTINE iointvec3(ichannel,dim1,dim2,dim3,array)
INTEGER::dim1,dim2,dim3
INTEGER,DIMENSION(dim1,dim2,dim3)::array
CALL iointvec(ichannel,dim1*dim2*dim3,array)
END SUBROUTINE iointvec3
SUBROUTINE iointvec4(ichannel,dim1,dim2,dim3,dim4,array)
INTEGER::dim1,dim2,dim3,dim4
INTEGER,DIMENSION(dim1,dim2,dim3,dim4)::array
CALL iointvec(ichannel,dim1*dim2*dim3*dim4,array)
END SUBROUTINE iointvec4
SUBROUTINE iodoublevec(ichannel,dim,array)
INTEGER::dim
REAL(8),DIMENSION(*)::array
CALL ciodoublevec(ichannel,dim,array)
END SUBROUTINE iodoublevec
SUBROUTINE iodoublevec2(ichannel,dim1,dim2,array)
INTEGER::dim1,dim2
real(8),DIMENSION(dim1,dim2)::array
CALL iodoublevec(ichannel,dim1*dim2,array)
END SUBROUTINE iodoublevec2
SUBROUTINE iodoublevec3(ichannel,dim1,dim2,dim3,array)
INTEGER::dim1,dim2,dim3
real(8),DIMENSION(dim1,dim2,dim3)::array
CALL iodoublevec(ichannel,dim1*dim2*dim3,array)
END SUBROUTINE iodoublevec3
SUBROUTINE iodoublevec4(ichannel,dim1,dim2,dim3,dim4,array)
INTEGER::dim1,dim2,dim3,dim4
real(8),DIMENSION(dim1,dim2,dim3,dim4)::array
CALL iodoublevec(ichannel,dim1*dim2*dim3*dim4,array)
END SUBROUTINE iodoublevec4
SUBROUTINE iostringvec(ichannel,dim,array)
CHARACTER(*),DIMENSION(*)::array
INTEGER::dim
IF(LEN(array(1)).EQ.LEN_TRIM(array(1)).OR.array(1).eq."")array(1)=" "
DO i=1,dim
array(i)=array(i)//CHAR(0)
END DO
CALL ciostringvec(ichannel,dim,array)
END SUBROUTINE iostringvec
END MODULE binaryio
MODULE hashtable
USE basfun
PRIVATE::hashvalue
TYPE hashtb
INTEGER::numlist
INTEGER,DIMENSION(:),ALLOCATABLE::chainlist,hashtable
CHARACTER(lcharacter),DIMENSION(:),ALLOCATABLE::name
END TYPE hashtb
CONTAINS
SUBROUTINE hashstart(ht,length)
TYPE(hashtb)::ht
ht%numlist=0
CALL salloc(length,ht%hashtable)
CALL salloc(length,ht%chainlist)
CALL salloc(length,ht%name)
END SUBROUTINE hashstart
INTEGER FUNCTION indexhash(ht,namet)
TYPE(hashtb)::ht
CHARACTER(*)::namet
CHARACTER(LEN(namet))::name
name=TRIM(ADJUSTL(namet))
indexhash=0
ih=hashvalue(name,ht)
ip=ht%hashtable(ih)
100 CONTINUE
IF(ip.EQ.0)RETURN
IF(ht%name(ip).EQ.name)THEN
indexhash=ip
RETURN
ELSE
ip=ht%chainlist(ip)
GOTO 100
END IF
END FUNCTION indexhash
INTEGER FUNCTION hashstore(ht,namet)
TYPE(hashtb)::ht
CHARACTER(*)::namet
	character(len(namet))::name
name=TRIM(ADJUSTL(namet))
hashstore=0
ih=hashvalue(name,ht)
ip=ht%hashtable(ih)
iq=0
100 CONTINUE
IF(ip.EQ.0)GOTO 200
IF(ht%name(ip).EQ.name)THEN
hashstore=ip
RETURN
ELSE
iq=ip
ip=insertget(ht%chainlist,ip)
GOTO 100
END IF
200 CONTINUE
IF(ht%numlist.LT.SIZE(ht%hashtable))THEN
ht%numlist=ht%numlist+1
ht%name(ht%numlist)(1:)=name
ht%chainlist(ht%numlist)=0
IF(iq.EQ.0)THEN
ht%hashtable(ih)=ht%numlist
ELSE
ht%chainlist(iq)=ht%numlist
END IF
hashstore=ht%numlist
RETURN
ELSE
hashstore=0
RETURN
END IF
END FUNCTION hashstore
INTEGER FUNCTION hashvalue(name,ht)
TYPE(hashtb)::ht
CHARACTER(*)::name
name=TRIM(ADJUSTL(name))
lenn=LEN(name)
hashvalue=1
id=0
DO ii=1,lenn
i=1+lenn-ii
ic=ICHAR(name(i:i))
IF(ic.GE.65)THEN
hashvalue=MOD(hashvalue*(ic-64),SIZE(ht%hashtable))+1
id=id+1
IF(id.GT.3)RETURN
END IF
END DO
END FUNCTION hashvalue
END MODULE hashtable
REAL(8) FUNCTION sech(x)
IMPLICIT REAL(8) (a-h,o-z)
sech=2.0d00/(EXP(x)+EXP(-x))
END FUNCTION sech

MODULE constitutive
USE basfun
CONTAINS
subroutine vecdip(ndi,ncd,ncc,v,vp,vcp)
implicit real(8) (a-h,o-z)
real(8),dimension(ndi,ndi)::vcp
real(8),dimension(ncd+ncc)::v
real(8),dimension(ndi)::vp
do i=1,ncd+ncc
call apomat(i1,i2,i,ncd)
r=0.0d00
do j=1,ndi
r=r+vp(j)*vcp(i1,j)*vcp(i2,j)
enddo
v(i)=r
enddo
end subroutine vecdip
SUBROUTINE eigenproject(ndi,nvoigt,str,eigv,strprin,dstrprin)
IMPLICIT REAL(8)(a-h,o-z)
REAL(8),DIMENSION(nvoigt)::str
REAL(8),DIMENSION(ndi)::strprin,rhs
REAL(8),DIMENSION(ndi,nvoigt)::dstrprin
REAL(8),DIMENSION(ndi,ndi)::eigv,eprod
REAL(8),DIMENSION(nvoigt,ndi)::e
DO ij=1,nvoigt
CALL apomat(i,j,ij,ndi)
DO id=1,ndi
e(ij,id)=eigv(i,id)*eigv(j,id)
END DO
END DO
DO id=1,ndi
DO jd=1,ndi
eprod(id,jd)=dotprod(nvoigt,e(1:nvoigt,id),e(1:nvoigt,jd))
END DO
END DO
DO id=1,ndi
rhs(id)=dotprod(nvoigt,str,e(1:nvoigt,id))
END DO
CALL matinv(ndi,det,eprod,eprod,.FALSE.)
CALL matvec(ndi,ndi,eprod,rhs,strprin)
DO i=1,ndi
DO j=1,nvoigt
dstrprin(i,j)=0.0d00
DO k=1,ndi
dstrprin(i,j)=dstrprin(i,j)+eprod(k,i)*e(j,k)
END DO
END DO
END DO
END SUBROUTINE eigenproject
SUBROUTINE detbtrial(ndi,nvoigt,grad,grao,bo,btrial,dbtrial)
IMPLICIT REAL(8)(a-h,o-z)
REAL(8),DIMENSION(ndi,ndi)::grad,grao,grao1,botil,btrialm,bom
REAL(8),DIMENSION(nvoigt)::btrial,bo
REAL(8),DIMENSION(nvoigt,ndi,ndi)::dbtrial
IF(ifvzer(nvoigt,bo))THEN
DO i=1,ndi
bo(i)=1.0d00
END DO
END IF
bom=tensor(ndi,bo)!transformed bo to matrix bom
IF(ifvzer(ndi*ndi,grao))CALL adddiag(ndi,grao)
CALL matinv(ndi,det,grao,grao1,.FALSE.)!grao1=grao^-1
CALL matmat(ndi,ndi,ndi,grao1,bom,  botil,0)!botil=grao1.bom
CALL matmat(ndi,ndi,ndi,botil,grao1,botil,3)!botil=grao1.bom.grao1^T
CALL matmat(ndi,ndi,ndi,grad,botil,btrialm,0)!btrialm=grad.botil
CALL matmat(ndi,ndi,ndi,btrialm,grad,btrialm,3)!btrialm=grad.botil.grad^T
btrial=voigt(nvoigt,btrialm)
DO ij=1,nvoigt
CALL apomat(i,j,ij,ndi)
DO m=1,ndi
DO n=1,ndi
rtemp=0.0d00
DO l=1,ndi
rtemp=rtemp &
+deltak(i,m)*grad(j,l)*botil(n,l) &
+deltak(j,m)*grad(i,l)*botil(l,n)
END DO
dbtrial(ij,m,n)=rtemp !ok
END DO
END DO
END DO
END SUBROUTINE detbtrial
REAL(8) FUNCTION smoothplus(ijob,x,tol,sy)
IMPLICIT REAL(8)(a-h,o-z)
alpha=0.693147d00/(tol*sy)
SELECT CASE(ijob)
CASE(1)
IF(x.GE.0.0d00)THEN
smoothplus=x+(1.0d00/alpha)*LOG(1.0d00+EXP(-alpha*x))
ELSE
smoothplus=x+(1.0d00/alpha)*(-x*alpha+LOG(1.0d00+EXP(x*alpha)))
END IF
CASE(2)
IF(x.GE.0.0d00)THEN
smoothplus=1.0d00/(1.0d00+EXP(-alpha*x))
ELSE
smoothplus=EXP(alpha*x)/(EXP(alpha*x)+1.0d00)
END IF
END SELECT
END FUNCTION smoothplus
SUBROUTINE weightff(w,s,smax)
IMPLICIT REAL(8) (a-h,o-z)
pi=4.0d00*ATAN(1.0d00)
ss=s/smax
w=0.0d00
IF(ss.LE.0.5d00)THEN
w=(2.0d00/3.0d00)-4.0d00*ss*ss+4.0d00*ss*ss*ss
ELSE IF(ss.LE.1.0d00.AND.ss.GT.0.5d00)THEN
w=(4.0d00/3.0d00)-4.0d00*ss+4.0d00*ss*ss-(4.0d00/3.0d00)*ss*ss*ss
ELSE
w=0.0d00
ENDIF
END SUBROUTINE weightff
SUBROUTINE difunit(n,a,da)
IMPLICIT REAL(8)(a-h,o-z)
REAL(8),DIMENSION(n)::a,ca
REAL(8),DIMENSION(n,n)::da
rn=rnorm2(n,a)
ca=a/rn
CALL pconsr(n*n,da,0.0d00)
CALL updtens(n,da,-ca,ca)
CALL adddiag(n,da)
da=da/rn
END SUBROUTINE difunit
SUBROUTINE difpvec(a,b,as,bs)
IMPLICIT REAL(8)(a-h,o-z)
REAL(8),DIMENSION(3)::a,b
REAL(8),DIMENSION(3,3)::as,bs
bs=0.0d00
as=0.0d00
as(1,2)=a(3);as(1,3)=-a(2);as(2,1)=-a(3);as(2,3)=a(1)
as(3,1)=a(2);as(3,2)=-a(1)
bs(1,2)=b(3);bs(1,3)=-b(2);bs(2,1)=-b(3);bs(2,3)=b(1)
bs(3,1)=b(2);bs(3,2)=-b(1)
END SUBROUTINE difpvec
SUBROUTINE derivnorma(b,rnorm,drnorm,ndi,nvoigt)
INTEGER::ndi,nvoigt
DOUBLE PRECISION v(5001),b(nvoigt),rnorm,drnorm(nvoigt)
select case(nvoigt)
case(3)
v(8)=max(epsmach(),sqrt(b(1)**2+b(2)**2+2d0*b(3)**2))
rnorm=v(8)
drnorm(1)=b(1)/v(8)
drnorm(2)=b(2)/v(8)
drnorm(3)=(2d0*b(3))/v(8)
case(4)
v(10)=max(epsmach(),sqrt(b(1)**2+b(2)**2+b(3)**2+2d0*b(4)**2))
rnorm=v(10)
drnorm(1)=b(1)/v(10)
drnorm(2)=b(2)/v(10)
drnorm(3)=b(3)/v(10)
drnorm(4)=(2d0*b(4))/v(10)
case(6)
v(14)=max(epsmach(),sqrt(b(1)**2+b(2)**2+b(3)**2+2d0*b(4)**2+2d0*b(5)**2+2d0*b(6)**2))
v(24)=2d0/v(14)
rnorm=v(14)
drnorm(1)=b(1)/v(14)
drnorm(2)=b(2)/v(14)
drnorm(3)=b(3)/v(14)
drnorm(4)=b(4)*v(24)
drnorm(5)=b(5)*v(24)
drnorm(6)=b(6)*v(24)
END select
end SUBROUTINE derivnorma
SUBROUTINE difjacobunit(n,m,a,jaca,jacaunit)
IMPLICIT REAL(8)(a-h,o-z)
REAL(8),DIMENSION(n)::a
REAL(8),DIMENSION(n,n)::da
REAL(8),DIMENSION(n,m)::jaca,jacaunit
CALL difunit(n,a,da)
CALL matmat(n,n,m,da,jaca,jacaunit,0)
END SUBROUTINE difjacobunit
SUBROUTINE difjacopvec(m,a,b,ja,jb,jaca)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3)::a,b
REAL(8),DIMENSION(3,3)::as,bs
REAL(8),DIMENSION(3,m)::ja,jb
REAL(8),DIMENSION(3,m)::jaca,jacb
CALL difpvec(a,b,as,bs)
CALL matmat(3,3,m,bs,ja,jaca,0)
CALL matmat(3,3,m,as,jb,jacb,0)
jaca=jaca-jacb
END SUBROUTINE difjacopvec
SUBROUTINE difkacopvec1(m,a,b,ja,jb,jaco)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3)::a,b,c
REAL(8),DIMENSION(3,m)::ja,jb
REAL(8),DIMENSION(3,m)::jaco,jac
CALL prve3d(a,b,c)
CALL difjacopvec(m,a,b,ja,jb,jac)
CALL difjacobunit(3,m,c,jac,jaco)
END SUBROUTINE difkacopvec1
SUBROUTINE gaussl(igaus,pespg,pospg)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::pespg,pospg
SELECT CASE(igaus)
CASE(1)
pespg(1)=2.0d00
pospg(1)=0.0d00
CASE(2)
pespg(1)=1.0d00
pespg(2)=1.0d00
pospg(1)=-0.577350269189626d00
pospg(2)=0.577350269189626d00
CASE(3)
pespg(1)=0.555555555555556d00
pespg(2)=0.888888888888889d00
pespg(3)=0.555555555555556d00
pospg(1)=-0.774596669241483d00
pospg(2)=0.0d00
pospg(3)=0.774596669241483d00
CASE(4)
pespg(1)=0.347854845137d00
pespg(2)=0.652145154863d00
pespg(3)=pespg(2)
pespg(4)=pespg(1)
pospg(1)=-0.861136311594d00
pospg(2)=-0.339981043585d00
pospg(3)=-pospg(2)
pospg(4)=-pospg(1)
CASE(-1)
pospg(1)=0.333333333333333d00
pospg(2)=0.333333333333333d00
pespg(1)=0.5d00
CASE(-3)
pospg(1)=0.666666666666667d00
pospg(2)=0.166666666666667d00
pospg(3)=0.166666666666667d00
pospg(4)=0.666666666666667d00
pospg(5)=0.166666666666667d00
pospg(6)=0.166666666666667d00
pespg(1)=0.166666666666667d00
pespg(2)=0.166666666666667d00
pespg(3)=0.166666666666667d00
CASE(-6)
pospg(1)=0.816847572980459d00
pospg(7)=0.091576213509771d00
pospg(2)=0.091576213509771d00
pospg(8)=0.816847572980459d00
pospg(3)=0.091576213509771d00
pospg(9)=0.091576213509771d00
pospg(4)=0.445948490915965d00
pospg(10)=0.108103018168070d00
pospg(5)=0.108103018168070d00
pospg(11)=0.445948490915965d00
pospg(6)=0.445948490915965d00
pospg(12)=0.445948490915965d00
DO i=1,3
pespg(i)=0.109951743655322d00
END DO
DO i=4,6
pespg(i)=0.223381589678011d00
END DO
DO i=1,6
pespg(i)=.5d00*pespg(i)
END DO
CASE(-4)
rbot=0.05d00
a=(5.0d00-SQRT(5.0d00))*rbot
b=(5.0d00+3.0d00*SQRT(5.0d00))*rbot
w=0.041666666666666664
pospg(1)=a
pospg(2)=a
pospg(3)=a
pospg(4)=a
pospg(5)=a
pospg(6)=b
pospg(7)=a
pospg(8)=b
pospg(9)=a
pospg(10)=b
pospg(11)=a
pospg(12)=a
CALL pconsr(4,pespg,w)
CASE default
WRITE(*,*)"error in gaussl"
END SELECT
END SUBROUTINE gaussl
SUBROUTINE gausstensor(nd,n,w,p)
INTEGER,PARAMETER::nmax=5
REAL(8),DIMENSION(*)::p
REAL(8),DIMENSION(*)::w
INTEGER,DIMENSION(*)::n
REAL(8),DIMENSION(nd,nmax)::w1d,p1d
DO id=1,nd
CALL gauss1d(n(id),w1d(id,1:),p1d(id,1:))
END DO
SELECT CASE(nd)
CASE(2)
ik=0
DO i=1,n(1)
DO j=1,n(2)
ik=ik+1
p(id2d(2,1,ik))=p1d(1,i)
p(id2d(2,2,ik))=p1d(2,j)
w(ik)=w1d(1,i)*w1d(2,j)
END DO
END DO
CASE(3)
ik=0
DO i=1,n(1)
DO j=1,n(2)
DO k=1,n(3)
ik=ik+1
p(id2d(3,1,ik))=p1d(1,i)
p(id2d(3,2,ik))=p1d(2,j)
p(id2d(3,3,ik))=p1d(3,k)
w(ik)=w1d(1,i)*w1d(2,j)*w1d(3,k)
END DO
END DO
END DO
END SELECT
END SUBROUTINE gausstensor
SUBROUTINE gauss1d(n,w,p)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::w,p
SELECT CASE(n)
CASE(1)
w(1)=2.0d00
p(1)=0.0d00
CASE(2)
w(1)=1.0d00
w(2)=1.0d00
p(1)=1.0d00/SQRT(3.0d00)
p(2)=-1.0d00/SQRT(3.0d00)
CASE(3)
w(1)=0.88888889
w(2)=0.55555555
w(3)=0.55555555
p(1)=0.0d00
p(2)=0.77459667
p(3)=-0.77459667
CASE(4)
w(1)=0.65214515
w(2)=0.65214515
w(3)=0.34785485
w(4)=0.34785485
p(1)=0.33998104
p(2)=-0.33998104
p(3)=0.86113631
p(4)=-0.86113631
CASE(5)
w(1)=0.56888889
w(2)=0.47862867
w(3)=0.47862867
w(4)=0.23692689
w(5)=0.23692689
p(1)=0.0d00
p(2)=0.53846931
p(3)=-0.53846931
p(4)=0.90617985
p(5)=-0.90617985
CASE default
STOP "error in gauss1d"
END SELECT
END SUBROUTINE gauss1d
SUBROUTINE dabba(b,da)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(50000)::v
REAL(8),DIMENSION(:)::b
REAL(8),DIMENSION(:,:)::da
nvoigt=SIZE(b)
SELECT CASE(nvoigt)
CASE(3)
v(29)=2d0*b(3)
da(1,1)=2d0*b(1)
da(1,2)=0d0
da(1,3)=v(29)
da(2,1)=0d0
da(2,2)=2d0*b(2)
da(2,3)=v(29)
da(3,1)=b(3)
da(3,2)=b(3)
da(3,3)=b(1)+b(2)
CASE(4)
v(46)=2d0*b(4)
da(1,1)=2d0*b(1)
da(1,2)=0d0
da(1,3)=0d0
da(1,4)=v(46)
da(2,1)=0d0
da(2,2)=2d0*b(2)
da(2,3)=0d0
da(2,4)=v(46)
da(3,1)=0d0
da(3,2)=0d0
da(3,3)=2d0*b(3)
da(3,4)=0d0
da(4,1)=b(4)
da(4,2)=b(4)
da(4,3)=0d0
da(4,4)=b(1)+b(2)
CASE(6)
v(91)=2d0*b(4)
v(92)=2d0*b(5)
v(93)=2d0*b(6)
da(1,1)=2d0*b(1)
da(1,2)=0d0
da(1,3)=0d0
da(1,4)=v(91)
da(1,5)=v(92)
da(1,6)=0d0
da(2,1)=0d0
da(2,2)=2d0*b(2)
da(2,3)=0d0
da(2,4)=v(91)
da(2,5)=0d0
da(2,6)=v(93)
da(3,1)=0d0
da(3,2)=0d0
da(3,3)=2d0*b(3)
da(3,4)=0d0
da(3,5)=v(92)
da(3,6)=v(93)
da(4,1)=b(4)
da(4,2)=b(4)
da(4,3)=0d0
da(4,4)=b(1)+b(2)
da(4,5)=b(6)
da(4,6)=b(5)
da(5,1)=b(5)
da(5,2)=0d0
da(5,3)=b(5)
da(5,4)=b(6)
da(5,5)=b(1)+b(3)
da(5,6)=b(4)
da(6,1)=0d0
da(6,2)=b(6)
da(6,3)=b(6)
da(6,4)=b(5)
da(6,5)=b(4)
da(6,6)=b(2)+b(3)
END SELECT
END SUBROUTINE dabba


SUBROUTINE detabba(b,dabda,dabda1)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(50001)::v
REAL(8),DIMENSION(:)::b
REAL(8),DIMENSION(:,:)::dabda,dabda1
nvoigt=SIZE(b)
SELECT CASE(nvoigt)
case(6)
v(301)=b(5)*b(6)
v(297)=2d0*b(4)
v(107)=b(4)**2
v(210)=b(5)*v(297)
v(109)=b(5)**2
v(151)=b(6)*v(210)
v(111)=b(6)**2
v(349)=v(111)*v(297)
v(91)=2d0*b(1)
v(328)=-(v(109)*v(91))
v(298)=b(4)*v(91)
v(92)=v(297)
v(331)=v(91)*v(92)
v(307)=b(6)*v(92)
v(156)=-(v(298)*v(92))
v(93)=2d0*b(5)
v(347)=b(6)*v(93)
v(319)=-(v(111)*v(93))
v(306)=b(5)*v(93)
v(106)=-(v(307)*v(93))
v(234)=v(106)*v(298)
v(101)=v(106)*v(91)
v(311)=2d0*v(101)
v(94)=2d0*b(2)
v(335)=b(4)*v(94)
v(332)=-(v(111)*v(94))
v(323)=-(b(5)*v(94))
v(312)=2d0*v(94)
v(304)=-(v(92)*v(94))
v(303)=v(93)*v(94)
v(302)=v(91)*v(94)
v(197)=v(109)*v(303)
v(155)=b(4)*v(304)
v(353)=v(155)+v(156)
v(95)=2d0*b(6)
v(321)=v(297)*v(95)
v(305)=v(91)*v(95)
v(299)=b(6)*v(95)
v(242)=v(111)*v(305)
v(192)=-(v(93)*v(95))
v(177)=v(299)*v(94)
v(115)=-v(106)
v(322)=b(6)*v(115)
v(310)=2d0*v(115)
v(249)=v(322)*v(91)
v(114)=v(111)*v(115)
v(229)=(-2d0)*v(114)
v(96)=2d0*b(3)
v(346)=v(94)+v(96)
v(330)=b(5)*v(96)
v(329)=v(93)*v(96)
v(326)=2d0*v(96)
v(325)=v(91)*v(96)
v(320)=b(6)*v(96)
v(318)=v(94)*v(96)
v(300)=v(92)*v(96)
v(213)=v(107)*v(300)
v(176)=v(299)*v(96)
v(167)=-(b(4)*v(300))
v(97)=b(1)+b(2)
v(324)=v(95)*v(97)
v(315)=v(94)*v(97)
v(134)=v(302)*v(97)
v(98)=b(1)+b(3)
v(365)=v(353)*v(98)
v(339)=v(167)*v(98)
v(317)=v(95)*v(98)
v(308)=v(97)*v(98)
v(150)=v(301)*v(98)
v(316)=v(150)*v(92)
v(137)=b(4)*v(317)
v(348)=b(6)*v(137)
v(99)=b(2)+b(3)
v(309)=b(4)*v(99)
v(153)=v(308)*v(99)
v(149)=v(301)*v(99)
v(103)=v(302)*v(93)
v(356)=v(103)*v(97)
v(104)=b(5)**3
v(184)=v(104)*v(303)
v(113)=v(151)
v(333)=v(113)*v(91)
v(194)=v(113)*v(300)
v(188)=v(113)*v(304)
v(116)=v(305)*v(94)
v(117)=b(6)**3
v(230)=v(117)*v(305)
v(119)=v(300)*v(91)
v(352)=v(119)*v(98)
v(120)=b(4)**3
v(340)=v(120)*v(92)
v(124)=v(302)*v(96)
v(338)=b(4)*v(124)
v(336)=-(v(124)*v(98))
v(125)=v(300)*v(94)
v(127)=v(303)*v(96)
v(128)=v(305)*v(96)
v(359)=v(116)+v(128)
v(131)=v(306)*v(91)
v(132)=v(299)*v(97)
v(362)=v(132)*v(346)
v(337)=v(132)*v(91)
v(159)=v(132)*v(306)
v(133)=b(5)*v(303)
v(334)=v(133)*v(99)
v(204)=v(133)*v(307)
v(135)=v(306)*v(96)
v(313)=v(131)+v(133)+v(135)
v(203)=-(v(135)*v(307))
v(136)=v(137)*v(307)
v(139)=-(b(6)*v(308))
v(364)=(v(117)+v(139))*v(91)
v(231)=v(139)*v(305)
v(140)=v(309)*v(92)
v(160)=v(140)*v(306)
v(327)=v(136)-v(160)
v(161)=v(136)+v(159)+v(160)
v(142)=-(b(5)*v(97)*v(99))
v(342)=v(104)+v(142)
v(343)=v(342)*v(93)
v(182)=v(142)*v(303)
v(143)=-(v(309)*v(98))
v(314)=v(120)+v(143)
v(144)=1d0/((-4d0)*v(113)*v(115)+v(116)*v(117)+v(104)*v(127)+v(117)*v(128)+2d0*v(113)*v(134)+v(127)*v(142)+v(132)*v(313&
&)+v(140)*v(313)+v(125)*(2d0*v(149)+v(314))+v(310)*v(332)+v(109)*(-(v(125)*v(297))+v(311)+v(106)*(-v(312)+v(326))+v(336)&
&)+v(103)*(v(319)+v(342))+v(119)*(2d0*v(150)+v(314)-v(349))+v(139)*v(359)-v(229)*v(91)+v(136)*(v(346)+v(91))+v(229)*v(96&
&)+v(107)*(v(311)+v(106)*v(312)+(-v(134)+v(310))*v(96))+v(124)*(v(151)+v(153)-v(111)*v(99)))
dabda(1,1)=v(91)
dabda(1,2)=0d0
dabda(1,3)=0d0
dabda(1,4)=v(92)
dabda(1,5)=v(93)
dabda(1,6)=0d0
dabda(2,1)=0d0
dabda(2,2)=v(94)
dabda(2,3)=0d0
dabda(2,4)=v(92)
dabda(2,5)=0d0
dabda(2,6)=v(95)
dabda(3,1)=0d0
dabda(3,2)=0d0
dabda(3,3)=v(96)
dabda(3,4)=0d0
dabda(3,5)=v(93)
dabda(3,6)=v(95)
dabda(4,1)=b(4)
dabda(4,2)=b(4)
dabda(4,3)=0d0
dabda(4,4)=v(97)
dabda(4,5)=b(6)
dabda(4,6)=b(5)
dabda(5,1)=b(5)
dabda(5,2)=0d0
dabda(5,3)=b(5)
dabda(5,4)=b(6)
dabda(5,5)=v(98)
dabda(5,6)=b(4)
dabda(6,1)=0d0
dabda(6,2)=b(6)
dabda(6,3)=b(6)
dabda(6,4)=b(5)
dabda(6,5)=b(4)
dabda(6,6)=v(99)
v(146)=v(111)*v(156)
v(147)=-(v(106)*v(107))
v(220)=2d0*v(147)
v(148)=v(106)*v(109)
v(221)=(-2d0)*v(148)
v(152)=v(109)*v(155)
v(154)=v(316)*v(91)
v(157)=-(v(149)*v(304))
v(158)=v(161)+v(182)+v(184)
v(341)=v(158)-v(221)
v(162)=-(v(111)*v(131))
v(163)=b(5)*v(298)
v(354)=v(163)*v(93)
v(164)=v(109)*v(167)
v(165)=v(163)*v(324)
v(166)=v(149)*v(300)
v(168)=v(109)*v(177)
v(169)=v(120)*v(300)
v(170)=v(107)*v(176)
v(345)=(-2d0)*v(170)
v(171)=b(4)*b(6)*v(127)
v(172)=v(113)*v(315)
v(173)=v(315)*v(96)
v(361)=v(173)*v(99)
v(174)=v(316)*v(96)
v(175)=v(318)*v(98)
v(178)=-(b(6)*v(317))
v(179)=v(320)*v(97)
v(180)=v(318)*v(99)
v(181)=v(339)*v(99)
v(344)=v(169)+v(181)-v(220)
v(183)=v(144)*(v(111)*v(135)-v(136)+v(159)-v(160)-v(164)-v(166)-v(169)+v(170)-v(174)-v(181)+v(220)-b(4)*v(179)*v(93))
v(185)=v(144)*(-v(152)-v(157)-v(159)+v(168)-v(172)+v(107)*v(177)-v(182)-v(184)+v(221)+v(137)*v(323)+v(327))
v(186)=v(107)*v(125)+v(188)+v(194)-v(135)*v(335)
v(187)=v(106)*v(192)
v(189)=v(197)*v(95)
v(190)=v(319)*v(94)
v(191)=v(319)*v(96)
v(195)=v(320)*v(92)
v(196)=v(334)*v(92)
v(198)=v(109)*v(127)+v(203)+v(204)+v(155)*v(330)
v(199)=v(106)*v(321)
v(201)=v(213)*v(95)
v(206)=b(6)*v(303)
v(207)=v(320)*v(93)
v(208)=v(140)*v(329)
v(209)=v(197)*v(92)
v(211)=v(210)*v(321)*v(93)
v(212)=-(v(322)*v(94))
v(214)=v(213)*v(93)
v(215)=-(b(6)*v(318))
v(216)=v(323)*v(96)
v(217)=-(v(176)*v(210))
v(218)=v(133)*v(324)
v(219)=v(137)*v(300)
v(222)=v(229)+v(230)+v(231)
v(223)=-(v(107)*v(325))
v(224)=v(328)*v(98)
v(350)=v(224)+v(153)*v(91)
v(225)=v(325)*v(99)
v(226)=2d0*v(162)
v(227)=b(6)*v(163)*v(326)
v(228)=2d0*v(164)
v(232)=-(v(144)*(-(v(107)*v(131))+v(146)+v(154)+v(159)+v(162)+v(165)+v(222)+v(327)+v(333)*v(99)))
v(233)=(v(107)-v(111))*v(119)+v(234)
v(235)=v(328)*v(93)
v(236)=v(242)*v(93)
v(237)=-(v(109)*v(329))
v(351)=v(235)+v(237)
v(238)=v(178)*v(331)
v(239)=v(330)*v(91)
v(240)=b(5)*v(331)
v(241)=v(240)*v(347)
v(243)=v(242)*v(92)
v(244)=b(5)*v(305)
v(245)=v(337)*v(93)
v(246)=b(4)*v(305)
v(247)=v(111)*v(128)+v(217)+v(249)+v(156)*v(320)
v(250)=v(332)*v(91)
v(251)=2d0*v(146)
v(252)=v(333)*v(94)
v(253)=2d0*v(152)
v(254)=-(b(6)*v(302))
v(255)=-(v(103)*v(111))-v(241)+v(197)*v(91)
v(257)=-(v(107)*v(331))
v(258)=v(107)*v(304)
v(355)=v(257)+v(258)
v(259)=(-v(109)+v(111))*v(116)+v(212)
v(260)=v(107)*v(206)
v(261)=-(b(6)*v(197))
v(262)=v(113)*v(192)
v(263)=v(332)*v(95)
v(266)=v(107)*v(330)*v(95)
v(357)=v(262)+v(266)
v(267)=-(v(111)*v(95)*v(96))
v(358)=b(6)*v(180)+v(263)+v(267)
v(268)=b(4)*v(334)
v(269)=v(107)*v(244)
v(270)=v(111)*v(244)
v(271)=v(111)*v(298)
v(272)=v(348)*v(91)
v(273)=v(109)*v(335)
v(277)=v(144)*(v(247)+v(259)+v(163)*v(318)+(-(b(6)*v(124))+b(5)*v(125))*v(99))
v(278)=v(144)*(v(198)+v(255)+b(5)*v(336)+b(6)*(v(338)+v(352)))
v(279)=-(v(297)*v(322))
v(280)=v(273)*v(95)
v(360)=v(279)+v(280)
v(281)=v(107)*v(195)
v(282)=v(109)*v(195)
v(283)=v(140)*v(330)
v(284)=v(109)*v(246)
v(285)=b(4)*v(242)
v(286)=b(5)*v(337)
v(287)=v(144)*(v(186)+v(233)+b(6)*(b(5)*v(124)+v(356))-v(338)*v(97))
v(288)=v(106)*v(210)
v(289)=b(4)*v(197)
v(290)=b(4)*v(190)
v(291)=b(5)*v(213)
v(292)=b(4)*v(191)
v(293)=b(6)*v(133)*v(97)
v(294)=b(6)*v(339)
v(295)=v(271)*v(93)
v(363)=v(288)+v(295)
dabda1(1,1)=v(144)*((-2d0)*v(168)+v(171)+2d0*v(172)-v(107)*v(173)+2d0*v(174)-v(109)*v(175)-v(229)+v(180)*(-v(111)+v(308&
&))+v(178)*v(315)+v(341)+v(344)+v(345)+v(95)*(v(117)*v(346)-v(179)*v(98)))
dabda1(1,2)=v(183)
dabda1(1,3)=v(185)
dabda1(1,4)=v(144)*(v(186)-v(187)+v(188)+v(189)+v(196)+v(95)*(v(190)+v(191)+(v(195)-b(6)*v(304))*v(98))+v(180)*(v(347)&
&-v(92)*v(98)))
dabda1(1,5)=v(144)*(v(198)+v(199)+v(201)+v(203)+v(208)+v(95)*(-(v(346)*v(349))+(v(206)+v(207))*v(97))+v(180)*(v(307)-v&
&(93)*v(97)))
dabda1(1,6)=v(144)*(-v(209)+v(211)-v(212)-v(214)-v(217)-v(218)-v(219)+(b(5)*v(175)+b(4)*v(215))*v(92)+(b(4)*v(173)+b(6&
&)*v(216))*v(93))
dabda1(2,1)=v(183)
dabda1(2,2)=v(144)*(v(161)+2d0*v(165)+2d0*v(166)+v(221)+v(222)-v(111)*v(225)+v(226)+v(227)+v(228)+v(344)+v(343)*v(91)+&
&(v(343)+v(350))*v(96)+v(223)*v(97))
dabda1(2,3)=v(232)
dabda1(2,4)=v(144)*(-v(187)+v(194)+v(233)+v(234)+v(236)-v(238)+v(95)*(v(351)+v(239)*v(98))+(-v(352)+v(135)*v(92)+v(240&
&)*v(93))*v(99))
dabda1(2,5)=v(144)*(-v(199)-v(201)-v(203)-v(208)+v(241)-v(243)-v(245)+v(225)*v(307)+v(96)*(-(b(4)*v(240))-b(6)*v(244)+v&
&(246)*v(97)))
dabda1(2,6)=v(144)*(-v(211)+v(214)+v(217)+v(219)+v(247)+v(351)*v(92)+v(240)*v(96)*v(98)+v(97)*(v(244)*v(93)+v(135)*v(95&
&)-v(128)*v(98)))
dabda1(3,1)=v(185)
dabda1(3,2)=v(232)
dabda1(3,3)=v(144)*(-(v(107)*v(134))+2d0*v(154)+2d0*v(157)+v(220)+v(222)+v(251)+v(252)+v(253)+v(341)+v(340)*v(91)+(v&
&(340)+v(350))*v(94)+(v(250)+v(365))*v(99))
dabda1(3,4)=v(144)*(v(187)-v(188)-v(189)-v(196)-v(234)-v(236)+v(238)+b(4)*v(254)*v(95)+b(5)*v(116)*v(98)+v(94)*(-v(354)&
&+v(244)*v(99)))
dabda1(3,5)=v(144)*(v(199)+v(204)-v(241)+v(243)+v(245)+v(255)+v(140)*v(93)*(v(91)+v(94))+v(355)*v(95)+v(97)*(b(4)*v(116&
&)-v(103)*v(99)))
dabda1(3,6)=v(144)*(v(209)-v(211)+v(212)+v(218)+v(249)+v(259)-v(137)*v(304)+b(4)*v(356)+v(355)*v(93)+(v(246)*v(92)-v&
&(116)*v(97))*v(98))
dabda1(4,1)=v(144)*(v(188)-v(261)+v(268)+v(357)+b(5)*v(358)+v(348)*v(94)+(v(348)+(-(b(4)*v(109))+v(120))*v(94))*v(96)-b&
&(4)*v(180)*v(98))
dabda1(4,2)=v(144)*(-(v(109)*v(207))+v(234)+b(6)*v(235)+v(270)+v(272)+v(357)+(-v(271)+(v(150)+v(314))*v(91))*v(96)+(b(4&
&)*v(135)+v(354))*v(99))
dabda1(4,3)=v(144)*(v(260)+v(261)-v(262)-v(268)+v(269)-v(270)-v(272)-v(273)*v(91)+(-v(271)+(v(149)+v(150))*v(91))*v(94)&
&)
dabda1(4,4)=v(144)*(-v(226)+2d0*v(252)-v(334)*v(91)+v(223)*v(94)+b(6)*((-v(131)+v(313))*v(95)-v(359)*v(98))+v(180)*(-v&
&(306)+v(91)*v(98)))
dabda1(4,5)=v(277)
dabda1(4,6)=v(278)
dabda1(5,1)=v(144)*(v(203)+v(107)*v(216)+v(281)+v(283)+v(104)*v(318)+b(4)*v(358)+v(360)+b(5)*(-v(361)+v(362)))
dabda1(5,2)=v(144)*((-v(107)-v(111))*v(239)-v(279)-v(281)+v(282)-v(283)+v(284)-v(285)-v(286)+b(4)*(b(6)*v(225)+v(179)*v&
&(91)))
dabda1(5,3)=v(144)*(-v(241)+b(5)*v(250)+v(285)+v(286)+v(240)*v(309)+b(6)*(b(4)*v(134)+v(355))+v(360)+(b(5)*v(140)+v(342&
&)*v(91))*v(94))
dabda1(5,4)=v(277)
dabda1(5,5)=v(144)*(-(v(109)*v(124))+2d0*v(227)-v(251)-v(140)*v(318)-v(345)+b(4)*v(177)*v(92)+v(91)*(v(361)-v(362)-v&
&(140)*v(96)))
dabda1(5,6)=v(287)
dabda1(6,1)=v(144)*(b(4)*b(5)*(v(173)+v(175))+(v(107)+v(109))*v(215)-v(288)-v(289)-v(290)-v(291)-v(292)-v(293)+v(294))
dabda1(6,2)=v(144)*(v(217)+v(291)-v(294)+b(4)*v(351)+v(363)+b(6)*(v(223)+(-v(133)+v(313))*v(97))+v(96)*(v(364)+v(163)*v&
&(98)))
dabda1(6,3)=v(144)*(v(212)-v(107)*v(240)+v(109)*v(254)+b(5)*v(258)+v(289)+v(293)+v(363)-b(6)*v(365)+v(94)*(v(364)+v(163&
&)*v(97)))
dabda1(6,4)=v(278)
dabda1(6,5)=v(287)
dabda1(6,6)=v(144)*(-(v(111)*v(124))+2d0*v(171)-v(228)-v(253)+v(354)*v(92)+(-(b(5)*v(103))-v(135)*v(94))*v(97)+(v(353&
&)*v(96)+v(124)*v(97))*v(98))
case(4)
v(45)=2d0*b(1)
v(46)=2d0*b(4)
v(60)=-(b(4)*v(46))
v(47)=2d0*b(2)
v(48)=2d0*b(3)
v(58)=v(47)*v(48)
v(49)=b(1)+b(2)
v(59)=v(45)*v(49)
v(53)=v(49)*v(58)
v(50)=v(48)*v(60)
v(51)=1d0/((v(45)+v(47))*v(50)+v(45)*v(53))
dabda(1,1)=v(45)
dabda(1,2)=0d0
dabda(1,3)=0d0
dabda(1,4)=v(46)
dabda(2,1)=0d0
dabda(2,2)=v(47)
dabda(2,3)=0d0
dabda(2,4)=v(46)
dabda(3,1)=0d0
dabda(3,2)=0d0
dabda(3,3)=v(48)
dabda(3,4)=0d0
dabda(4,1)=b(4)
dabda(4,2)=b(4)
dabda(4,3)=0d0
dabda(4,4)=v(49)
v(54)=-(v(50)*v(51))
v(55)=v(51)*v(58)
v(56)=-(v(45)*v(48)*v(51))
dabda1(1,1)=v(51)*(v(50)+v(53))
dabda1(1,2)=v(54)
dabda1(1,3)=0d0
dabda1(1,4)=-(v(46)*v(55))
dabda1(2,1)=v(54)
dabda1(2,2)=v(51)*(v(50)+v(48)*v(59))
dabda1(2,3)=0d0
dabda1(2,4)=v(46)*v(56)
dabda1(3,1)=0d0
dabda1(3,2)=0d0
dabda1(3,3)=v(51)*(v(45)*v(60)+v(47)*(v(59)+v(60)))
dabda1(3,4)=0d0
dabda1(4,1)=-(b(4)*v(55))
dabda1(4,2)=b(4)*v(56)
dabda1(4,3)=0d0
dabda1(4,4)=v(45)*v(55)
case(3)
v(28)=2d0*b(1)
v(29)=2d0*b(3)
v(37)=-(b(3)*v(29))
v(30)=2d0*b(2)
v(31)=b(1)+b(2)
v(38)=v(30)*v(31)
v(32)=1d0/((v(28)+v(30))*v(37)+v(28)*v(38))
v(40)=-(v(28)*v(32))
v(39)=v(30)*v(32)
dabda(1,1)=v(28)
dabda(1,2)=0d0
dabda(1,3)=v(29)
dabda(2,1)=0d0
dabda(2,2)=v(30)
dabda(2,3)=v(29)
dabda(3,1)=b(3)
dabda(3,2)=b(3)
dabda(3,3)=v(31)
v(34)=v(37)
v(35)=-(v(32)*v(37))
dabda1(1,1)=v(32)*(v(34)+v(38))
dabda1(1,2)=v(35)
dabda1(1,3)=-(v(29)*v(39))
dabda1(2,1)=v(35)
dabda1(2,2)=v(32)*(v(28)*v(31)+v(34))
dabda1(2,3)=v(29)*v(40)
dabda1(3,1)=-(b(3)*v(39))
dabda1(3,2)=b(3)*v(40)
dabda1(3,3)=v(28)*v(39)
case default
stop "error in"
end SELECT
END SUBROUTINE detabba



FUNCTION voigt(nvoigt,matr)
IMPLICIT REAL(8)(a-h,o-z)
REAL(8),DIMENSION(:,:)::matr
REAL(8),DIMENSION(nvoigt)::voigt
ndi=ndifromvoigt(nvoigt)
DO ij=1,nvoigt
CALL apomat(i,j,ij,ndi)
voigt(ij)=matr(i,j)
END DO
END FUNCTION voigt
FUNCTION tensor(ndi,v)
IMPLICIT REAL(8)(a-h,o-z)
REAL(8),DIMENSION(ndi,ndi)::tensor
REAL(8),DIMENSION(:)::v
nvoigt=SIZE(v)
CALL pconsr(ndi*ndi,tensor)
DO ij=1,nvoigt
CALL apomat(i,j,ij,ndi)
tensor(i,j)=v(ij)
tensor(j,i)=v(ij)
END DO
END FUNCTION tensor
SUBROUTINE voigtabba(a,b,abba,da,db)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(50000)::v
REAL(8),DIMENSION(:)::a,b,abba
REAL(8),DIMENSION(:,:)::da,db
nvoigt=SIZE(a)
SELECT CASE(nvoigt)
CASE(6)
v(114)=a(2)+a(3)
v(113)=a(1)+a(3)
v(112)=a(1)+a(2)
v(111)=b(2)+b(3)
v(110)=b(1)+b(3)
v(109)=b(1)+b(2)
v(108)=2d0*b(3)
v(107)=2d0*b(2)
v(106)=2d0*b(1)
v(105)=2d0*b(6)
v(104)=2d0*b(5)
v(103)=2d0*b(4)
v(91)=a(4)*v(103)
v(92)=a(5)*v(104)
v(93)=a(6)*v(105)
abba(1)=a(1)*v(106)+v(91)+v(92)
abba(2)=a(2)*v(107)+v(91)+v(93)
abba(3)=a(3)*v(108)+v(92)+v(93)
abba(4)=a(6)*b(5)+a(5)*b(6)+a(4)*v(109)+b(4)*v(112)
abba(5)=a(6)*b(4)+a(4)*b(6)+a(5)*v(110)+b(5)*v(113)
abba(6)=a(5)*b(4)+a(4)*b(5)+a(6)*v(111)+b(6)*v(114)
v(95)=v(103)
v(96)=v(104)
v(97)=v(105)
da(1,1)=v(106)
da(1,2)=0d0
da(1,3)=0d0
da(1,4)=v(95)
da(1,5)=v(96)
da(1,6)=0d0
da(2,1)=0d0
da(2,2)=v(107)
da(2,3)=0d0
da(2,4)=v(95)
da(2,5)=0d0
da(2,6)=v(97)
da(3,1)=0d0
da(3,2)=0d0
da(3,3)=v(108)
da(3,4)=0d0
da(3,5)=v(96)
da(3,6)=v(97)
da(4,1)=b(4)
da(4,2)=b(4)
da(4,3)=0d0
da(4,4)=v(109)
da(4,5)=b(6)
da(4,6)=b(5)
da(5,1)=b(5)
da(5,2)=0d0
da(5,3)=b(5)
da(5,4)=b(6)
da(5,5)=v(110)
da(5,6)=b(4)
da(6,1)=0d0
da(6,2)=b(6)
da(6,3)=b(6)
da(6,4)=b(5)
da(6,5)=b(4)
da(6,6)=v(111)
v(99)=2d0*a(4)
v(100)=2d0*a(5)
v(101)=2d0*a(6)
db(1,1)=2d0*a(1)
db(1,2)=0d0
db(1,3)=0d0
db(1,4)=v(99)
db(1,5)=v(100)
db(1,6)=0d0
db(2,1)=0d0
db(2,2)=2d0*a(2)
db(2,3)=0d0
db(2,4)=v(99)
db(2,5)=0d0
db(2,6)=v(101)
db(3,1)=0d0
db(3,2)=0d0
db(3,3)=2d0*a(3)
db(3,4)=0d0
db(3,5)=v(100)
db(3,6)=v(101)
db(4,1)=a(4)
db(4,2)=a(4)
db(4,3)=0d0
db(4,4)=v(112)
db(4,5)=a(6)
db(4,6)=a(5)
db(5,1)=a(5)
db(5,2)=0d0
db(5,3)=a(5)
db(5,4)=a(6)
db(5,5)=v(113)
db(5,6)=a(4)
db(6,1)=0d0
db(6,2)=a(6)
db(6,3)=a(6)
db(6,4)=a(5)
db(6,5)=a(4)
db(6,6)=v(114)
CASE(4)
v(63)=a(1)+a(2)
v(62)=b(1)+b(2)
v(61)=2d0*a(3)
v(60)=2d0*a(2)
v(59)=2d0*a(1)
v(46)=2d0*b(4)
v(51)=2d0*a(4)
da(1,1)=2d0*b(1)
da(1,2)=0d0
da(1,3)=0d0
da(1,4)=v(46)
da(2,1)=0d0
da(2,2)=2d0*b(2)
da(2,3)=0d0
da(2,4)=v(46)
da(3,1)=0d0
da(3,2)=0d0
da(3,3)=2d0*b(3)
da(3,4)=0d0
da(4,1)=b(4)
da(4,2)=b(4)
da(4,3)=0d0
da(4,4)=v(62)
db(1,1)=v(59)
db(1,2)=0d0
db(1,3)=0d0
db(1,4)=v(51)
db(2,1)=0d0
db(2,2)=v(60)
db(2,3)=0d0
db(2,4)=v(51)
db(3,1)=0d0
db(3,2)=0d0
db(3,3)=v(61)
db(3,4)=0d0
db(4,1)=a(4)
db(4,2)=a(4)
db(4,3)=0d0
db(4,4)=v(63)
v(57)=b(4)*v(51)
abba(1)=v(57)+b(1)*v(59)
abba(2)=v(57)+b(2)*v(60)
abba(3)=b(3)*v(61)
abba(4)=a(4)*v(62)+b(4)*v(63)
CASE(3)
v(38)=a(1)+a(2)
v(37)=b(1)+b(2)
v(36)=2d0*b(2)
v(35)=2d0*b(1)
v(34)=2d0*b(3)
v(28)=a(3)*v(34)
abba(1)=v(28)+a(1)*v(35)
abba(2)=v(28)+a(2)*v(36)
abba(3)=a(3)*v(37)+b(3)*v(38)
v(30)=v(34)
da(1,1)=v(35)
da(1,2)=0d0
da(1,3)=v(30)
da(2,1)=0d0
da(2,2)=v(36)
da(2,3)=v(30)
da(3,1)=b(3)
da(3,2)=b(3)
da(3,3)=v(37)
v(32)=2d0*a(3)
db(1,1)=2d0*a(1)
db(1,2)=0d0
db(1,3)=v(32)
db(2,1)=0d0
db(2,2)=2d0*a(2)
db(2,3)=v(32)
db(3,1)=a(3)
db(3,2)=a(3)
db(3,3)=v(38)
CASE default
STOP "error in voigtabba"
END SELECT
END SUBROUTINE voigtabba
SUBROUTINE voigtff(f,res,ityp,ndi)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(ndi,ndi)::f
REAL(8),DIMENSION(ndi*(ndi+1)/2)::res
n=ndi*(ndi+1)/2
SELECT CASE(ityp)
CASE(1)
DO i=1,n
rtemp=0.0d00
CALL apomat(id,jd,i,ndi)
DO kd=1,ndi
rtemp=rtemp+f(id,kd)*f(jd,kd)
END DO
res(i)=rtemp
END DO
CASE(2)
DO i=1,n
rtemp=0.0d00
CALL apomat(id,jd,i,ndi)
DO kd=1,ndi
rtemp=rtemp+f(kd,id)*f(kd,jd)
END DO
res(i)=rtemp
END DO
END SELECT
END SUBROUTINE voigtff
SUBROUTINE ellipttri(emin,vmin,s,ds)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(2)::vmin
REAL(8),DIMENSION(3)::s
REAL(8),DIMENSION(3,3)::ds
REAL(8),DIMENSION(2)::norm
REAL(8),DIMENSION(2,2)::qstar
REAL(8),DIMENSION(2,2,2,2)::g
REAL(8),DIMENSION(10000)::gamma
DO i=1,2
DO j=1,2
CALL aprmat(i,j,ij,2)
DO m=1,2
DO n=1,2
CALL aprmat(m,n,mn,2)
CALL aprmat(j,n,jn,2)
g(i,j,m,n)=ds(ij,mn)+deltak(i,m)*s(jn)
END DO
END DO
END DO
END DO
ngamma=90
pi=4.0d00*ATAN(1.0d00)
DO i=1,ngamma
gamma(i)=1.0d00*(i*pi)/ngamma
END DO
gammamin=0.0d00
emin=1.0d55
DO ig=1,ngamma
gash=gamma(ig)
norm(1)=COS(gash)
norm(2)=SIN(gash)
DO i=1,2
DO k=1,2
rtemp=0.0d00
DO j=1,2
DO l=1,2
rtemp=rtemp+g(i,j,k,l)*norm(l)*norm(j)
END DO
END DO
qstar(i,k)=rtemp
END DO
END DO
CALL simmat(2,qstar,qstar)
eminthis=.5d00*(qstar(1,1)+qstar(2,2)-SQRT(qstar(1,1)**2+4.0d00*qstar(1,2)**2-2.0d00*qstar(1,1)*qstar(2,2)+qstar(2,2)**2))
IF(eminthis.LT.emin)THEN
vmin=norm
emin=eminthis
gammamin=gash
END IF
END DO
END SUBROUTINE ellipttri
SUBROUTINE condest(fi,ri,nt,nc,ier)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(nt)::fi
REAL(8),DIMENSION(nt,*)::ri
ier=0
nk=nt-nc
CALL matinv(nc,rgash,ri(nk+1:nt,nk+1:nt),ri(nk+1:nt,nk+1:nt),.FALSE.)
DO j=1,nk
DO l=1,nc
DO k=1,nc
DO i=1,nk
ri(i,j)=ri(i,j)-ri(i,k+nk)*ri(k+nk,l+nk)*ri(l+nk,j)
ENDDO
ENDDO
ENDDO
ENDDO
DO i=1,nk
DO k=1,nc
DO l=1,nc
fi(i)=fi(i)-ri(i,k+nk)*ri(k+nk,l+nk)*fi(l+nk)
ENDDO
ENDDO
ENDDO
END SUBROUTINE condest
SUBROUTINE voigtinverse(nvoigt,t,tinverse)
IMPLICIT REAL(8)(a-h,o-z)
REAL(8),DIMENSION(:)::t,tinverse
REAL(8),DIMENSION(3,3)::tinv
tinv=0.0d00
ndi=ndifromvoigt(SIZE(t))
tinv(1:ndi,1:ndi)=tensor(ndi,t)
CALL matinv(ndi,det,tinv(1:ndi,1:ndi),tinv(1:ndi,1:ndi),.TRUE.)
tinverse=voigt(nvoigt,tinv)
END SUBROUTINE voigtinverse
REAL(8) FUNCTION voigtip(a,b,nvoigt)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::a,b
ndi=ndifromvoigt(nvoigt)
r=0.d00
DO i=1,ndi
r=r+a(i)*b(i)
END DO
DO i=ndi+1,nvoigt
r=r+2.0d00*a(i)*b(i)
END DO
voigtip=r
END FUNCTION voigtip
SUBROUTINE updmvoigt(icomp,mv,a,x)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3,3)::x
REAL(8),DIMENSION(6)::mv
SELECT CASE(icomp)
CASE(1)
mv(1)=mv(1)+(x(1,1)*x(1,1)+x(1,2)*x(1,2)+x(1,3)*x(1,3))*a
CASE(2)
mv(2)=mv(2)+(x(2,1)*x(2,1)+x(2,2)*x(2,2)+x(2,3)*x(2,3))*a
CASE(3)
mv(3)=mv(3)+(x(3,1)*x(3,1)+x(3,2)*x(3,2)+x(3,3)*x(3,3))*a
CASE(4)
mv(4)=mv(4)+(x(1,1)*x(2,1)+x(1,2)*x(2,2)+x(1,3)*x(2,3))*a
CASE(5)
mv(5)=mv(5)+(x(1,1)*x(3,1)+x(1,2)*x(3,2)+x(1,3)*x(3,3))*a
CASE(6)
mv(6)=mv(6)+(x(2,1)*x(3,1)+x(2,2)*x(3,2)+x(2,3)*x(3,3))*a
END SELECT
END SUBROUTINE updmvoigt
SUBROUTINE updmvoigt2(icomp,dmt,a,x,t)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3,3)::x,t
REAL(8),DIMENSION(6)::dmt
t11=t(1,1)
t22=t(2,2)
t33=t(3,3)
t12=t(1,2)
t21=t(2,1)
t13=t(1,3)
t31=t(3,1)
t23=t(2,3)
t32=t(3,2)
x11=x(1,1)
x22=x(2,2)
x33=x(3,3)
x12=x(1,2)
x21=x(2,1)
x13=x(1,3)
x31=x(3,1)
x23=x(2,3)
x32=x(3,2)
gg218=t21*x11
gg219=t22*x12
gg220=t23*x13
gg221=t11*x21
gg222=t12*x22
gg223=t13*x23
gg224=gg218+gg219+gg220+gg221+gg222+gg223
gg225=t31*x11
gg226=t32*x12
gg227=t33*x13
gg228=t11*x31
gg229=t12*x32
gg230=t13*x33
gg231=gg225+gg226+gg227+gg228+gg229+gg230
gg236=t31*x21
gg237=t32*x22
gg238=t33*x23
gg239=t21*x31
gg240=t22*x32
gg241=t23*x33
gg242=gg236+gg237+gg238+gg239+gg240+gg241
SELECT CASE(icomp)
CASE(1)
dmt(1)=dmt(1)+(2.d0*t11*x11+2.d0*t12*x12+2.d0*t13*x13)*a
CASE(2)
dmt(2)=dmt(2)+(2.d0*t21*x21+2.d0*t22*x22+2.d0*t23*x23)*a
CASE(3)
dmt(3)=dmt(3)+(2.d0*t31*x31+2.d0*t32*x32+2.d0*t33*x33)*a
CASE(4)
dmt(4)=dmt(4)+gg224*a
CASE(5)
dmt(5)=dmt(5)+gg231*a
CASE(6)
dmt(6)=dmt(6)+gg242*a
END SELECT
END SUBROUTINE updmvoigt2
subroutine sortedeig(str,eig,deig,ddeig)
implicit real(8)(a-h,o-z)
DOUBLE PRECISION str(6),eigtemp(3),deigtemp(3,6),ddeigtemp(3,6,6),eig(3),deig(3,6),ddeig(3,6,6)
integer,dimension(3)::oldpos
call valoresproprios(str,eigtemp,deigtemp,ddeigtemp)
imax=indmaxss(3,eigtemp)
imin=indminss(3,eigtemp)
do i=1,3
if(i.ne.imin.and.i.ne.imax)then
imed=i
end if
end do
oldpos(1)=imax
oldpos(2)=imed
oldpos(3)=imin
do i=1,3
eig(i)=eigtemp(oldpos(i))
do j=1,6
deig(i,j)=deigtemp(oldpos(i),j)
do k=1,6
ddeig(i,j,k)=ddeigtemp(oldpos(i),j,k)
end do
end do
end do
end subroutine sortedeig
SUBROUTINE valoresproprios(str,eig,deig,ddeig)
IMPLICIT NONE
LOGICAL b144,b145,b152,b154
DOUBLE PRECISION v(50001),str(6),eig(3),deig(3,6),ddeig(3,6,6)
v(177)=str(1)*str(2)
v(163)=str(1)+str(2)
v(266)=v(163)/3d0
v(172)=str(1)*str(3)
v(168)=str(2)*str(3)
v(162)=str(1)+str(3)
v(679)=v(162)/3d0
v(161)=str(2)+str(3)
v(680)=v(161)/3d0
v(158)=2d0*str(4)
v(259)=(2d0/3d0)*v(158)
v(258)=-v(158)/3d0
v(138)=str(4)**2
v(681)=v(138)-v(177)
v(159)=2d0*str(5)
v(255)=(2d0/3d0)*v(159)
v(254)=-v(159)/3d0
v(139)=str(5)**2
v(248)=2d0*str(6)
v(180)=str(5)*v(248)
v(250)=-v(248)/3d0
v(249)=(2d0/3d0)*v(248)
v(140)=str(6)**2
v(136)=str(1)+v(161)
v(267)=v(136)/3d0
v(263)=(-4d0/9d0)*v(136)
v(271)=v(263)+2d0*v(266)
v(269)=v(263)+v(266)+v(267)
v(270)=-str(1)+v(269)+v(679)
v(268)=-str(2)+v(269)+v(680)
v(252)=(-2d0/3d0)*v(136)
v(677)=-v(161)-v(252)
v(676)=-v(162)-v(252)
v(675)=-v(163)-v(252)
v(261)=2d0*str(3)+v(252)
v(257)=2d0*str(2)+v(252)
v(253)=2d0*str(1)+v(252)
v(186)=-(str(4)*v(159))+v(248)*v(677)
v(184)=-(str(4)*v(248))+v(159)*v(676)
v(182)=-v(180)+v(158)*v(675)
v(170)=(v(136)*v(136))
v(174)=(-2d0/9d0)*v(170)
v(167)=-v(675)
v(166)=-v(676)
v(164)=-v(677)
v(137)=-v(138)-v(139)-v(140)+v(168)+v(172)+v(177)
v(175)=v(137)/3d0
v(678)=v(174)+v(175)
v(179)=v(163)*v(267)+v(678)+v(681)
v(176)=v(139)-v(172)+v(678)+v(136)*v(679)
v(171)=v(140)-v(168)+v(678)+v(136)*v(680)
v(142)=v(137)-v(170)/3d0
v(143)=(-2d0/27d0)*v(136)**3+str(2)*v(139)+str(1)*v(140)+v(136)*v(175)-str(4)*v(180)+str(3)*v(681)
IF(v(142).gt.(-1.d-12)) THEN
v(149)=v(267)
IF(v(143).le.0.1d-8) THEN
v(272)=0d0
v(273)=0d0
v(274)=0d0
v(275)=0d0
v(276)=0d0
v(277)=0d0
v(187)=0.3333333333333333d0
v(278)=0d0
v(279)=0d0
v(280)=0d0
v(281)=0d0
v(282)=0d0
v(283)=0d0
v(188)=0.3333333333333333d0
v(284)=0d0
v(285)=0d0
v(286)=0d0
v(287)=0d0
v(288)=0d0
v(289)=0d0
v(189)=0.3333333333333333d0
v(290)=0d0
v(291)=0d0
v(292)=0d0
v(293)=0d0
v(294)=0d0
v(295)=0d0
v(190)=0d0
v(296)=0d0
v(297)=0d0
v(298)=0d0
v(299)=0d0
v(300)=0d0
v(301)=0d0
v(191)=0d0
v(302)=0d0
v(303)=0d0
v(304)=0d0
v(305)=0d0
v(306)=0d0
v(307)=0d0
v(192)=0d0
v(146)=v(267)
v(308)=0d0
v(309)=0d0
v(310)=0d0
v(311)=0d0
v(312)=0d0
v(313)=0d0
v(193)=0.3333333333333333d0
v(314)=0d0
v(315)=0d0
v(316)=0d0
v(317)=0d0
v(318)=0d0
v(319)=0d0
v(194)=0.3333333333333333d0
v(320)=0d0
v(321)=0d0
v(322)=0d0
v(323)=0d0
v(324)=0d0
v(325)=0d0
v(195)=0.3333333333333333d0
v(326)=0d0
v(327)=0d0
v(328)=0d0
v(329)=0d0
v(330)=0d0
v(331)=0d0
v(196)=0d0
v(332)=0d0
v(333)=0d0
v(334)=0d0
v(335)=0d0
v(336)=0d0
v(337)=0d0
v(197)=0d0
v(338)=0d0
v(339)=0d0
v(340)=0d0
v(341)=0d0
v(342)=0d0
v(343)=0d0
v(198)=0d0
v(147)=v(267)
v(344)=0d0
v(345)=0d0
v(346)=0d0
v(347)=0d0
v(348)=0d0
v(349)=0d0
v(199)=0.3333333333333333d0
v(350)=0d0
v(351)=0d0
v(352)=0d0
v(353)=0d0
v(354)=0d0
v(355)=0d0
v(200)=0.3333333333333333d0
v(356)=0d0
v(357)=0d0
v(358)=0d0
v(359)=0d0
v(360)=0d0
v(361)=0d0
v(201)=0.3333333333333333d0
v(362)=0d0
v(363)=0d0
v(364)=0d0
v(365)=0d0
v(366)=0d0
v(367)=0d0
v(202)=0d0
v(368)=0d0
v(369)=0d0
v(370)=0d0
v(371)=0d0
v(372)=0d0
v(373)=0d0
v(203)=0d0
v(374)=0d0
v(375)=0d0
v(376)=0d0
v(377)=0d0
v(378)=0d0
v(379)=0d0
v(204)=0d0
v(148)=v(149)
ELSE
v(689)=-v(186)/3d0
v(688)=-v(184)/3d0
v(687)=-v(182)/3d0
v(686)=-v(179)/3d0
v(685)=-v(176)/3d0
v(684)=-v(171)/3d0
v(381)=1d0/v(143)**0.16666666666666669d1
v(682)=(-2d0/3d0)*v(381)
v(386)=v(186)*v(682)
v(385)=v(184)*v(682)
v(384)=v(182)*v(682)
v(383)=v(179)*v(682)
v(382)=v(176)*v(682)
v(205)=1d0/v(143)**0.6666666666666666d0
v(683)=-v(205)/3d0
v(392)=v(250)*v(683)
v(391)=v(254)*v(683)
v(390)=v(271)*v(683)
v(389)=v(258)*v(683)
v(388)=v(270)*v(683)
v(387)=v(268)*v(683)
v(272)=(2d0/9d0)*(v(171)*v(171))*v(381)+v(388)
v(273)=v(390)+v(382)*v(684)
v(274)=v(387)+v(383)*v(684)
v(275)=v(389)+v(384)*v(684)
v(276)=v(391)+v(385)*v(684)
v(277)=v(249)*v(683)+v(386)*v(684)
v(187)=(1d0/3d0)+v(171)*v(683)
v(278)=v(273)
v(279)=v(387)+v(382)*v(685)
v(280)=v(388)+v(383)*v(685)
v(281)=v(389)+v(384)*v(685)
v(282)=v(255)*v(683)+v(385)*v(685)
v(283)=v(392)+v(386)*v(685)
v(188)=(1d0/3d0)+v(176)*v(683)
v(284)=v(274)
v(285)=v(280)
v(286)=v(390)+v(383)*v(686)
v(287)=v(259)*v(683)+v(384)*v(686)
v(288)=v(391)+v(385)*v(686)
v(289)=v(392)+v(386)*v(686)
v(189)=(1d0/3d0)+v(179)*v(683)
v(290)=v(275)
v(291)=v(281)
v(292)=v(287)
v(293)=v(261)*v(683)+v(384)*v(687)
v(294)=(v(205)*v(248)-v(182)*v(385))/3d0
v(295)=(v(159)*v(205)-v(182)*v(386))/3d0
v(190)=v(205)*v(687)
v(296)=v(276)
v(297)=v(282)
v(298)=v(288)
v(299)=v(294)
v(300)=v(257)*v(683)+v(385)*v(688)
v(301)=(v(158)*v(205)-v(184)*v(386))/3d0
v(191)=v(205)*v(688)
v(302)=v(277)
v(303)=v(283)
v(304)=v(289)
v(305)=v(295)
v(306)=v(301)
v(307)=v(253)*v(683)+v(386)*v(689)
v(192)=v(205)*v(689)
v(146)=-v(143)**0.3333333333333333d0+v(149)
v(308)=v(272)
v(309)=v(273)
v(310)=v(274)
v(311)=v(275)
v(312)=v(276)
v(313)=v(277)
v(193)=v(187)
v(314)=v(278)
v(315)=v(279)
v(316)=v(280)
v(317)=v(281)
v(318)=v(282)
v(319)=v(283)
v(194)=v(188)
v(320)=v(284)
v(321)=v(285)
v(322)=v(286)
v(323)=v(287)
v(324)=v(288)
v(325)=v(289)
v(195)=v(189)
v(326)=v(290)
v(327)=v(291)
v(328)=v(292)
v(329)=v(293)
v(330)=v(294)
v(331)=v(295)
v(196)=v(190)
v(332)=v(296)
v(333)=v(297)
v(334)=v(298)
v(335)=v(299)
v(336)=v(300)
v(337)=v(301)
v(197)=v(191)
v(338)=v(302)
v(339)=v(303)
v(340)=v(304)
v(341)=v(305)
v(342)=v(306)
v(343)=v(307)
v(198)=v(192)
v(147)=v(146)
v(344)=v(308)
v(345)=v(309)
v(346)=v(310)
v(347)=v(311)
v(348)=v(312)
v(349)=v(313)
v(199)=v(193)
v(350)=v(314)
v(351)=v(315)
v(352)=v(316)
v(353)=v(317)
v(354)=v(318)
v(355)=v(319)
v(200)=v(194)
v(356)=v(320)
v(357)=v(321)
v(358)=v(322)
v(359)=v(323)
v(360)=v(324)
v(361)=v(325)
v(201)=v(195)
v(362)=v(326)
v(363)=v(327)
v(364)=v(328)
v(365)=v(329)
v(366)=v(330)
v(367)=v(331)
v(202)=v(196)
v(368)=v(332)
v(369)=v(333)
v(370)=v(334)
v(371)=v(335)
v(372)=v(336)
v(373)=v(337)
v(203)=v(197)
v(374)=v(338)
v(375)=v(339)
v(376)=v(340)
v(377)=v(341)
v(378)=v(342)
v(379)=v(343)
v(204)=v(198)
v(148)=v(147)
ENDIF
ELSE
v(704)=(v(248)*v(248))
v(698)=3d0/v(142)
v(694)=-v(167)/3d0
v(693)=-v(166)/3d0
v(691)=sqrt(-v(142)/3d0)
v(400)=1d0/v(691)
v(394)=1d0/v(142)**3
v(690)=2d0*v(394)
v(398)=v(159)*v(690)
v(397)=v(158)*v(690)
v(396)=-(v(167)*v(690))
v(395)=-(v(166)*v(690))
v(393)=-(v(164)*v(690))
v(216)=1d0/v(142)**2
v(206)=v(691)
v(408)=1d0/v(206)**2
v(692)=-(v(400)*v(408))/6d0
v(412)=v(159)*v(692)
v(418)=-(v(250)*v(412))
v(411)=v(158)*v(692)
v(423)=-(v(254)*v(411))
v(417)=-(v(250)*v(411))
v(410)=-(v(167)*v(692))
v(428)=-(v(258)*v(410))
v(422)=-(v(254)*v(410))
v(416)=-(v(250)*v(410))
v(409)=-(v(166)*v(692))
v(427)=-(v(258)*v(409))
v(421)=-(v(254)*v(409))
v(415)=-(v(250)*v(409))
v(407)=-(v(164)*v(692))
v(695)=-v(407)/3d0
v(426)=-(v(258)*v(407))
v(420)=-(v(254)*v(407))
v(414)=-(v(250)*v(407))
v(435)=(2d0/9d0)*v(400)
v(437)=v(435)+v(164)*v(695)
v(436)=v(435)+v(409)*v(693)
v(433)=v(435)+v(410)*v(694)
v(431)=-v(400)/9d0
v(434)=v(431)+v(407)*v(693)
v(432)=v(431)+v(409)*v(694)
v(430)=v(431)+v(167)*v(695)
v(424)=(2d0/3d0)*v(400)
v(429)=-(v(258)*v(411))+v(424)
v(425)=-(v(254)*v(412))+v(424)
v(419)=v(424)+(v(692)*v(704))/3d0
v(213)=-(v(250)*v(400))
v(705)=2d0*v(213)
v(212)=-(v(254)*v(400))
v(211)=-(v(258)*v(400))
v(210)=v(400)*v(694)
v(209)=v(400)*v(693)
v(207)=-(v(164)*v(400))/3d0
v(157)=v(267)
v(150)=2d0*v(206)
v(696)=3d0/v(150)
v(449)=v(216)*v(696)
v(703)=-(v(186)*v(248)*v(449))
v(442)=((-6d0)*v(143))/(v(142)*v(150)**3)
v(439)=1d0/v(150)**2
v(441)=v(439)*v(698)
v(453)=v(212)*v(441)-v(159)*v(449)
v(452)=v(211)*v(441)-v(158)*v(449)
v(451)=v(210)*v(441)+v(167)*v(449)
v(450)=v(209)*v(441)+v(166)*v(449)
v(448)=v(207)*v(441)+v(164)*v(449)
v(438)=v(142)*v(143)*v(441)
v(697)=v(216)*v(438)
v(459)=-(v(212)*v(438))+v(184)*v(696)
v(458)=-(v(211)*v(438))+v(182)*v(696)
v(457)=-(v(210)*v(438))+v(179)*v(696)
v(456)=-(v(209)*v(438))+v(176)*v(696)
v(455)=-(v(207)*v(438))+v(171)*v(696)
v(446)=v(184)*v(441)+v(212)*v(442)+v(159)*v(697)
v(445)=v(182)*v(441)+v(211)*v(442)+v(158)*v(697)
v(444)=v(179)*v(441)+v(210)*v(442)-v(167)*v(697)
v(443)=v(176)*v(441)+v(209)*v(442)-v(166)*v(697)
v(440)=v(171)*v(441)+v(207)*v(442)-v(164)*v(697)
v(218)=v(438)/v(142)
v(217)=-(v(698)/v(150))
v(489)=v(217)*v(270)
v(487)=v(217)*v(268)
v(484)=v(217)*v(271)
v(476)=v(217)*v(258)
v(470)=v(217)*v(254)
v(463)=v(217)*v(250)
v(214)=v(143)*v(696)
v(706)=v(214)*v(398)+v(216)*v(459)
v(702)=v(214)*v(397)+v(216)*v(458)
v(701)=v(214)*v(396)+v(216)*v(457)
v(700)=v(214)*v(395)+v(216)*v(456)
v(699)=v(214)*v(393)+v(216)*v(455)
v(486)=(-2d0/3d0)*v(214)*v(216)
v(709)=(-0.15d1)*v(486)
v(708)=0.15d1*v(486)
v(707)=0.15d1*v(486)
v(490)=v(218)*v(437)+v(207)*v(440)+v(171)*v(448)+v(486)+v(489)+v(164)*v(699)
v(488)=v(218)*v(436)+v(209)*v(443)+v(176)*v(450)+v(486)+v(487)+v(166)*v(700)
v(483)=v(218)*v(433)+v(210)*v(444)+v(179)*v(451)+v(484)+v(486)+v(167)*v(701)
v(481)=-v(486)/2d0
v(485)=v(218)*v(434)+v(209)*v(440)+v(176)*v(448)+v(481)+v(484)+v(166)*v(699)
v(482)=v(218)*v(432)+v(210)*v(443)+v(179)*v(450)+v(481)+v(489)+v(167)*v(700)
v(480)=v(218)*v(430)+v(210)*v(440)+v(179)*v(448)+v(481)+v(487)+v(167)*v(699)
v(478)=v(217)*v(259)+v(218)*v(428)+v(211)*v(444)+v(182)*v(451)-v(158)*v(701)
v(477)=v(218)*v(427)+v(211)*v(443)+v(182)*v(450)+v(476)-v(158)*v(700)
v(475)=v(218)*v(426)+v(211)*v(440)+v(182)*v(448)+v(476)-v(158)*v(699)
v(473)=3d0*v(486)
v(479)=v(217)*v(261)+v(218)*v(429)+v(211)*v(445)+v(182)*v(452)+v(473)-v(158)*v(702)
v(474)=v(217)*v(257)+v(218)*v(425)+v(212)*v(446)+v(184)*v(453)+v(473)-v(159)*v(706)
v(472)=-(v(217)*v(248))+v(218)*v(423)+v(212)*v(445)+v(184)*v(452)-v(159)*v(702)
v(471)=v(218)*v(422)+v(212)*v(444)+v(184)*v(451)+v(470)-v(159)*v(701)
v(469)=v(217)*v(255)+v(218)*v(421)+v(212)*v(443)+v(184)*v(450)-v(159)*v(700)
v(468)=v(218)*v(420)+v(212)*v(440)+v(184)*v(448)+v(470)-v(159)*v(699)
v(467)=v(217)*v(253)+v(218)*v(419)+(v(213)*v(213))*v(442)+v(473)+2d0*v(703)-v(214)*v(690)*v(704)+v(186)*v(441)*v(705)&
& +v(248)*v(697)*v(705)
v(466)=-(v(158)*v(217))+v(218)*v(418)+v(213)*v(446)+v(186)*v(453)-v(248)*v(706)
v(465)=-(v(159)*v(217))+v(218)*v(417)+v(213)*v(445)+v(186)*v(452)-v(248)*v(702)
v(464)=v(218)*v(416)+v(213)*v(444)+v(186)*v(451)+v(463)-v(248)*v(701)
v(462)=v(218)*v(415)+v(213)*v(443)+v(186)*v(450)+v(463)-v(248)*v(700)
v(461)=v(217)*v(249)+v(218)*v(414)+v(213)*v(440)+v(186)*v(448)-v(248)*v(699)
v(223)=v(186)*v(217)+v(213)*v(218)+v(248)*v(707)
v(222)=v(184)*v(217)+v(212)*v(218)+v(159)*v(707)
v(221)=v(182)*v(217)+v(211)*v(218)+v(158)*v(708)
v(220)=v(179)*v(217)+v(210)*v(218)-v(167)*v(708)
v(219)=v(176)*v(217)+v(209)*v(218)+v(166)*v(709)
v(215)=v(171)*v(217)+v(207)*v(218)+v(164)*v(709)
v(151)=-(v(214)/v(142))
IF(v(151).lt.0d0) THEN
v(153)=0.10471975511965977d1
ELSE
v(153)=0d0
ENDIF
IF(1d0-(v(151)*v(151)).gt.0.1d-7) THEN
v(710)=2d0*v(151)
v(496)=v(223)*v(710)
v(715)=v(496)/3d0
v(495)=v(222)*v(710)
v(717)=v(495)/3d0
v(494)=v(221)*v(710)
v(719)=v(494)/3d0
v(493)=v(220)*v(710)
v(721)=v(493)/3d0
v(492)=v(219)*v(710)
v(491)=v(215)*v(710)
v(226)=(v(151)*v(151))
v(224)=1d0-v(226)
v(722)=1d0/v(224)
v(713)=-v(224)/3d0
v(497)=1d0/sqrt(v(224))
v(499)=v(497)/(2d0*v(224))
v(504)=v(496)*v(499)
v(503)=v(495)*v(499)
v(502)=v(494)*v(499)
v(501)=v(493)*v(499)
v(500)=v(492)*v(499)
v(498)=v(491)*v(499)
v(577)=1d0/(1d0+v(226)*(v(497)*v(497)))
v(726)=-v(577)/3d0
v(506)=(v(226)*v(497))/v(224)**2
v(712)=v(224)*v(506)
v(711)=v(497)+v(712)
v(511)=(v(226)*v(504)+v(496)*v(711))/v(224)
v(714)=v(504)+v(511)
v(510)=(v(226)*v(503)+v(495)*v(711))/v(224)
v(716)=v(503)+v(510)
v(509)=(v(226)*v(502)+v(494)*v(711))/v(224)
v(718)=v(502)+v(509)
v(508)=(v(226)*v(501)+v(493)*v(711))/v(224)
v(720)=v(501)+v(508)
v(507)=(v(226)*v(500)+v(492)*v(711))*v(722)
v(724)=v(500)+v(507)
v(572)=v(223)*v(711)
v(562)=v(222)*v(711)
v(565)=v(713)*(v(466)*v(711)+v(222)*v(714))+v(562)*v(715)
v(551)=v(221)*v(711)
v(556)=v(713)*(v(465)*v(711)+v(221)*v(714))+v(551)*v(715)
v(554)=v(713)*(v(472)*v(711)+v(221)*v(716))+v(551)*v(717)
v(539)=v(220)*v(711)
v(546)=v(713)*(v(464)*v(711)+v(220)*v(714))+v(539)*v(715)
v(544)=v(713)*(v(471)*v(711)+v(220)*v(716))+v(539)*v(717)
v(542)=v(713)*(v(478)*v(711)+v(220)*v(718))+v(539)*v(719)
v(526)=v(219)*v(711)
v(725)=v(526)/3d0
v(535)=v(713)*(v(462)*v(711)+v(219)*v(714))+v(526)*v(715)
v(533)=v(713)*(v(469)*v(711)+v(219)*v(716))+v(526)*v(717)
v(531)=v(713)*(v(477)*v(711)+v(219)*v(718))+v(526)*v(719)
v(529)=v(713)*(v(482)*v(711)+v(219)*v(720))+v(526)*v(721)
v(512)=v(215)*v(711)
v(723)=v(512)/3d0
v(523)=v(713)*(v(461)*v(711)+v(215)*v(714))+v(512)*v(715)
v(521)=v(713)*(v(468)*v(711)+v(215)*v(716))+v(512)*v(717)
v(519)=v(713)*(v(475)*v(711)+v(215)*v(718))+v(512)*v(719)
v(517)=v(713)*(v(480)*v(711)+v(215)*v(720))+v(512)*v(721)
v(515)=v(492)*v(723)+v(713)*(v(485)*v(711)+v(215)*v(724))
v(514)=v(713)*(v(490)*v(711)+v(215)*(v(491)*(v(506)+v(711))+v(498)*v(722)))+v(491)*v(723)
v(516)=v(515)
v(518)=v(517)
v(520)=v(519)
v(522)=v(521)
v(524)=v(523)
v(228)=-(v(224)*v(723))
v(525)=v(515)
v(528)=v(713)*(v(488)*v(711)+v(219)*v(724))+v(492)*v(725)
v(530)=v(529)
v(532)=v(531)
v(534)=v(533)
v(536)=v(535)
v(231)=-(v(224)*v(725))
v(537)=v(517)
v(538)=v(529)
v(541)=v(713)*(v(483)*v(711)+v(220)*v(720))+v(539)*v(721)
v(543)=v(542)
v(545)=v(544)
v(547)=v(546)
v(233)=v(539)*v(713)
v(548)=v(519)
v(549)=v(531)
v(550)=v(542)
v(553)=v(713)*(v(479)*v(711)+v(221)*v(718))+v(551)*v(719)
v(555)=v(554)
v(557)=v(556)
v(235)=v(551)*v(713)
v(558)=v(521)
v(559)=v(533)
v(560)=v(544)
v(561)=v(554)
v(564)=v(713)*(v(474)*v(711)+v(222)*v(716))+v(562)*v(717)
v(566)=v(565)
v(237)=v(562)*v(713)
v(567)=v(523)
v(568)=v(535)
v(569)=v(546)
v(570)=v(556)
v(571)=v(565)
v(574)=v(713)*(v(467)*v(711)+v(223)*v(714))+v(572)*v(715)
v(239)=v(572)*v(713)
v(576)=-(v(577)*v(723))
v(579)=-(v(577)*v(725))
v(581)=v(539)*v(726)
v(583)=v(551)*v(726)
v(585)=v(562)*v(726)
v(587)=v(572)*v(726)
v(156)=(0.3141592653589793d1-2d0*datan(v(151)*v(497)))/6d0
ELSE
v(514)=0d0
v(516)=0d0
v(518)=0d0
v(520)=0d0
v(522)=0d0
v(524)=0d0
v(228)=0d0
v(525)=0d0
v(528)=0d0
v(530)=0d0
v(532)=0d0
v(534)=0d0
v(536)=0d0
v(231)=0d0
v(537)=0d0
v(538)=0d0
v(541)=0d0
v(543)=0d0
v(545)=0d0
v(547)=0d0
v(233)=0d0
v(548)=0d0
v(549)=0d0
v(550)=0d0
v(553)=0d0
v(555)=0d0
v(557)=0d0
v(235)=0d0
v(558)=0d0
v(559)=0d0
v(560)=0d0
v(561)=0d0
v(564)=0d0
v(566)=0d0
v(237)=0d0
v(567)=0d0
v(568)=0d0
v(569)=0d0
v(570)=0d0
v(571)=0d0
v(574)=0d0
v(239)=0d0
v(576)=0d0
v(579)=0d0
v(581)=0d0
v(583)=0d0
v(585)=0d0
v(587)=0d0
v(156)=v(153)
ENDIF
v(794)=v(212)*v(239)
v(793)=v(211)*v(239)
v(792)=v(210)*v(239)
v(791)=v(209)*v(239)
v(790)=v(207)*v(239)
v(773)=v(150)*v(571)+v(794)
v(772)=v(150)*v(570)+v(793)
v(771)=v(150)*v(569)+v(792)
v(770)=v(150)*v(568)+v(791)
v(769)=v(150)*v(567)+v(790)
v(737)=v(150)*v(239)
v(788)=v(211)*v(237)
v(787)=v(210)*v(237)
v(786)=v(209)*v(237)
v(785)=v(207)*v(237)
v(767)=v(213)*v(237)+v(150)*v(566)
v(766)=v(150)*v(561)+v(788)
v(765)=v(150)*v(560)+v(787)
v(764)=v(150)*v(559)+v(786)
v(763)=v(150)*v(558)+v(785)
v(735)=v(150)*v(237)
v(783)=v(210)*v(235)
v(782)=v(209)*v(235)
v(781)=v(207)*v(235)
v(761)=v(213)*v(235)+v(150)*v(557)
v(760)=v(212)*v(235)+v(150)*v(555)
v(759)=v(150)*v(550)+v(783)
v(758)=v(150)*v(549)+v(782)
v(757)=v(150)*v(548)+v(781)
v(733)=v(150)*v(235)
v(779)=v(209)*v(233)
v(778)=v(207)*v(233)
v(755)=v(213)*v(233)+v(150)*v(547)
v(754)=v(212)*v(233)+v(150)*v(545)
v(753)=v(211)*v(233)+v(150)*v(543)
v(752)=v(150)*v(538)+v(779)
v(751)=v(150)*v(537)+v(778)
v(731)=v(150)*v(233)
v(776)=v(207)*v(231)
v(749)=v(213)*v(231)+v(150)*v(536)
v(748)=v(212)*v(231)+v(150)*v(534)
v(747)=v(211)*v(231)+v(150)*v(532)
v(746)=v(210)*v(231)+v(150)*v(530)
v(745)=v(150)*v(525)+v(776)
v(729)=v(150)*v(231)
v(743)=v(213)*v(228)+v(150)*v(524)
v(742)=v(212)*v(228)+v(150)*v(522)
v(741)=v(211)*v(228)+v(150)*v(520)
v(740)=v(210)*v(228)+v(150)*v(518)
v(739)=v(209)*v(228)+v(150)*v(516)
v(727)=v(150)*v(228)
v(614)=dcos(v(156))
v(620)=v(587)*v(614)
v(619)=v(585)*v(614)
v(618)=v(583)*v(614)
v(617)=v(581)*v(614)
v(616)=v(579)*v(614)
v(615)=v(576)*v(614)
v(246)=0.5235987755982988d0-v(156)
v(588)=dsin(v(246))
v(594)=v(587)*v(588)
v(593)=v(585)*v(588)
v(592)=v(583)*v(588)
v(591)=v(581)*v(588)
v(590)=v(579)*v(588)
v(589)=v(576)*v(588)
v(247)=dcos(v(246))
v(795)=-(v(239)*v(247))
v(789)=-(v(237)*v(247))
v(784)=-(v(235)*v(247))
v(780)=-(v(233)*v(247))
v(777)=-(v(231)*v(247))
v(775)=-(v(228)*v(247))
v(600)=-(v(247)*v(587))
v(599)=-(v(247)*v(585))
v(598)=-(v(247)*v(583))
v(597)=-(v(247)*v(581))
v(596)=-(v(247)*v(579))
v(595)=-(v(247)*v(576))
v(671)=v(418)*v(588)
v(670)=v(417)*v(588)
v(669)=v(416)*v(588)
v(668)=v(415)*v(588)
v(667)=v(414)*v(588)
v(666)=v(423)*v(588)
v(665)=v(422)*v(588)
v(664)=v(421)*v(588)
v(663)=v(420)*v(588)
v(662)=v(428)*v(588)
v(661)=v(427)*v(588)
v(660)=v(426)*v(588)
v(659)=v(432)*v(588)
v(658)=v(430)*v(588)
v(657)=v(434)*v(588)
v(243)=0.5235987755982988d0+v(156)
v(601)=dsin(v(243))
v(607)=-(v(587)*v(601))
v(606)=-(v(585)*v(601))
v(605)=-(v(583)*v(601))
v(604)=-(v(581)*v(601))
v(603)=-(v(579)*v(601))
v(602)=-(v(576)*v(601))
v(244)=dcos(v(243))
v(774)=v(239)*v(244)
v(768)=v(237)*v(244)
v(762)=v(235)*v(244)
v(756)=v(233)*v(244)
v(750)=v(231)*v(244)
v(744)=v(228)*v(244)
v(613)=v(244)*v(587)
v(612)=v(244)*v(585)
v(611)=v(244)*v(583)
v(610)=v(244)*v(581)
v(609)=v(244)*v(579)
v(608)=v(244)*v(576)
v(656)=v(418)*v(601)
v(655)=v(417)*v(601)
v(654)=v(416)*v(601)
v(653)=v(415)*v(601)
v(652)=v(414)*v(601)
v(651)=v(423)*v(601)
v(650)=v(422)*v(601)
v(649)=v(421)*v(601)
v(648)=v(420)*v(601)
v(647)=v(428)*v(601)
v(646)=v(427)*v(601)
v(645)=v(426)*v(601)
v(644)=v(432)*v(601)
v(643)=v(430)*v(601)
v(642)=v(434)*v(601)
v(241)=dsin(v(156))
v(738)=v(239)*v(241)
v(736)=v(237)*v(241)
v(734)=v(235)*v(241)
v(732)=v(233)*v(241)
v(730)=v(231)*v(241)
v(728)=v(228)*v(241)
v(626)=-(v(241)*v(587))
v(625)=-(v(241)*v(585))
v(624)=-(v(241)*v(583))
v(623)=-(v(241)*v(581))
v(622)=-(v(241)*v(579))
v(621)=-(v(241)*v(576))
v(641)=-(v(418)*v(614))
v(640)=-(v(417)*v(614))
v(639)=-(v(416)*v(614))
v(638)=-(v(415)*v(614))
v(637)=-(v(414)*v(614))
v(636)=-(v(423)*v(614))
v(635)=-(v(422)*v(614))
v(634)=-(v(421)*v(614))
v(633)=-(v(420)*v(614))
v(632)=-(v(428)*v(614))
v(631)=-(v(427)*v(614))
v(630)=-(v(426)*v(614))
v(629)=-(v(432)*v(614))
v(628)=-(v(430)*v(614))
v(627)=-(v(434)*v(614))
v(272)=-(v(437)*v(614))+v(150)*(v(241)*v(514)+v(228)*v(615))+v(207)*(-v(621)+v(728))
v(273)=-(v(207)*v(622))+v(627)+v(616)*v(727)+v(241)*v(739)
v(274)=-(v(207)*v(623))+v(628)+v(617)*v(727)+v(241)*v(740)
v(275)=-(v(207)*v(624))+v(630)+v(618)*v(727)+v(241)*v(741)
v(276)=-(v(207)*v(625))+v(633)+v(619)*v(727)+v(241)*v(742)
v(277)=-(v(207)*v(626))+v(637)+v(620)*v(727)+v(241)*v(743)
v(187)=(1d0/3d0)-v(207)*v(614)+v(150)*v(728)
v(278)=-(v(209)*v(621))+v(627)+v(615)*v(729)+v(241)*v(745)
v(279)=-(v(436)*v(614))+v(150)*(v(241)*v(528)+v(231)*v(616))+v(209)*(-v(622)+v(730))
v(280)=-(v(209)*v(623))+v(629)+v(617)*v(729)+v(241)*v(746)
v(281)=-(v(209)*v(624))+v(631)+v(618)*v(729)+v(241)*v(747)
v(282)=-(v(209)*v(625))+v(634)+v(619)*v(729)+v(241)*v(748)
v(283)=-(v(209)*v(626))+v(638)+v(620)*v(729)+v(241)*v(749)
v(188)=(1d0/3d0)-v(209)*v(614)+v(150)*v(730)
v(284)=-(v(210)*v(621))+v(628)+v(615)*v(731)+v(241)*v(751)
v(285)=-(v(210)*v(622))+v(629)+v(616)*v(731)+v(241)*v(752)
v(286)=-(v(433)*v(614))+v(150)*(v(241)*v(541)+v(233)*v(617))+v(210)*(-v(623)+v(732))
v(287)=-(v(210)*v(624))+v(632)+v(618)*v(731)+v(241)*v(753)
v(288)=-(v(210)*v(625))+v(635)+v(619)*v(731)+v(241)*v(754)
v(289)=-(v(210)*v(626))+v(639)+v(620)*v(731)+v(241)*v(755)
v(189)=(1d0/3d0)-v(210)*v(614)+v(150)*v(732)
v(290)=-(v(211)*v(621))+v(630)+v(615)*v(733)+v(241)*v(757)
v(291)=-(v(211)*v(622))+v(631)+v(616)*v(733)+v(241)*v(758)
v(292)=-(v(211)*v(623))+v(632)+v(617)*v(733)+v(241)*v(759)
v(293)=-(v(429)*v(614))+v(150)*(v(241)*v(553)+v(235)*v(618))+v(211)*(-v(624)+v(734))
v(294)=-(v(211)*v(625))+v(636)+v(619)*v(733)+v(241)*v(760)
v(295)=-(v(211)*v(626))+v(640)+v(620)*v(733)+v(241)*v(761)
v(190)=-(v(211)*v(614))+v(150)*v(734)
v(296)=-(v(212)*v(621))+v(633)+v(615)*v(735)+v(241)*v(763)
v(297)=-(v(212)*v(622))+v(634)+v(616)*v(735)+v(241)*v(764)
v(298)=-(v(212)*v(623))+v(635)+v(617)*v(735)+v(241)*v(765)
v(299)=-(v(212)*v(624))+v(636)+v(618)*v(735)+v(241)*v(766)
v(300)=-(v(425)*v(614))+v(150)*(v(241)*v(564)+v(237)*v(619))+v(212)*(-v(625)+v(736))
v(301)=-(v(212)*v(626))+v(641)+v(620)*v(735)+v(241)*v(767)
v(191)=-(v(212)*v(614))+v(150)*v(736)
v(302)=-(v(213)*v(621))+v(637)+v(615)*v(737)+v(241)*v(769)
v(303)=-(v(213)*v(622))+v(638)+v(616)*v(737)+v(241)*v(770)
v(304)=-(v(213)*v(623))+v(639)+v(617)*v(737)+v(241)*v(771)
v(305)=-(v(213)*v(624))+v(640)+v(618)*v(737)+v(241)*v(772)
v(306)=-(v(213)*v(625))+v(641)+v(619)*v(737)+v(241)*v(773)
v(307)=-(v(419)*v(614))+v(150)*(v(241)*v(574)+v(239)*v(620))+v(213)*(-v(626)+v(738))
v(192)=-(v(213)*v(614))+v(150)*v(738)
v(146)=v(157)-v(150)*v(614)
v(308)=v(437)*v(601)+v(150)*(v(244)*v(514)+v(228)*v(602))+v(207)*(v(608)+v(744))
v(309)=v(207)*v(609)+v(642)+v(603)*v(727)+v(244)*v(739)
v(310)=v(207)*v(610)+v(643)+v(604)*v(727)+v(244)*v(740)
v(311)=v(207)*v(611)+v(645)+v(605)*v(727)+v(244)*v(741)
v(312)=v(207)*v(612)+v(648)+v(606)*v(727)+v(244)*v(742)
v(313)=v(207)*v(613)+v(652)+v(607)*v(727)+v(244)*v(743)
v(193)=(1d0/3d0)+v(207)*v(601)+v(150)*v(744)
v(314)=v(209)*v(608)+v(642)+v(602)*v(729)+v(244)*v(745)
v(315)=v(436)*v(601)+v(150)*(v(244)*v(528)+v(231)*v(603))+v(209)*(v(609)+v(750))
v(316)=v(209)*v(610)+v(644)+v(604)*v(729)+v(244)*v(746)
v(317)=v(209)*v(611)+v(646)+v(605)*v(729)+v(244)*v(747)
v(318)=v(209)*v(612)+v(649)+v(606)*v(729)+v(244)*v(748)
v(319)=v(209)*v(613)+v(653)+v(607)*v(729)+v(244)*v(749)
v(194)=(1d0/3d0)+v(209)*v(601)+v(150)*v(750)
v(320)=v(210)*v(608)+v(643)+v(602)*v(731)+v(244)*v(751)
v(321)=v(210)*v(609)+v(644)+v(603)*v(731)+v(244)*v(752)
v(322)=v(433)*v(601)+v(150)*(v(244)*v(541)+v(233)*v(604))+v(210)*(v(610)+v(756))
v(323)=v(210)*v(611)+v(647)+v(605)*v(731)+v(244)*v(753)
v(324)=v(210)*v(612)+v(650)+v(606)*v(731)+v(244)*v(754)
v(325)=v(210)*v(613)+v(654)+v(607)*v(731)+v(244)*v(755)
v(195)=(1d0/3d0)+v(210)*v(601)+v(150)*v(756)
v(326)=v(211)*v(608)+v(645)+v(602)*v(733)+v(244)*v(757)
v(327)=v(211)*v(609)+v(646)+v(603)*v(733)+v(244)*v(758)
v(328)=v(211)*v(610)+v(647)+v(604)*v(733)+v(244)*v(759)
v(329)=v(429)*v(601)+v(150)*(v(244)*v(553)+v(235)*v(605))+v(211)*(v(611)+v(762))
v(330)=v(211)*v(612)+v(651)+v(606)*v(733)+v(244)*v(760)
v(331)=v(211)*v(613)+v(655)+v(607)*v(733)+v(244)*v(761)
v(196)=v(211)*v(601)+v(150)*v(762)
v(332)=v(212)*v(608)+v(648)+v(602)*v(735)+v(244)*v(763)
v(333)=v(212)*v(609)+v(649)+v(603)*v(735)+v(244)*v(764)
v(334)=v(212)*v(610)+v(650)+v(604)*v(735)+v(244)*v(765)
v(335)=v(212)*v(611)+v(651)+v(605)*v(735)+v(244)*v(766)
v(336)=v(425)*v(601)+v(150)*(v(244)*v(564)+v(237)*v(606))+v(212)*(v(612)+v(768))
v(337)=v(212)*v(613)+v(656)+v(607)*v(735)+v(244)*v(767)
v(197)=v(212)*v(601)+v(150)*v(768)
v(338)=v(213)*v(608)+v(652)+v(602)*v(737)+v(244)*v(769)
v(339)=v(213)*v(609)+v(653)+v(603)*v(737)+v(244)*v(770)
v(340)=v(213)*v(610)+v(654)+v(604)*v(737)+v(244)*v(771)
v(341)=v(213)*v(611)+v(655)+v(605)*v(737)+v(244)*v(772)
v(342)=v(213)*v(612)+v(656)+v(606)*v(737)+v(244)*v(773)
v(343)=v(419)*v(601)+v(150)*(v(244)*v(574)+v(239)*v(607))+v(213)*(v(613)+v(774))
v(198)=v(213)*v(601)+v(150)*v(774)
v(147)=v(157)+v(150)*v(601)
v(344)=v(437)*v(588)-v(150)*(v(247)*v(514)+v(228)*v(589))+v(207)*(v(595)+v(775))
v(345)=-(v(150)*(v(247)*v(516)+v(228)*v(590)))+v(207)*v(596)+v(657)+v(209)*v(775)
v(346)=-(v(150)*(v(247)*v(518)+v(228)*v(591)))+v(207)*v(597)+v(658)+v(210)*v(775)
v(347)=-(v(150)*(v(247)*v(520)+v(228)*v(592)))+v(207)*v(598)+v(660)+v(211)*v(775)
v(348)=-(v(150)*(v(247)*v(522)+v(228)*v(593)))+v(207)*v(599)+v(663)+v(212)*v(775)
v(349)=-(v(150)*(v(247)*v(524)+v(228)*v(594)))+v(207)*v(600)+v(667)+v(213)*v(775)
v(199)=(1d0/3d0)+v(207)*v(588)+v(150)*v(775)
v(350)=-(v(150)*(v(247)*v(525)+v(231)*v(589)))+v(209)*v(595)+v(657)-v(247)*v(776)
v(351)=v(436)*v(588)-v(150)*(v(247)*v(528)+v(231)*v(590))+v(209)*(v(596)+v(777))
v(352)=-(v(150)*(v(247)*v(530)+v(231)*v(591)))+v(209)*v(597)+v(659)+v(210)*v(777)
v(353)=-(v(150)*(v(247)*v(532)+v(231)*v(592)))+v(209)*v(598)+v(661)+v(211)*v(777)
v(354)=-(v(150)*(v(247)*v(534)+v(231)*v(593)))+v(209)*v(599)+v(664)+v(212)*v(777)
v(355)=-(v(150)*(v(247)*v(536)+v(231)*v(594)))+v(209)*v(600)+v(668)+v(213)*v(777)
v(200)=(1d0/3d0)+v(209)*v(588)+v(150)*v(777)
v(356)=-(v(150)*(v(247)*v(537)+v(233)*v(589)))+v(210)*v(595)+v(658)-v(247)*v(778)
v(357)=-(v(150)*(v(247)*v(538)+v(233)*v(590)))+v(210)*v(596)+v(659)-v(247)*v(779)
v(358)=v(433)*v(588)-v(150)*(v(247)*v(541)+v(233)*v(591))+v(210)*(v(597)+v(780))
v(359)=-(v(150)*(v(247)*v(543)+v(233)*v(592)))+v(210)*v(598)+v(662)+v(211)*v(780)
v(360)=-(v(150)*(v(247)*v(545)+v(233)*v(593)))+v(210)*v(599)+v(665)+v(212)*v(780)
v(361)=-(v(150)*(v(247)*v(547)+v(233)*v(594)))+v(210)*v(600)+v(669)+v(213)*v(780)
v(201)=(1d0/3d0)+v(210)*v(588)+v(150)*v(780)
v(362)=-(v(150)*(v(247)*v(548)+v(235)*v(589)))+v(211)*v(595)+v(660)-v(247)*v(781)
v(363)=-(v(150)*(v(247)*v(549)+v(235)*v(590)))+v(211)*v(596)+v(661)-v(247)*v(782)
v(364)=-(v(150)*(v(247)*v(550)+v(235)*v(591)))+v(211)*v(597)+v(662)-v(247)*v(783)
v(365)=v(429)*v(588)-v(150)*(v(247)*v(553)+v(235)*v(592))+v(211)*(v(598)+v(784))
v(366)=-(v(150)*(v(247)*v(555)+v(235)*v(593)))+v(211)*v(599)+v(666)+v(212)*v(784)
v(367)=-(v(150)*(v(247)*v(557)+v(235)*v(594)))+v(211)*v(600)+v(670)+v(213)*v(784)
v(202)=v(211)*v(588)+v(150)*v(784)
v(368)=-(v(150)*(v(247)*v(558)+v(237)*v(589)))+v(212)*v(595)+v(663)-v(247)*v(785)
v(369)=-(v(150)*(v(247)*v(559)+v(237)*v(590)))+v(212)*v(596)+v(664)-v(247)*v(786)
v(370)=-(v(150)*(v(247)*v(560)+v(237)*v(591)))+v(212)*v(597)+v(665)-v(247)*v(787)
v(371)=-(v(150)*(v(247)*v(561)+v(237)*v(592)))+v(212)*v(598)+v(666)-v(247)*v(788)
v(372)=v(425)*v(588)-v(150)*(v(247)*v(564)+v(237)*v(593))+v(212)*(v(599)+v(789))
v(373)=-(v(150)*(v(247)*v(566)+v(237)*v(594)))+v(212)*v(600)+v(671)+v(213)*v(789)
v(203)=v(212)*v(588)+v(150)*v(789)
v(374)=-(v(150)*(v(247)*v(567)+v(239)*v(589)))+v(213)*v(595)+v(667)-v(247)*v(790)
v(375)=-(v(150)*(v(247)*v(568)+v(239)*v(590)))+v(213)*v(596)+v(668)-v(247)*v(791)
v(376)=-(v(150)*(v(247)*v(569)+v(239)*v(591)))+v(213)*v(597)+v(669)-v(247)*v(792)
v(377)=-(v(150)*(v(247)*v(570)+v(239)*v(592)))+v(213)*v(598)+v(670)-v(247)*v(793)
v(378)=-(v(150)*(v(247)*v(571)+v(239)*v(593)))+v(213)*v(599)+v(671)-v(247)*v(794)
v(379)=v(419)*v(588)-v(150)*(v(247)*v(574)+v(239)*v(594))+v(213)*(v(600)+v(795))
v(204)=v(213)*v(588)+v(150)*v(795)
v(148)=v(157)+v(150)*v(588)
ENDIF
eig(1)=v(146)
eig(2)=v(147)
eig(3)=v(148)
deig(1,1)=v(187)
deig(1,2)=v(188)
deig(1,3)=v(189)
deig(1,4)=v(190)
deig(1,5)=v(191)
deig(1,6)=v(192)
deig(2,1)=v(193)
deig(2,2)=v(194)
deig(2,3)=v(195)
deig(2,4)=v(196)
deig(2,5)=v(197)
deig(2,6)=v(198)
deig(3,1)=v(199)
deig(3,2)=v(200)
deig(3,3)=v(201)
deig(3,4)=v(202)
deig(3,5)=v(203)
deig(3,6)=v(204)
ddeig(1,1,1)=v(272)
ddeig(1,1,2)=v(273)
ddeig(1,1,3)=v(274)
ddeig(1,1,4)=v(275)
ddeig(1,1,5)=v(276)
ddeig(1,1,6)=v(277)
ddeig(1,2,1)=v(278)
ddeig(1,2,2)=v(279)
ddeig(1,2,3)=v(280)
ddeig(1,2,4)=v(281)
ddeig(1,2,5)=v(282)
ddeig(1,2,6)=v(283)
ddeig(1,3,1)=v(284)
ddeig(1,3,2)=v(285)
ddeig(1,3,3)=v(286)
ddeig(1,3,4)=v(287)
ddeig(1,3,5)=v(288)
ddeig(1,3,6)=v(289)
ddeig(1,4,1)=v(290)
ddeig(1,4,2)=v(291)
ddeig(1,4,3)=v(292)
ddeig(1,4,4)=v(293)
ddeig(1,4,5)=v(294)
ddeig(1,4,6)=v(295)
ddeig(1,5,1)=v(296)
ddeig(1,5,2)=v(297)
ddeig(1,5,3)=v(298)
ddeig(1,5,4)=v(299)
ddeig(1,5,5)=v(300)
ddeig(1,5,6)=v(301)
ddeig(1,6,1)=v(302)
ddeig(1,6,2)=v(303)
ddeig(1,6,3)=v(304)
ddeig(1,6,4)=v(305)
ddeig(1,6,5)=v(306)
ddeig(1,6,6)=v(307)
ddeig(2,1,1)=v(308)
ddeig(2,1,2)=v(309)
ddeig(2,1,3)=v(310)
ddeig(2,1,4)=v(311)
ddeig(2,1,5)=v(312)
ddeig(2,1,6)=v(313)
ddeig(2,2,1)=v(314)
ddeig(2,2,2)=v(315)
ddeig(2,2,3)=v(316)
ddeig(2,2,4)=v(317)
ddeig(2,2,5)=v(318)
ddeig(2,2,6)=v(319)
ddeig(2,3,1)=v(320)
ddeig(2,3,2)=v(321)
ddeig(2,3,3)=v(322)
ddeig(2,3,4)=v(323)
ddeig(2,3,5)=v(324)
ddeig(2,3,6)=v(325)
ddeig(2,4,1)=v(326)
ddeig(2,4,2)=v(327)
ddeig(2,4,3)=v(328)
ddeig(2,4,4)=v(329)
ddeig(2,4,5)=v(330)
ddeig(2,4,6)=v(331)
ddeig(2,5,1)=v(332)
ddeig(2,5,2)=v(333)
ddeig(2,5,3)=v(334)
ddeig(2,5,4)=v(335)
ddeig(2,5,5)=v(336)
ddeig(2,5,6)=v(337)
ddeig(2,6,1)=v(338)
ddeig(2,6,2)=v(339)
ddeig(2,6,3)=v(340)
ddeig(2,6,4)=v(341)
ddeig(2,6,5)=v(342)
ddeig(2,6,6)=v(343)
ddeig(3,1,1)=v(344)
ddeig(3,1,2)=v(345)
ddeig(3,1,3)=v(346)
ddeig(3,1,4)=v(347)
ddeig(3,1,5)=v(348)
ddeig(3,1,6)=v(349)
ddeig(3,2,1)=v(350)
ddeig(3,2,2)=v(351)
ddeig(3,2,3)=v(352)
ddeig(3,2,4)=v(353)
ddeig(3,2,5)=v(354)
ddeig(3,2,6)=v(355)
ddeig(3,3,1)=v(356)
ddeig(3,3,2)=v(357)
ddeig(3,3,3)=v(358)
ddeig(3,3,4)=v(359)
ddeig(3,3,5)=v(360)
ddeig(3,3,6)=v(361)
ddeig(3,4,1)=v(362)
ddeig(3,4,2)=v(363)
ddeig(3,4,3)=v(364)
ddeig(3,4,4)=v(365)
ddeig(3,4,5)=v(366)
ddeig(3,4,6)=v(367)
ddeig(3,5,1)=v(368)
ddeig(3,5,2)=v(369)
ddeig(3,5,3)=v(370)
ddeig(3,5,4)=v(371)
ddeig(3,5,5)=v(372)
ddeig(3,5,6)=v(373)
ddeig(3,6,1)=v(374)
ddeig(3,6,2)=v(375)
ddeig(3,6,3)=v(376)
ddeig(3,6,4)=v(377)
ddeig(3,6,5)=v(378)
ddeig(3,6,6)=v(379)
END SUBROUTINE valoresproprios
SUBROUTINE invariantsc(c,invar,dinvar,ddinvar)
IMPLICIT REAL(8)(a-z)
REAL(8),DIMENSION(6)::c
REAL(8),DIMENSION(4)::invar
REAL(8),DIMENSION(4,6),OPTIONAL::dinvar
REAL(8),DIMENSION(4,6,6),OPTIONAL::ddinvar
c11=c(1)
c22=c(2)
c33=c(3)
c12=c(4)
c13=c(5)
c23=c(6)
gg3335=c13*c13
gg3338=c23*c23
gg3333=c12*c12
invar(1)=c11+c22+c33
invar(2)=2.d0*gg3333+2.d0*gg3335+2.d0*gg3338+c11*c11+c22*c22+c33*c33
invar(3)=2.d0*c12*c13*c23+c11*c22*c33-c33*gg3333-c22*gg3335-c11*gg3338
invar(4)=1.d0*c11*c22+1.d0*c11*c33+1.d0*c22*c33-gg3333-gg3335-gg3338
IF(PRESENT(dinvar))THEN
gg2835=1.d0*c33
gg2837=1.d0*c11
gg2834=1.d0*c22
dinvar(1,1)=1.d0
dinvar(1,2)=1.d0
dinvar(1,3)=1.d0
dinvar(1,4)=0d0
dinvar(1,5)=0.
dinvar(1,6)=0d0
dinvar(2,1)=2.*c11
dinvar(2,2)=2.d0*c22
dinvar(2,3)=2.d0*c33
dinvar(2,4)=2.d0*c12
dinvar(2,5)=2.d0*c13
dinvar(2,6)=2.d0*c23
dinvar(3,1)=c22*c33-c23*c23
dinvar(3,2)=c11*c33-c13*c13
dinvar(3,3)=c11*c22-c12*c12
dinvar(3,4)=c13*c23-c12*c33
dinvar(3,5)=-(c13*c22)+c12*c23
dinvar(3,6)=c12*c13-c11*c23
dinvar(4,1)=gg2834+gg2835
dinvar(4,2)=gg2835+gg2837
dinvar(4,3)=gg2834+gg2837
dinvar(4,4)=-c12
dinvar(4,5)=-c13
dinvar(4,6)=-c23
ENDIF
IF(PRESENT(ddinvar))THEN
gg2904=-c12
gg2903=-c13
gg2906=5.d-1*c23
gg2902=-c23
gg2907=5.d-1*c13
gg2909=5.d-1*c12
ddinvar(1,1,1)=0d0
ddinvar(1,1,2)=0.
ddinvar(1,1,3)=0d0
ddinvar(1,1,4)=0.
ddinvar(1,1,5)=0d0
ddinvar(1,1,6)=0.
ddinvar(1,2,1)=0d0
ddinvar(1,2,2)=0.
ddinvar(1,2,3)=0d0
ddinvar(1,2,4)=0.
ddinvar(1,2,5)=0d0
ddinvar(1,2,6)=0.
ddinvar(1,3,1)=0d0
ddinvar(1,3,2)=0.
ddinvar(1,3,3)=0d0
ddinvar(1,3,4)=0.
ddinvar(1,3,5)=0d0
ddinvar(1,3,6)=0.
ddinvar(1,4,1)=0d0
ddinvar(1,4,2)=0.
ddinvar(1,4,3)=0d0
ddinvar(1,4,4)=0.
ddinvar(1,4,5)=0d0
ddinvar(1,4,6)=0.
ddinvar(1,5,1)=0d0
ddinvar(1,5,2)=0.
ddinvar(1,5,3)=0d0
ddinvar(1,5,4)=0.
ddinvar(1,5,5)=0d0
ddinvar(1,5,6)=0.
ddinvar(1,6,1)=0d0
ddinvar(1,6,2)=0.
ddinvar(1,6,3)=0d0
ddinvar(1,6,4)=0.
ddinvar(1,6,5)=0d0
ddinvar(1,6,6)=0.
ddinvar(2,1,1)=2.d0
ddinvar(2,1,2)=0d0
ddinvar(2,1,3)=0.
ddinvar(2,1,4)=0d0
ddinvar(2,1,5)=0.
ddinvar(2,1,6)=0d0
ddinvar(2,2,1)=0.
ddinvar(2,2,2)=2.d0
ddinvar(2,2,3)=0d0
ddinvar(2,2,4)=0.
ddinvar(2,2,5)=0d0
ddinvar(2,2,6)=0.
ddinvar(2,3,1)=0d0
ddinvar(2,3,2)=0.
ddinvar(2,3,3)=2.d0
ddinvar(2,3,4)=0d0
ddinvar(2,3,5)=0.
ddinvar(2,3,6)=0d0
ddinvar(2,4,1)=0.
ddinvar(2,4,2)=0d0
ddinvar(2,4,3)=0.
ddinvar(2,4,4)=1.d0
ddinvar(2,4,5)=0d0
ddinvar(2,4,6)=0.
ddinvar(2,5,1)=0d0
ddinvar(2,5,2)=0.
ddinvar(2,5,3)=0d0
ddinvar(2,5,4)=0.
ddinvar(2,5,5)=1.d0
ddinvar(2,5,6)=0d0
ddinvar(2,6,1)=0.
ddinvar(2,6,2)=0d0
ddinvar(2,6,3)=0.
ddinvar(2,6,4)=0d0
ddinvar(2,6,5)=0.
ddinvar(2,6,6)=1.d0
ddinvar(3,1,1)=0d0
ddinvar(3,1,2)=c33
ddinvar(3,1,3)=c22
ddinvar(3,1,4)=0.
ddinvar(3,1,5)=0d0
ddinvar(3,1,6)=gg2902
ddinvar(3,2,1)=c33
ddinvar(3,2,2)=0.
ddinvar(3,2,3)=c11
ddinvar(3,2,4)=0d0
ddinvar(3,2,5)=gg2903
ddinvar(3,2,6)=0.
ddinvar(3,3,1)=c22
ddinvar(3,3,2)=c11
ddinvar(3,3,3)=0d0
ddinvar(3,3,4)=gg2904
ddinvar(3,3,5)=0.
ddinvar(3,3,6)=0d0
ddinvar(3,4,1)=0.
ddinvar(3,4,2)=0d0
ddinvar(3,4,3)=gg2904
ddinvar(3,4,4)=-0.5*c33
ddinvar(3,4,5)=gg2906
ddinvar(3,4,6)=gg2907
ddinvar(3,5,1)=0d0
ddinvar(3,5,2)=gg2903
ddinvar(3,5,3)=0.
ddinvar(3,5,4)=gg2906
ddinvar(3,5,5)=-5.d-1*c22
ddinvar(3,5,6)=gg2909
ddinvar(3,6,1)=gg2902
ddinvar(3,6,2)=0d0
ddinvar(3,6,3)=0.
ddinvar(3,6,4)=gg2907
ddinvar(3,6,5)=gg2909
ddinvar(3,6,6)=-5.d-1*c11
ddinvar(4,1,1)=0d0
ddinvar(4,1,2)=1.
ddinvar(4,1,3)=1.d0
ddinvar(4,1,4)=0d0
ddinvar(4,1,5)=0.
ddinvar(4,1,6)=0d0
ddinvar(4,2,1)=1.
ddinvar(4,2,2)=0d0
ddinvar(4,2,3)=1.
ddinvar(4,2,4)=0d0
ddinvar(4,2,5)=0.
ddinvar(4,2,6)=0d0
ddinvar(4,3,1)=1.
ddinvar(4,3,2)=1.d0
ddinvar(4,3,3)=0d0
ddinvar(4,3,4)=0.
ddinvar(4,3,5)=0d0
ddinvar(4,3,6)=0.
ddinvar(4,4,1)=0d0
ddinvar(4,4,2)=0.
ddinvar(4,4,3)=0d0
ddinvar(4,4,4)=-0.5
ddinvar(4,4,5)=0d0
ddinvar(4,4,6)=0.
ddinvar(4,5,1)=0d0
ddinvar(4,5,2)=0.
ddinvar(4,5,3)=0d0
ddinvar(4,5,4)=0.
ddinvar(4,5,5)=-5.d-1
ddinvar(4,5,6)=0d0
ddinvar(4,6,1)=0.
ddinvar(4,6,2)=0d0
ddinvar(4,6,3)=0.
ddinvar(4,6,4)=0d0
ddinvar(4,6,5)=0.
ddinvar(4,6,6)=-5.d-1
END IF
END SUBROUTINE invariantsc
SUBROUTINE moduligen(ndi,nv,f,t,dt,dti)
IMPLICIT REAL(8)(a-h,o-z)
REAL(8),DIMENSION(ndi,ndi)::f
REAL(8),DIMENSION(nv)::t
REAL(8),DIMENSION(nv,ndi,ndi)::dti
REAL(8),DIMENSION(nv,nv)::dt
DO ij=1,nv
CALL apomat(i,j,ij,ndi)
DO kl=1,nv
CALL apomat(k,l,kl,ndi)
CALL aprmat(i,k,ik,ndi)
CALL aprmat(i,l,il,ndi)
CALL aprmat(j,k,jk,ndi)
CALL aprmat(j,l,jl,ndi)
rtemp=0.0d00
DO n=1,ndi
rtemp=rtemp+0.5d00*(dti(ij,k,n)*f(l,n)+dti(ij,l,n)*f(k,n))
END DO
dt(ij,kl)= &
rtemp-0.5d00*(t(il)*deltak(j,k)+t(ik)*deltak(j,l)) &
-0.5d00*(t(jl)*deltak(i,k)+t(jk)*deltak(i,l))
END DO
END DO
END SUBROUTINE moduligen
SUBROUTINE moduljgen(ndi,nv,f,dhe,dhf)
IMPLICIT REAL(8)(a-h,o-z)
REAL(8),DIMENSION(ndi,ndi)::f,dhf,tmp
REAL(8),DIMENSION(nv)::dhe
CALL matmat(ndi,ndi,ndi,dhf,f,tmp,0)
CALL simmat(ndi,tmp,tmp)
dhe=voigt(nv,tmp)
END SUBROUTINE moduljgen
REAL(8) FUNCTION voigtfrob(a,nvoigt)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::a
voigtfrob=SQRT(voigtip(a,a,nvoigt))
END FUNCTION voigtfrob
SUBROUTINE apomat(ic1,ic2,ic,ncd)
IF(ic.GT.ncd)THEN
SELECT CASE(ic-ncd)
CASE(1)
ic1=1
ic2=2
CASE(2)
ic1=1
ic2=3
CASE(3)
ic1=2
ic2=3
END SELECT
ELSE
ic1=ic
ic2=ic
ENDIF
END SUBROUTINE apomat
SUBROUTINE aprmat(ic1,ic2,ic,ncd)
IF(ic1.EQ.ic2)THEN
ic=ic1
ELSE
ic=ic1+ic2-2+ncd
ENDIF
END SUBROUTINE aprmat
INTEGER FUNCTION ndifromvoigt(nvoigt)
SELECT CASE(nvoigt)
CASE(1)
ndi=1
CASE(2)
ndi=1
CASE(3)
ndi=2
CASE(4)
ndi=3
CASE(6)
ndi=3
CASE default
STOP "error in ndifromvoigt"
END SELECT
ndifromvoigt=ndi
END FUNCTION ndifromvoigt
INTEGER FUNCTION icvvoigt(ndi1,iv1,ndi2)
CALL apomat(i1,i2,iv1,ndi1)
CALL aprmat(i1,i2,icvvoigt,ndi2)
END FUNCTION icvvoigt
SUBROUTINE cvvoigt(ndi1,nv1,v1,ndi2,nv2,v2)
REAL(8),DIMENSION(*)::v1,v2
CALL pconsr(nv2,v2)
IF(nv2.GT.nv1)THEN
DO iv1=1,nv1
v2(icvvoigt(ndi1,iv1,ndi2))=v1(iv1)
END DO
ELSE
DO iv2=1,nv2
v2(iv2)=v1(icvvoigt(ndi2,iv2,ndi1))
END DO
END IF
END SUBROUTINE cvvoigt
SUBROUTINE cvtensor(ndi1,m1,ndi2,m2)
implicit real(8)(a-h,o-z)
REAL(8),DIMENSION(ndi1,ndi1)::m1
REAL(8),DIMENSION(ndi2,ndi2)::m2
ndi=MIN(ndi1,ndi2)
mdi=MAX(ndi1,ndi2)
DO i=1,ndi
DO j=1,ndi
m2(j,i)=m1(j,i)
END DO
END DO
IF(ndi2.GT.ndi1)THEN
DO i=ndi1+1,ndi2
DO j=1,ndi2
m2(i,j)=0.0d00
m2(j,i)=0.0d00
END DO
END DO
DO i=ndi1+1,ndi2
m2(i,i)=1.0d00
END DO
END IF
END SUBROUTINE cvtensor
FUNCTION vonmis(st)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(6)::st
vm1=st(1)-st(2)
vm2=st(2)-st(3)
vm3=st(1)-st(3)
vm4=st(4)
vm5=st(5)
vm6=st(6)
vm=vm1*vm1+vm2*vm2+vm3*vm3+ &
6.0d00*(vm4*vm4+vm5*vm5+vm6*vm6)
vm=vm*0.5d00
vonmis=SQRT(vm)
END FUNCTION vonmis
SUBROUTINE updaterota(ndi,w,ri,rf)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(ndi,ndi)::w,ri,rf
REAL(8),DIMENSION(3,3)::rot
REAL(8),DIMENSION(3)::vec
SELECT CASE(ndi)
CASE(2)
CALL pconsr(2,vec,0.0d00)
vec(3)=w(2,1)
CASE(3)
vec(1)=w(3,2)
vec(2)=w(1,3)
vec(3)=w(2,1)
END SELECT
CALL angvec(vec,rot)
CALL matmat(ndi,ndi,ndi,rot(1:ndi,1:ndi),ri,rf,1)
END SUBROUTINE updaterota
SUBROUTINE greens(ndi,f,ev)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(ndi,ndi)::f,e,temp
REAL(8),DIMENSION(ndi*(ndi+1)/2)::ev
CALL matmat(ndi,ndi,ndi,f,f,temp,2)
DO j=1,ndi
DO i=1,ndi
e(i,j)=0.5d00*(temp(i,j)-deltak(i,j))
END DO
END DO
ev=voigt(ndi*(ndi+1)/2,e)
END SUBROUTINE greens
SUBROUTINE almansi(ndi,f,ev)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(ndi,ndi)::f,e,temp
REAL(8),DIMENSION(ndi*(ndi+1)/2)::ev
CALL matmat(ndi,ndi,ndi,f,f,temp,3)
CALL matinv(ndi,det,temp,temp,.TRUE.)
DO j=1,ndi
DO i=1,ndi
e(i,j)=0.5d00*(deltak(i,j)-temp(i,j))
END DO
END DO
ev=voigt(ndi*(ndi+1)/2,e)
END SUBROUTINE almansi

SUBROUTINE transform(ityp,ijob,ndi,r,rv)
IMPLICIT REAL(8) (a-h,o-z)
CHARACTER(*)::ityp
REAL(8),DIMENSION(ndi,ndi)::r,r2
REAL(8),DIMENSION(ndi*(ndi+1)/2,ndi*(ndi+1)/2)::rv
IF(ijob.EQ.2)THEN
CALL transp(ndi,r,r2)
ELSE
CALL copy(ndi*ndi,r2,r)
END IF
SELECT CASE(ityp)
CASE default
STOP "error in transform 1"
CASE("stress")
SELECT CASE(ndi)
CASE default
STOP "error in transform 2"
CASE(2)
r11=r2(1,1)
r22=r2(2,2)
r12=r2(1,2)
r21=r2(2,1)
t1 = r11**2
t2 = r21**2
t5 = r12**2
t6 = r22**2
rv(1,1) = t1
rv(1,2) = t2
rv(1,3) = 2.0d00*r21*r11
rv(2,1) = t5
rv(2,2) = t6
rv(2,3) = 2.0d00*r22*r12
rv(3,1) = r11*r12
rv(3,2) = r21*r22
rv(3,3) = r21*r12+r11*r22
CASE(3)
r11=r2(1,1)
r12=r2(1,2)
r13=r2(1,3)
r21=r2(2,1)
r22=r2(2,2)
r23=r2(2,3)
r31=r2(3,1)
r32=r2(3,2)
r33=r2(3,3)
t1 = r11**2
t2 = r21**2
t3 = r31**2
t10 = r12**2
t11 = r22**2
t12 = r32**2
t19 = r13**2
t20 = r23**2
t21 = r33**2
rv(1,1) = t1
rv(1,2) = t2
rv(1,3) = t3
rv(1,4) = 2.0d00*r21*r11
rv(1,5) = 2.0d00*r31*r11
rv(1,6) = 2.0d00*r31*r21
rv(2,1) = t10
rv(2,2) = t11
rv(2,3) = t12
rv(2,4) = 2.0d00*r22*r12
rv(2,5) = 2.0d00*r32*r12
rv(2,6) = 2.0d00*r32*r22
rv(3,1) = t19
rv(3,2) = t20
rv(3,3) = t21
rv(3,4) = 2.0d00*r23*r13
rv(3,5) = 2.0d00*r33*r13
rv(3,6) = 2.0d00*r33*r23
rv(4,1) = r11*r12
rv(4,2) = r21*r22
rv(4,3) = r31*r32
rv(4,4) = r21*r12+r11*r22
rv(4,5) = r31*r12+r11*r32
rv(4,6) = r31*r22+r21*r32
rv(5,1) = r11*r13
rv(5,2) = r21*r23
rv(5,3) = r31*r33
rv(5,4) = r21*r13+r11*r23
rv(5,5) = r31*r13+r11*r33
rv(5,6) = r31*r23+r21*r33
rv(6,1) = r12*r13
rv(6,2) = r22*r23
rv(6,3) = r32*r33
rv(6,4) = r22*r13+r12*r23
rv(6,5) = r32*r13+r12*r33
rv(6,6) = r32*r23+r22*r33
END SELECT
CASE("strain")
SELECT CASE(ndi)
CASE default
STOP "error in transform 3"
CASE(2)
r11=r2(1,1)
r22=r2(2,2)
r12=r2(1,2)
r21=r2(2,1)
t1 = r11**2
t2 = r21**2
t5 = r12**2
t6 = r22**2
rv(1,1) = t1
rv(1,2) = t2
rv(1,3) = r21*r11
rv(2,1) = t5
rv(2,2) = t6
rv(2,3) = r22*r12
rv(3,1) = 2.0d00*r11*r12
rv(3,2) = 2.0d00*r21*r22
rv(3,3) = r21*r12+r11*r22
CASE(3)
r11=r2(1,1)
r12=r2(1,2)
r13=r2(1,3)
r21=r2(2,1)
r22=r2(2,2)
r23=r2(2,3)
r31=r2(3,1)
r32=r2(3,2)
r33=r2(3,3)
t1 = r11**2
t2 = r21**2
t3 = r31**2
t7 = r12**2
t8 = r22**2
t9 = r32**2
t13 = r13**2
t14 = r23**2
t15 = r33**2
rv(1,1) = t1
rv(1,2) = t2
rv(1,3) = t3
rv(1,4) = r21*r11
rv(1,5) = r31*r11
rv(1,6) = r31*r21
rv(2,1) = t7
rv(2,2) = t8
rv(2,3) = t9
rv(2,4) = r22*r12
rv(2,5) = r32*r12
rv(2,6) = r32*r22
rv(3,1) = t13
rv(3,2) = t14
rv(3,3) = t15
rv(3,4) = r23*r13
rv(3,5) = r33*r13
rv(3,6) = r33*r23
rv(4,1) = 2.0d00*r11*r12
rv(4,2) = 2.0d00*r21*r22
rv(4,3) = 2.0d00*r31*r32
rv(4,4) = r21*r12+r11*r22
rv(4,5) = r31*r12+r11*r32
rv(4,6) = r31*r22+r21*r32
rv(5,1) = 2.0d00*r11*r13
rv(5,2) = 2.0d00*r21*r23
rv(5,3) = 2.0d00*r31*r33
rv(5,4) = r21*r13+r11*r23
rv(5,5) = r31*r13+r11*r33
rv(5,6) = r31*r23+r21*r33
rv(6,1) = 2.0d00*r12*r13
rv(6,2) = 2.0d00*r22*r23
rv(6,3) = 2.0d00*r32*r33
rv(6,4) = r22*r13+r12*r23
rv(6,5) = r32*r13+r12*r33
rv(6,6) = r32*r23+r22*r33
END SELECT
END SELECT
END SUBROUTINE transform
SUBROUTINE rotvoigt2(ityp,ijob,ndi,r,av)
IMPLICIT REAL(8) (a-h,o-z)
CHARACTER(*)::ityp
REAL(8),DIMENSION(ndi,ndi)::r
REAL(8),DIMENSION(ndi*(ndi+1)/2,ndi*(ndi+1)/2)::rv
REAL(8),DIMENSION(ndi*(ndi+1)/2)::av,bv
n=ndi*(ndi+1)/2
CALL transform(ityp,ijob,ndi,r,rv)
CALL copy(n,bv,av)
CALL matvec(n,n,rv,bv,av)
END SUBROUTINE rotvoigt2
REAL(8) FUNCTION svoigt(i,ncd)
IF(i.GT.ncd)THEN
svoigt=2.0d00
ELSE
svoigt=1.0d00
END IF
END FUNCTION svoigt
SUBROUTINE contravariant_modulus(y,s,c)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3,3)::y
REAL(8),DIMENSION(6)::s
REAL(8),DIMENSION(6,6)::c
CALL rotvoigt4(1,3,y,c)
CALL rotvoigt2("stress",1,3,y,s)
END SUBROUTINE contravariant_modulus
SUBROUTINE rotvoigt4(kjob,ndi,r,c)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(ndi,ndi)::r
REAL(8),DIMENSION(ndi*(ndi+1)/2,ndi*(ndi+1)/2)::r1,r2,c,c2
n=ndi*(ndi+1)/2
ijob=ABS(kjob)
CALL transform("stress",ijob,ndi,r,r1)
IF(ijob.EQ.1)THEN
jjob=2
ELSE
jjob=1
END IF
CALL transform("strain",jjob,ndi,r,r2)
CALL matmat(n,n,n,r1,c,c2,0)
CALL matmat(n,n,n,c2,r2,c,0)
END SUBROUTINE rotvoigt4
SUBROUTINE tenpdip(com,vlp,vcp)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(6)::com
REAL(8),DIMENSION(3)::vlp
REAL(8),DIMENSION(3,3)::vcp,ten
ten=tensor(3,com)
CALL jacobit(ten,vlp,vcp,3,ier)
END SUBROUTINE tenpdip
SUBROUTINE voigtcontraction42(fot,sot,res)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(6)::sot,res,sotc
REAL(8),DIMENSION(6,6)::fot
IF(loc(sot(1)).EQ.loc(res(1)))THEN
CALL copy(6,sotc,sot)
DO i=1,6
rtemp=0.0d00
DO j=1,6
rtemp=rtemp+fot(i,j)*svoigt(j,3)*sotc(j)
END DO
res(i)=rtemp
END DO
ELSE
DO i=1,6
rtemp=0.0d00
DO j=1,6
rtemp=rtemp+fot(i,j)*svoigt(j,3)*sot(j)
END DO
res(i)=rtemp
END DO
END IF
END SUBROUTINE voigtcontraction42
SUBROUTINE semivoigt(b,c,prodt,inormal)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(6)::b
LOGICAL::inormal
REAL(8),DIMENSION(6,3,3)::prodt
REAL(8),DIMENSION(6,6)::c
b1=b(1)
b2=b(2)
b3=b(3)
b4=b(4)
b5=b(5)
b6=b(6)
IF(inormal)THEN
rterm=1.0d00
ELSE
rterm=0.5d00
END IF
c11=c(1,1)
c12=c(1,2)
c13=c(1,3)
c14=rterm*c(1,4)
c15=rterm*c(1,5)
c16=rterm*c(1,6)
c21=c(2,1)
c22=c(2,2)
c23=c(2,3)
c24=rterm*c(2,4)
c25=rterm*c(2,5)
c26=rterm*c(2,6)
c31=c(3,1)
c32=c(3,2)
c33=c(3,3)
c34=rterm*c(3,4)
c35=rterm*c(3,5)
c36=rterm*c(3,6)
c41=c(4,1)
c42=c(4,2)
c43=c(4,3)
c44=rterm*c(4,4)
c45=rterm*c(4,5)
c46=rterm*c(4,6)
c51=c(5,1)
c52=c(5,2)
c53=c(5,3)
c54=rterm*c(5,4)
c55=rterm*c(5,5)
c56=rterm*c(5,6)
c61=c(6,1)
c62=c(6,2)
c63=c(6,3)
c64=rterm*c(6,4)
c65=rterm*c(6,5)
c66=rterm*c(6,6)
gg108208=b4*c14
gg108209=b5*c15
gg108224=b6*c16
gg108219=b4*c12
gg108241=b4*c24
gg108242=b5*c25
gg108256=b6*c26
gg108230=b5*c13
gg108273=b4*c34
gg108266=b6*c23
gg108274=b5*c35
gg108288=b6*c36
gg108304=b4*c44
gg108305=b5*c45
gg108320=b6*c46
gg108337=b4*c54
gg108338=b5*c55
gg108353=b6*c56
gg108370=b4*c64
gg108371=b5*c65
gg108386=b6*c66
prodt(1,1,1)=b1*c11+gg108208+gg108209
prodt(1,1,2)=b4*c11+b2*c14+b6*c15
prodt(1,1,3)=b5*c11+b6*c14+b3*c15
prodt(1,2,1)=b1*c14+b5*c16+gg108219
prodt(1,2,2)=b2*c12+gg108208+gg108224
prodt(1,2,3)=b6*c12+b5*c14+b3*c16
prodt(1,3,1)=b1*c15+b4*c16+gg108230
prodt(1,3,2)=b6*c13+b4*c15+b2*c16
prodt(1,3,3)=b3*c13+gg108209+gg108224
prodt(2,1,1)=b1*c12+gg108241+gg108242
prodt(2,1,2)=b2*c24+b6*c25+gg108219
prodt(2,1,3)=b5*c12+b6*c24+b3*c25
prodt(2,2,1)=b4*c22+b1*c24+b5*c26
prodt(2,2,2)=b2*c22+gg108241+gg108256
prodt(2,2,3)=b6*c22+b5*c24+b3*c26
prodt(2,3,1)=b5*c23+b1*c25+b4*c26
prodt(2,3,2)=b4*c25+b2*c26+gg108266
prodt(2,3,3)=b3*c23+gg108242+gg108256
prodt(3,1,1)=b1*c13+gg108273+gg108274
prodt(3,1,2)=b4*c13+b2*c34+b6*c35
prodt(3,1,3)=b6*c34+b3*c35+gg108230
prodt(3,2,1)=b4*c23+b1*c34+b5*c36
prodt(3,2,2)=b2*c23+gg108273+gg108288
prodt(3,2,3)=b5*c34+b3*c36+gg108266
prodt(3,3,1)=b5*c33+b1*c35+b4*c36
prodt(3,3,2)=b6*c33+b4*c35+b2*c36
prodt(3,3,3)=b3*c33+gg108274+gg108288
prodt(4,1,1)=b1*c41+gg108304+gg108305
prodt(4,1,2)=b4*c41+b2*c44+b6*c45
prodt(4,1,3)=b5*c41+b6*c44+b3*c45
prodt(4,2,1)=b4*c42+b1*c44+b5*c46
prodt(4,2,2)=b2*c42+gg108304+gg108320
prodt(4,2,3)=b6*c42+b5*c44+b3*c46
prodt(4,3,1)=b5*c43+b1*c45+b4*c46
prodt(4,3,2)=b6*c43+b4*c45+b2*c46
prodt(4,3,3)=b3*c43+gg108305+gg108320
prodt(5,1,1)=b1*c51+gg108337+gg108338
prodt(5,1,2)=b4*c51+b2*c54+b6*c55
prodt(5,1,3)=b5*c51+b6*c54+b3*c55
prodt(5,2,1)=b4*c52+b1*c54+b5*c56
prodt(5,2,2)=b2*c52+gg108337+gg108353
prodt(5,2,3)=b6*c52+b5*c54+b3*c56
prodt(5,3,1)=b5*c53+b1*c55+b4*c56
prodt(5,3,2)=b6*c53+b4*c55+b2*c56
prodt(5,3,3)=b3*c53+gg108338+gg108353
prodt(6,1,1)=b1*c61+gg108370+gg108371
prodt(6,1,2)=b4*c61+b2*c64+b6*c65
prodt(6,1,3)=b5*c61+b6*c64+b3*c65
prodt(6,2,1)=b4*c62+b1*c64+b5*c66
prodt(6,2,2)=b2*c62+gg108370+gg108386
prodt(6,2,3)=b6*c62+b5*c64+b3*c66
prodt(6,3,1)=b5*c63+b1*c65+b4*c66
prodt(6,3,2)=b6*c63+b4*c65+b2*c66
prodt(6,3,3)=b3*c63+gg108371+gg108386
END SUBROUTINE semivoigt
END MODULE constitutive
MODULE elements
USE basfun
USE constitutive
CONTAINS
function deltatcriticoind(meq,neq,emat,emas,indmaps)
implicit real(8) (a-h,o-z)
real(8),dimension(meq,*)::emat
real(8),dimension(*)::emas
integer,dimension(*)::indmaps
do ieq=1,neq
if(emas(indmaps(ieq)).le.0.0d00)then
write(*,*) "error in deltatcrit-ind"
endif
enddo
rmx=0.0d00
do ieq=1,neq
rco=0.0d00
do jeq=1,neq
if(emas(indmaps(jeq)).gt.0.0d00)then
rco=rco+abs(emat(indmaps(ieq),indmaps(jeq))/emas(indmaps(jeq)))
end if
enddo
rmx=max(rmx,rco)
enddo
romega=sqrt(abs(rmx))
deltatcriticoind=2.0d00/romega
end function deltatcriticoind
SUBROUTINE extxi3(nval,xi3val,val,valup,vallow)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8)::nup,nlow
REAL(8),DIMENSION(nval)::xi3val,val
REAL(8),DIMENSION(2)::f
REAL(8),DIMENSION(2,2)::k
f=0.0d00
k=0.0d00
DO i=1,nval
xi3=xi3val(i)
nup=(1.0d00+xi3)/2.0d00
nlow=(1.0d00-xi3)/2.0d00
f(1)=f(1)+val(i)*nup
f(2)=f(2)+val(i)*nlow
k(1,1)=k(1,1)+nup*nup
k(1,2)=k(1,2)+nup*nlow
k(2,1)=k(2,1)+nlow*nup
k(2,2)=k(2,2)+nlow*nlow
END DO
IF(nval.GE.2)THEN
det=detm23(2,k)
IF(ABS(Det).GT.epsmach())THEN
CALL solvcp(2,k,f)
ELSE
f=0.0d00
DO i=1,nval
DO id=1,2
f(id)=f(id)+val(i)/nval
END DO
END DO
END IF
valup=f(1)
vallow=f(2)
ELSE
valup=val(1)
vallow=val(1)
END IF
END SUBROUTINE extxi3
SUBROUTINE fforma(ffor,deri,ndnos,r,s,t,idime)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(ndnos)::ffor
REAL(8),DIMENSION(idime,ndnos)::deri
REAL(8)::r,s,t
IF(idime.EQ.1)THEN
SELECT CASE(ndnos)
CASE(2)
rtemp=0.5d00*r
ffor(1)=0.5d00-rtemp
ffor(2)=0.5d00+rtemp
deri(1,1)=-0.5d00
deri(1,2)=0.5d00
END SELECT
ELSE IF(idime.EQ.2)THEN
SELECT CASE(ndnos)
CASE(3)
ffor(1)=1.0d00-r-s
ffor(2)=r
ffor(3)=s
deri(1,1)=-1.0d00
deri(1,2)=1.0d00
deri(1,3)=0.0d00
deri(2,1)=-1.0d00
deri(2,2)=0.0d00
deri(2,3)=1.0d00
CASE(4)
rs=r*s
ffor(1)=(1.0d00-r-s+rs)*0.25d00
ffor(2)=(1.0d00+r-s-rs)*0.25d00
ffor(3)=(1.0d00+r+s+rs)*0.25d00
ffor(4)=(1.0d00-r+s-rs)*0.25d00
deri(1,1)=(-1.d00+s)*0.25d00
deri(1,2)=(1.d00-s)*0.25d00
deri(1,3)=(1.d00+s)*0.25d00
deri(1,4)=(-1.d00-s)*0.25d00
deri(2,1)=(-1.d00+r)*0.25d00
deri(2,2)=(-1.d00-r)*0.25d00
deri(2,3)=(1.d00+r)*0.25d00
deri(2,4)=(1.d00-r)*0.25d00
END SELECT
ELSE IF(idime.EQ.3)THEN
rm=0.5d00*(1.0d0-r)
sm=0.5d00*(1.0d0-s)
tm=0.5d00*(1.0d0-t)
rp=0.5d00*(1.0d0+r)
sp=0.5d00*(1.0d0+s)
tp=0.5d00*(1.0d0+t)
SELECT CASE(ndnos)
CASE(8)
rv=0.5d00
ffor(1)=+rm*sm*tm
deri(1,1)=-rv*sm*tm
deri(2,1)=-rv*rm*tm
deri(3,1)=-rv*sm*rm
ffor(2)=+rp*sm*tm
deri(1,2)=+rv*sm*tm
deri(2,2)=-rv*rp*tm
deri(3,2)=-rv*rp*sm
ffor(3)=+rp*sp*tm
deri(1,3)=+rv*sp*tm
deri(2,3)=+rv*rp*tm
deri(3,3)=-rv*rp*sp
ffor(4)=+rm*sp*tm
deri(1,4)=-rv*sp*tm
deri(2,4)=+rv*rm*tm
deri(3,4)=-rv*rm*sp
ffor(5)=+rm*sm*tp
deri(1,5)=-rv*sm*tp
deri(2,5)=-rv*rm*tp
deri(3,5)=+rv*rm*sm
ffor(6)=+rp*sm*tp
deri(1,6)=+rv*sm*tp
deri(2,6)=-rv*rp*tp
deri(3,6)=+rv*rp*sm
ffor(7)=+rp*sp*tp
deri(1,7)=+rv*sp*tp
deri(2,7)=+rv*rp*tp
deri(3,7)=+rv*rp*sp
ffor(8)=+rm*sp*tp
deri(1,8)=-rv*sp*tp
deri(2,8)=+rv*rm*tp
deri(3,8)=+rv*rm*sp
CASE(4)
ffor(1)=1.0d00-r-s-t
ffor(2)=s
ffor(3)=t
ffor(4)=r
deri(1,4)=1.0d00
deri(2,4)=0.0d00
deri(3,4)=0.0d00
deri(1,2)=0.0d00
deri(2,2)=1.0d00
deri(3,2)=0.0d00
deri(1,3)=0.0d00
deri(2,3)=0.0d00
deri(3,3)=1.0d00
deri(1,1)=-1.0d00
deri(2,1)=-1.0d00
deri(3,1)=-1.0d00
END SELECT
ENDIF
END SUBROUTINE fforma
SUBROUTINE bubble(ndi,r,s,t,f,df)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::df
SELECT CASE(ndi)
CASE(2)
f=r*s*(1.0d00-r-s)
df(1)=-(r*s)+s*(1.0d00-r-s)
df(2)=-(r*s)+r*(1.0d00-r-s)
CASE(3)
f=r*s*t*(1.0d00-r-s-t)
df(1)=-(r*s*t)+s*(1.0d00-r-s-t)*t
df(2)=-(r*s*t)+r*(1.0d00-r-s-t)*t
df(3)= r*s*(1.0d00-r-s-t) - r*s*t
END SELECT
END SUBROUTINE bubble
SUBROUTINE covarderiv(thick,xi3,ffor,deri,r,e3,xaref)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::ffor
REAL(8),DIMENSION(4,*)::e3,r
REAL(8),DIMENSION(2,*)::deri
REAL(8),DIMENSION(3,*)::xaref
rtemp=thick*xi3
DO j=1,3
DO i=1,2
ptemp=0.0d00
DO k=1,4
ptemp=ptemp+deri(i,k)*(r(k,j)+rtemp*e3(k,j))
END DO
xaref(i,j)=ptemp
END DO
stemp=0.0d00
DO k=1,4
stemp=stemp+ffor(k)*thick*e3(k,j)
END DO
xaref(3,j)=stemp
END DO
END SUBROUTINE covarderiv
SUBROUTINE triangpd(u,X,b)
IMPLICIT NONE
DOUBLE PRECISION v(5001),u(2,3),X(2,3),b(2,2)
v(29)=-u(2,3)-X(2,3)
v(28)=-u(1,3)-X(1,3)
v(20)=X(1,1)-X(1,3)
v(18)=-X(1,2)+X(1,3)
v(16)=u(1,2)+v(28)+X(1,2)
v(15)=u(1,1)+v(28)+X(1,1)
v(23)=-X(2,1)+X(2,3)
v(22)=X(2,2)-X(2,3)
v(13)=1d0/(v(18)*X(2,1)+v(20)*X(2,2)+(-X(1,1)+X(1,2))*X(2,3))
v(14)=v(13)*(v(15)*v(18)+v(16)*v(20))
v(17)=v(13)*(v(15)*v(22)+v(16)*v(23))
v(19)=u(2,1)+v(29)+X(2,1)
v(21)=u(2,2)+v(29)+X(2,2)
v(26)=v(13)*(v(19)*v(22)+v(21)*v(23))
v(25)=v(13)*(v(18)*v(19)+v(20)*v(21))
v(24)=v(14)*v(25)+v(17)*v(26)
b(1,1)=(v(14)*v(14))+(v(17)*v(17))
b(1,2)=v(24)
b(2,1)=v(24)
b(2,2)=(v(25)*v(25))+(v(26)*v(26))
END SUBROUTINE triangpd
SUBROUTINE btsigma(dff,sigma,bts,n)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8)::nx,ny,nz
REAL(8),DIMENSION(*)::dff
REAL(8),DIMENSION(*)::sigma
REAL(8),DIMENSION(*)::bts
SELECT CASE(n)
CASE(6)
nx=dff(1)
ny=dff(2)
nz=dff(3)
bts(1) = nx*sigma(1)+ny*sigma(4)+nz*sigma(5)
bts(2) = ny*sigma(2)+nx*sigma(4)+nz*sigma(6)
bts(3) = nz*sigma(3)+nx*sigma(5)+ny*sigma(6)
CASE(3)
nx=dff(1)
ny=dff(2)
bts(1)=nx*sigma(1)+ny*sigma(3)
bts(2)=ny*sigma(2)+nx*sigma(3)
CASE(4)
nx=dff(1)
ny=dff(2)
nz=dff(3)
bts(1) = nx*sigma(1)+ny*sigma(4)+nz*sigma(3)
bts(2) = ny*sigma(2)+nx*sigma(4)
CASE default
WRITE(*,*) "erro na subrotina btsigma:caso nao contemplado"
STOP
END SELECT
END SUBROUTINE btsigma
SUBROUTINE ksigma(m,n,s,ks,ndi)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::m,n,s
REAL(8)::ks
SELECT CASE(ndi)
CASE(6)
ks=m(1)*n(1)*s(1)+m(2)*n(2)*s(2)+m(3)*n(3)*s(3)+m(2)*n(1)*s(4)+&
m(1)*n(2)*s(4)+m(3)*n(1)*s(5)+m(1)*n(3)*s(5)+m(3)*n(2)*s(6) + m(2)*n(3)*s(6)
CASE(3)
ks=m(1)*n(1)*s(1)+m(2)*n(2)*s(2)+m(2)*n(1)*s(3)+m(1)*n(2)*s(3)
CASE(4)
ks=m(1)*n(1)*s(1)+m(2)*n(2)*s(2)+n(3)*m(3)*s(3)+m(2)*n(1)*s(4)+m(1)*n(2)*s(4)
END SELECT
END SUBROUTINE ksigma
SUBROUTINE btdbmt(dff,btd,btb,ncd,ncc,ndi,nde)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8)::nx,ny,nz
REAL(8),DIMENSION(nde,ncd+ncc)::btd
REAL(8),DIMENSION(nde,nde)::btb
REAL(8),DIMENSION(ndi)::dff
SELECT CASE(ncd+ncc)
CASE(6)
nx=dff(1)
ny=dff(2)
nz=dff(3)
btb(1,1)=btd(1,1)*nx+btd(1,4)*ny+btd(1,5)*nz
btb(2,1)=btd(2,1)*nx+btd(2,4)*ny+btd(2,5)*nz
btb(3,1)=btd(3,1)*nx+btd(3,4)*ny+btd(3,5)*nz
btb(1,2)=btd(1,2)*ny+btd(1,4)*nx+btd(1,6)*nz
btb(2,2)=btd(2,2)*ny+btd(2,4)*nx+btd(2,6)*nz
btb(3,2)=btd(3,2)*ny+btd(3,4)*nx+btd(3,6)*nz
btb(1,3)=btd(1,3)*nz+btd(1,5)*nx+btd(1,6)*ny
btb(2,3)=btd(2,3)*nz+btd(2,5)*nx+btd(2,6)*ny
btb(3,3)=btd(3,3)*nz+btd(3,5)*nx+btd(3,6)*ny
CASE(3)
nx=dff(1)
ny=dff(2)
btb(1,1)=btd(1,1)*nx+btd(1,3)*ny
btb(2,1)=btd(2,1)*nx+btd(2,3)*ny
btb(1,2)=btd(1,2)*ny+btd(1,3)*nx
btb(2,2)=btd(2,2)*ny+btd(2,3)*nx
CASE(4)
nx=dff(1)
ny=dff(2)
nz=dff(3)
btb(1,1)=btd(1,1)*nx+btd(1,3)*nz+btd(1,4)*ny
btb(2,1)=btd(2,1)*nx+btd(2,3)*nz+btd(2,4)*ny
btb(1,2)=btd(1,2)*ny+btd(1,4)*nx
btb(2,2)=btd(2,2)*ny+btd(2,4)*nx
CASE default
WRITE(*,*) "erro na subrotina btdbmt:caso nao contemplado"
STOP
END SELECT
END SUBROUTINE btdbmt
SUBROUTINE btdmat(dff,d,btd,ncd,ncc,ndi,nde)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8)::mx,my,mz
REAL(8),DIMENSION(ncd+ncc,ncd+ncc)::d
REAL(8),DIMENSION(nde,ncd+ncc)::btd
REAL(8),DIMENSION(ndi)::dff
SELECT CASE(ncd+ncc)
CASE(6)
mx=dff(1)
my=dff(2)
mz=dff(3)
btd(1,1)=mx*d(1,1)+my*d(4,1)+mz*d(5,1)
btd(2,1)=my*d(2,1)+mx*d(4,1)+mz*d(6,1)
btd(3,1)=mz*d(3,1)+mx*d(5,1)+my*d(6,1)
btd(1,2)=mx*d(1,2)+my*d(4,2)+mz*d(5,2)
btd(2,2)=my*d(2,2)+mx*d(4,2)+mz*d(6,2)
btd(3,2)=mz*d(3,2)+mx*d(5,2)+my*d(6,2)
btd(1,3)=mx*d(1,3)+my*d(4,3)+mz*d(5,3)
btd(2,3)=my*d(2,3)+mx*d(4,3)+mz*d(6,3)
btd(3,3)=mz*d(3,3)+mx*d(5,3)+my*d(6,3)
btd(1,4)=mx*d(1,4)+my*d(4,4)+mz*d(5,4)
btd(2,4)=my*d(2,4)+mx*d(4,4)+mz*d(6,4)
btd(3,4)=mz*d(3,4)+mx*d(5,4)+my*d(6,4)
btd(1,5)=mx*d(1,5)+my*d(4,5)+mz*d(5,5)
btd(2,5)=my*d(2,5)+mx*d(4,5)+mz*d(6,5)
btd(3,5)=mz*d(3,5)+mx*d(5,5)+my*d(6,5)
btd(1,6)=mx*d(1,6)+my*d(4,6)+mz*d(5,6)
btd(2,6)=my*d(2,6)+mx*d(4,6)+mz*d(6,6)
btd(3,6)=mz*d(3,6)+mx*d(5,6)+my*d(6,6)
CASE(3)
mx=dff(1)
my=dff(2)
btd(1,1)=mx*d(1,1)+my*d(3,1)
btd(2,1)=my*d(2,1)+mx*d(3,1)
btd(1,2)=mx*d(1,2)+my*d(3,2)
btd(2,2)=my*d(2,2)+mx*d(3,2)
btd(1,3)=mx*d(1,3)+my*d(3,3)
btd(2,3)=my*d(2,3)+mx*d(3,3)
CASE(4)
mx=dff(1)
my=dff(2)
mz=dff(3)
btd(1,1)=mx*d(1,1)+mz*d(3,1)+my*d(4,1)
btd(2,1)=my*d(2,1)+mx*d(4,1)
btd(1,2)=mx*d(1,2)+mz*d(3,2)+my*d(4,2)
btd(2,2)=my*d(2,2)+mx*d(4,2)
btd(1,3)=mx*d(1,3)+mz*d(3,3)+my*d(4,3)
btd(2,3)=my*d(2,3)+mx*d(4,3)
btd(1,4)=mx*d(1,4)+mz*d(3,4)+my*d(4,4)
btd(2,4)=my*d(2,4)+mx*d(4,4)
CASE default
WRITE(*,*) " erro na subrotina btdmat:caso nao contemplado "
STOP
END SELECT
END SUBROUTINE btdmat
SUBROUTINE matrjac(jaco,ecoo,deri,ndi,ndnos)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(ndi,ndi)::jaco
REAL(8),DIMENSION(ndi,ndnos)::deri
REAL(8),DIMENSION(ndnos,ndi)::ecoo
CALL matmat(ndi,ndnos,ndi,deri,ecoo,jaco,0)
CALL transp(ndi,jaco,jaco)
END SUBROUTINE matrjac
SUBROUTINE gradef(grad,der,evar,ndnos,ndi)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(ndi,ndi)::grad
REAL(8),DIMENSION(ndi,ndnos)::der
REAL(8),DIMENSION(ndnos,ndi)::evar
CALL matmat(ndi,ndnos,ndi,der,evar,grad,0)
CALL transp(ndi,grad,grad)
CALL adddiag(ndi,grad)
END SUBROUTINE gradef
SUBROUTINE spatialder(grad,invg,detf,der0,der1,ndnos,ndi)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(ndi,ndi)::grad,invg,invgt
REAL(8),DIMENSION(ndi,ndnos)::der0,der1
CALL matinv(ndi,detf,grad,invg,.FALSE.)
CALL transp(ndi,invg,invgt)
CALL matmat(ndi,ndi,ndnos,invgt,der0,der1,0)
END SUBROUTINE spatialder
SUBROUTINE gradefaxi(grad,ff,der,evar,ecoo,ndnos)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3,3)::grad
REAL(8),DIMENSION(2,ndnos)::der
REAL(8),DIMENSION(ndnos)::ff
REAL(8),DIMENSION(ndnos,2)::evar,ecoo
DO j=1,2
DO i=1,2
r=0.0d00
DO k=1,ndnos
s=evar(k,i)+ecoo(k,i)
r=r+der(j,k)*s
ENDDO
grad(i,j)=r
ENDDO
ENDDO
grad(1,3)=0.0d00
grad(2,3)=0.0d00
grad(3,1)=0.0d00
grad(3,2)=0.0d00
grad(3,3)=dotprod(ndnos,ff,ecoo(1:ndnos,1)+evar(1:ndnos,1))/dotprod(ndnos,ff,ecoo(1:ndnos,1))
END SUBROUTINE gradefaxi
SUBROUTINE derfuncf(ecoo,deri,ndi,ndnoscoord,ndnosder,der0,detj,jaco,ijac,ierr)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(ndnoscoord,ndi)::ecoo
REAL(8),DIMENSION(ndi,ndnosder)::deri,der0
REAL(8),DIMENSION(ndi,ndi)::jaco,ijac
ierr=0
CALL matrjac(jaco,ecoo,deri(1:ndi,1:ndnoscoord),ndi,ndnoscoord)
CALL matinv(ndi,detj,jaco,ijac,.FALSE.)
IF(detj.LT.0.0d00)THEN
ierr=2
ENDIF
DO in=1,ndnosder
DO id=1,ndi
r=0.0d00
DO jd=1,ndi
r=r+ijac(jd,id)*deri(jd,in)
ENDDO
der0(id,in)=r
ENDDO
ENDDO
END SUBROUTINE derfuncf
SUBROUTINE continuumelm(ecoo,evol,evar,deri,ndi,ndnoscoord,ndnostot,der0,der1,detj,jaco,ijac,grao,grad,invg,detf,ierr)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(ndnoscoord,*)::ecoo
REAL(8),DIMENSION(ndnostot,*)::evol,evar
REAL(8),DIMENSION(ndi,*)::deri,der0,der1
REAL(8),DIMENSION(ndi,ndi)::jaco,ijac,grao,grad,invg
CALL derfuncf(ecoo,deri,ndi,ndnoscoord,ndnostot,der0,detj,jaco,ijac,ierr)
CALL gradef(grad,der0,evar,ndnostot,ndi)
CALL gradef(grao,der0,evol,ndnostot,ndi)
CALL spatialder(grad,invg,detf,der0,der1,ndnostot,ndi)
END SUBROUTINE continuumelm
SUBROUTINE continuumelmplus(ecoo,evol,evar,deri,ndi,ndnoscoord,ndnosvar,ndnosder,der0,der1,detj,jaco,ijac,grao,grad,invg,detf,ierr)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(ndnoscoord,*)::ecoo
REAL(8),DIMENSION(ndnosvar,*)::evol,evar
REAL(8),DIMENSION(ndi,ndnosder)::deri,der0,der1
REAL(8),DIMENSION(ndi,ndi)::jaco,ijac,grao,grad,invg
CALL derfuncf(ecoo,deri,ndi,ndnoscoord,ndnosder,der0,detj,jaco,ijac,ierr)
CALL gradef(grad,der0(1:ndi,1:ndnosvar),evar(1:ndnosvar,1:ndi),ndnosvar,ndi)
CALL gradef(grao,der0(1:ndi,1:ndnosvar),evol(1:ndnosvar,1:ndi),ndnosvar,ndi)
CALL spatialder(grad,invg,detf,der0(1:ndi,1:ndnosder),der1(1:ndi,1:ndnosder),ndnosder,ndi)
END SUBROUTINE continuumelmplus
SUBROUTINE rimatrix(theta,ri,dri,d2ri)
IMPLICIT REAL(8) (a-h,o-z)
DOUBLE PRECISION v(40001),theta(3),ri(3,3),dri(3,3,3),d2ri(3,3,3,3)
rn1=theta(1)
rn2=theta(2)
rn3=theta(3)
IF(SQRT(rn1*rn1+rn2*rn2+rn3*rn3).LE.epsmach())THEN
theta(1)=3.0d00*epsmach()
theta(2)=-2.0d00*epsmach()
theta(3)=1.0d00*epsmach()
END IF
v(407)=theta(1)*theta(2)
v(405)=theta(1)*theta(3)
v(403)=theta(2)*theta(3)
v(142)=2d0*theta(1)
v(132)=theta(1)**2
v(143)=2d0*theta(2)
v(122)=theta(2)**2
v(192)=-v(122)-v(132)
v(144)=2d0*theta(3)
v(123)=theta(3)**2
v(390)=v(122)+v(123)+v(132)
v(394)=SQRT(v(390))
v(392)=1d0/v(394)
v(389)=v(392)/2d0
v(220)=v(144)*v(389)
v(410)=theta(3)*v(220)
v(230)=v(220)/2d0
v(217)=v(143)*v(389)
v(229)=v(217)/2d0
v(215)=v(390)
v(219)=-(v(217)/v(215))
v(393)=v(219)/2d0
v(223)=v(144)*v(393)
v(214)=v(142)*v(389)
v(228)=v(214)/2d0
v(216)=-(v(214)/v(215))
v(391)=v(216)/2d0
v(225)=v(143)*v(391)
v(222)=v(144)*v(391)
v(186)=-v(123)-v(132)
v(181)=-v(122)-v(123)
v(145)=v(392)
v(227)=v(145)+v(142)*v(391)
v(226)=v(145)+v(143)*v(393)
v(224)=v(145)-(v(144)*v(230))/v(215)
v(121)=v(394)
v(415)=-(theta(1)/v(121))
v(414)=theta(2)/v(121)
v(411)=-(theta(3)/v(121))
v(395)=dsin(v(121))
v(265)=-(v(220)*v(395))
v(264)=v(217)*v(395)
v(263)=-(v(214)*v(395))
v(238)=1d0/v(121)**3
v(396)=(-2d0)*v(238)
v(245)=v(220)*v(396)
v(243)=v(214)*v(396)
v(164)=v(121)/2d0
v(231)=dcos(v(164))
v(234)=v(230)*v(231)
v(233)=v(229)*v(231)
v(232)=v(228)*v(231)
v(165)=dsin(v(164))
v(397)=(-8d0)*v(165)*v(238)
v(252)=v(234)*v(397)
v(250)=v(233)*v(397)
v(247)=v(232)*v(397)
v(163)=(v(165)*v(165))
v(240)=(12d0*v(163))/v(121)**4
v(241)=v(217)*v(240)+v(250)
v(239)=v(214)*v(240)+v(247)
v(167)=(-4d0)*v(163)*v(238)
v(153)=1d0/v(121)**2
v(416)=v(153)*v(214)
v(409)=-(theta(2)*v(153))
v(398)=2d0*v(153)
v(303)=theta(1)*v(416)
v(285)=v(153)*v(410)
v(412)=2d0*v(285)
v(249)=v(231)*v(398)
v(246)=v(165)*v(398)
v(399)=-(v(165)*v(246))
v(251)=v(233)*v(249)+v(250)+v(229)*v(399)
v(402)=v(241)+v(251)
v(248)=v(247)+v(232)*v(249)+v(228)*v(399)
v(401)=v(239)+v(248)
v(168)=v(231)*v(246)
v(400)=v(167)+v(168)
v(283)=v(168)*v(220)
v(280)=v(168)*v(217)
v(278)=v(168)*v(214)
v(259)=v(227)*v(400)+v(214)*v(401)
v(260)=v(259)*v(403)
v(258)=v(226)*v(400)+v(217)*v(402)
v(257)=v(225)*v(400)+v(217)*v(401)
v(256)=v(220)*(v(220)*v(240)+v(234)*v(249)+2d0*v(252)+v(230)*v(399))+v(224)*v(400)
v(255)=v(223)*v(400)+v(220)*v(402)
v(254)=v(222)*v(400)+v(220)*v(401)
v(170)=v(167)*v(220)+v(283)
v(376)=-(v(144)*v(170))
v(323)=theta(3)*v(170)
v(319)=theta(2)*v(170)
v(404)=2d0*v(319)
v(328)=v(258)*v(403)+v(404)
v(327)=v(256)*v(403)+v(404)
v(169)=v(167)*v(217)+v(280)
v(357)=-(v(143)*v(169))
v(317)=theta(2)*v(169)
v(306)=-v(404)
v(166)=v(167)*v(214)+v(278)
v(417)=theta(1)*v(166)
v(341)=-(v(142)*v(166))
v(314)=theta(3)*v(166)
v(406)=2d0*v(314)
v(325)=v(259)*v(405)+v(406)
v(322)=v(256)*v(405)+v(406)
v(313)=theta(2)*v(166)
v(408)=2d0*v(313)
v(320)=v(259)*v(407)+v(408)
v(316)=v(258)*v(407)+v(408)
v(308)=-v(408)
v(305)=-v(406)
v(262)=v(313)+v(254)*v(403)
v(261)=v(314)+v(257)*v(403)
v(171)=theta(3)*v(313)
v(150)=dcos(v(121))
v(269)=v(150)*v(225)+v(217)*v(263)
v(268)=v(150)*v(224)+v(220)*v(265)
v(266)=v(150)*v(222)+v(220)*v(263)
v(152)=v(150)*v(220)
v(282)=v(152)/v(121)
v(274)=v(152)*v(409)
v(151)=v(150)*v(217)
v(294)=-(v(151)/v(121))
v(292)=v(151)*v(409)
v(149)=v(150)*v(214)
v(302)=-(v(149)/v(121))
v(279)=v(278)+v(302)
v(127)=v(395)
v(413)=v(127)*v(153)
v(296)=v(168)+theta(1)*v(248)
v(290)=v(127)*v(410)
v(289)=theta(3)*v(413)
v(291)=(-2d0)*v(282)+2d0*v(283)+v(224)*v(289)+v(245)*v(290)+v(268)*v(411)+v(152)*v(412)
v(287)=v(279)+v(222)*v(289)+v(243)*v(290)+v(266)*v(411)+v(149)*v(412)
v(272)=-v(168)+v(292)-theta(2)*v(264)*v(396)
v(271)=-(theta(2)*v(248))
v(160)=-(theta(2)*v(413))
v(295)=v(160)*v(226)-v(280)+v(217)*(v(272)+v(292))-2d0*v(294)+(v(150)*v(226)-v(217)*v(264))*v(414)
v(293)=v(160)*v(225)+v(217)*v(271)-v(279)+v(214)*v(292)+v(269)*v(414)
v(277)=v(160)*v(224)+theta(2)*(v(245)*v(265)+v(268)/v(121))+2d0*v(220)*v(274)
v(276)=v(160)*v(223)+v(220)*v(272)+v(217)*v(274)+v(282)+(v(150)*v(223)-v(220)*v(264))*v(414)
v(275)=v(160)*v(222)+v(220)*v(271)+v(214)*v(274)+v(266)*v(414)
v(161)=v(160)*v(220)+theta(2)*v(282)
v(158)=-(v(127)/v(121))
v(162)=v(158)-theta(3)*v(282)+v(127)*v(285)
v(159)=-v(158)+v(160)*v(217)-theta(2)*v(294)
v(155)=theta(1)*v(413)
v(304)=v(155)*v(227)+v(279)+v(214)*v(296)+v(302)+v(149)*v(303)+(v(150)*v(227)+v(214)*v(263))*v(415)
v(300)=v(155)*v(225)+v(294)+v(217)*v(296)+v(151)*v(303)+v(269)*v(415)
v(299)=v(155)*v(222)-v(282)+v(220)*v(296)+theta(1)*(-(v(266)/v(121))+v(152)*v(416))
v(157)=v(155)*v(220)-theta(1)*v(282)
v(156)=v(155)*v(217)+theta(1)*v(294)
v(154)=v(158)+v(155)*v(214)+theta(1)*v(302)
v(125)=-v(399)
v(326)=v(125)+v(317)+v(323)+v(255)*v(403)
v(312)=v(125)+v(417)
v(321)=v(312)+v(323)+v(254)*v(405)
v(315)=v(312)+v(317)+v(257)*v(407)
v(309)=(-2d0)*v(125)
v(311)=v(309)+v(341)
v(420)=v(311)+v(341)
v(310)=v(309)+v(357)
v(418)=v(310)+v(357)
v(307)=v(309)+v(376)
v(419)=v(307)+v(376)
v(208)=-(v(125)*v(144))
v(202)=-(v(125)*v(143))
v(191)=-(v(125)*v(142))
v(179)=theta(1)*v(125)
v(180)=v(179)+theta(1)*v(317)
v(177)=theta(2)*v(125)
v(178)=v(177)+theta(2)*v(417)
v(176)=v(179)+theta(1)*v(323)
v(174)=theta(3)*v(125)
v(175)=v(174)+v(166)*v(405)
v(173)=v(177)+theta(3)*v(319)
v(172)=v(174)+theta(3)*v(317)
v(138)=theta(2)*v(174)
v(135)=theta(1)*v(174)
v(129)=theta(1)*v(177)
v(330)=v(181)*v(257)+v(308)
v(331)=v(181)*v(254)+v(305)
v(333)=-v(275)+v(315)
v(334)=v(260)+v(287)
v(336)=v(260)+v(293)
v(337)=v(275)+v(321)
v(339)=v(275)+v(315)
v(340)=v(260)-v(287)
v(343)=v(186)*v(257)+v(308)
v(344)=v(186)*v(254)+2d0*v(305)
v(346)=v(261)+v(300)
v(347)=v(262)+v(299)
v(349)=v(260)-v(293)
v(350)=-v(275)+v(321)
v(352)=v(261)-v(300)
v(353)=v(262)-v(299)
v(355)=v(192)*v(257)+2d0*v(308)
v(356)=v(192)*v(254)+v(305)
v(359)=v(181)*v(255)+2d0*v(306)
v(361)=v(261)-v(277)
v(363)=v(262)+v(276)
v(365)=v(261)+v(277)
v(367)=v(186)*v(255)+v(306)
v(369)=-v(275)+v(326)
v(371)=v(262)-v(276)
v(373)=v(275)+v(326)
v(375)=v(192)*v(255)+v(306)
ri(1,1)=1d0+v(125)*v(181)
ri(1,2)=v(129)+v(265)
ri(1,3)=v(135)+v(264)
ri(2,1)=v(129)-v(265)
ri(2,2)=1d0+v(125)*v(186)
ri(2,3)=v(138)+v(263)
ri(3,1)=v(135)-v(264)
ri(3,2)=v(138)-v(263)
ri(3,3)=1d0+v(125)*v(192)
dri(1,1,1)=v(166)*v(181)
dri(1,1,2)=v(169)*v(181)+v(202)
dri(1,1,3)=v(170)*v(181)+v(208)
dri(1,2,1)=v(157)+v(178)
dri(1,2,2)=-v(161)+v(180)
dri(1,2,3)=v(162)+v(171)
dri(1,3,1)=-v(156)+v(175)
dri(1,3,2)=v(159)+v(171)
dri(1,3,3)=v(161)+v(176)
dri(2,1,1)=-v(157)+v(178)
dri(2,1,2)=v(161)+v(180)
dri(2,1,3)=-v(162)+v(171)
dri(2,2,1)=v(166)*v(186)+v(191)
dri(2,2,2)=v(169)*v(186)
dri(2,2,3)=v(170)*v(186)+v(208)
dri(2,3,1)=v(154)+v(171)
dri(2,3,2)=v(156)+v(172)
dri(2,3,3)=v(157)+v(173)
dri(3,1,1)=v(156)+v(175)
dri(3,1,2)=-v(159)+v(171)
dri(3,1,3)=-v(161)+v(176)
dri(3,2,1)=-v(154)+v(171)
dri(3,2,2)=-v(156)+v(172)
dri(3,2,3)=-v(157)+v(173)
dri(3,3,1)=v(191)+v(166)*v(192)
dri(3,3,2)=v(169)*v(192)+v(202)
dri(3,3,3)=v(170)*v(192)
d2ri(1,1,1,1)=v(181)*v(259)
d2ri(1,1,1,2)=v(330)
d2ri(1,1,1,3)=v(331)
d2ri(1,1,2,1)=v(330)
d2ri(1,1,2,2)=v(181)*v(258)+v(418)
d2ri(1,1,2,3)=v(359)
d2ri(1,1,3,1)=v(331)
d2ri(1,1,3,2)=v(359)
d2ri(1,1,3,3)=v(181)*v(256)+v(419)
d2ri(1,2,1,1)=v(299)+v(320)
d2ri(1,2,1,2)=v(333)
d2ri(1,2,1,3)=v(334)
d2ri(1,2,2,1)=v(333)
d2ri(1,2,2,2)=-v(276)+v(316)
d2ri(1,2,2,3)=v(361)
d2ri(1,2,3,1)=v(334)
d2ri(1,2,3,2)=v(361)
d2ri(1,2,3,3)=v(262)+v(291)
d2ri(1,3,1,1)=-v(300)+v(325)
d2ri(1,3,1,2)=v(336)
d2ri(1,3,1,3)=v(337)
d2ri(1,3,2,1)=v(336)
d2ri(1,3,2,2)=v(261)+v(295)
d2ri(1,3,2,3)=v(363)
d2ri(1,3,3,1)=v(337)
d2ri(1,3,3,2)=v(363)
d2ri(1,3,3,3)=v(277)+v(322)
d2ri(2,1,1,1)=-v(299)+v(320)
d2ri(2,1,1,2)=v(339)
d2ri(2,1,1,3)=v(340)
d2ri(2,1,2,1)=v(339)
d2ri(2,1,2,2)=v(276)+v(316)
d2ri(2,1,2,3)=v(365)
d2ri(2,1,3,1)=v(340)
d2ri(2,1,3,2)=v(365)
d2ri(2,1,3,3)=v(262)-v(291)
d2ri(2,2,1,1)=v(186)*v(259)+v(420)
d2ri(2,2,1,2)=v(343)
d2ri(2,2,1,3)=v(344)
d2ri(2,2,2,1)=v(343)
d2ri(2,2,2,2)=v(186)*v(258)
d2ri(2,2,2,3)=v(367)
d2ri(2,2,3,1)=v(344)
d2ri(2,2,3,2)=v(367)
d2ri(2,2,3,3)=v(186)*v(256)+v(419)
d2ri(2,3,1,1)=v(260)+v(304)
d2ri(2,3,1,2)=v(346)
d2ri(2,3,1,3)=v(347)
d2ri(2,3,2,1)=v(346)
d2ri(2,3,2,2)=-v(293)+v(328)
d2ri(2,3,2,3)=v(369)
d2ri(2,3,3,1)=v(347)
d2ri(2,3,3,2)=v(369)
d2ri(2,3,3,3)=v(287)+v(327)
d2ri(3,1,1,1)=v(300)+v(325)
d2ri(3,1,1,2)=v(349)
d2ri(3,1,1,3)=v(350)
d2ri(3,1,2,1)=v(349)
d2ri(3,1,2,2)=v(261)-v(295)
d2ri(3,1,2,3)=v(371)
d2ri(3,1,3,1)=v(350)
d2ri(3,1,3,2)=v(371)
d2ri(3,1,3,3)=-v(277)+v(322)
d2ri(3,2,1,1)=v(260)-v(304)
d2ri(3,2,1,2)=v(352)
d2ri(3,2,1,3)=v(353)
d2ri(3,2,2,1)=v(352)
d2ri(3,2,2,2)=v(293)+v(328)
d2ri(3,2,2,3)=v(373)
d2ri(3,2,3,1)=v(353)
d2ri(3,2,3,2)=v(373)
d2ri(3,2,3,3)=-v(287)+v(327)
d2ri(3,3,1,1)=v(192)*v(259)+v(420)
d2ri(3,3,1,2)=v(355)
d2ri(3,3,1,3)=v(356)
d2ri(3,3,2,1)=v(355)
d2ri(3,3,2,2)=v(192)*v(258)+v(418)
d2ri(3,3,2,3)=v(375)
d2ri(3,3,3,1)=v(356)
d2ri(3,3,3,2)=v(375)
d2ri(3,3,3,3)=v(192)*v(256)
END SUBROUTINE rimatrix
!**************************************************************


SUBROUTINE triangcorot3d(xg,ugo,ug,rio1,rio2,rio3,ri1,ri2,ri3,xl,ul,ro,dl,d2l)
IMPLICIT NONE
DOUBLE PRECISION v(50001),xg(9),ugo(18),ug(18),rio1(3,3),rio2(3,3),rio3(3,3),ri1(3,3),ri2(3,3),ri3(3,3),xl(9),ul(18),ro&
&(3,3),dl(18,18),d2l(18,18,18)
v(17808)=-ug(3)-xg(3)
v(17806)=-ug(2)-xg(2)
v(17804)=-ug(1)-xg(1)
v(6383)=(xg(1)+xg(4)+xg(7))/3d0
v(6433)=-v(6383)+xg(7)
v(6432)=-v(6383)+xg(1)
v(6384)=(ug(1)+ug(13)+ug(7))/3d0
v(17784)=-v(6383)-v(6384)
v(6600)=ug(7)+v(17784)+xg(4)
v(6443)=ug(13)+v(17784)+xg(7)
v(6442)=ug(1)+v(17784)+xg(1)
v(6385)=-v(17784)+v(17804)+v(6600)
v(8263)=(v(6385)*v(6385))
v(8304)=2d0*v(8263)
v(8068)=(-2d0)*v(6385)
v(6386)=(xg(2)+xg(5)+xg(8))/3d0
v(6435)=-v(6386)+xg(8)
v(6434)=-v(6386)+xg(2)
v(6387)=(ug(14)+ug(2)+ug(8))/3d0
v(17785)=-v(6386)-v(6387)
v(6604)=ug(8)+v(17785)+xg(5)
v(6445)=ug(14)+v(17785)+xg(8)
v(6444)=ug(2)+v(17785)+xg(2)
v(6388)=-v(17785)+v(17806)+v(6604)
v(8264)=(v(6388)*v(6388))
v(8369)=2d0*v(8264)
v(8069)=(-2d0)*v(6388)
v(6389)=(xg(3)+xg(6)+xg(9))/3d0
v(6437)=-v(6389)+xg(9)
v(6436)=-v(6389)+xg(3)
v(6390)=(ug(15)+ug(3)+ug(9))/3d0
v(17786)=-v(6389)-v(6390)
v(6608)=ug(9)+v(17786)+xg(6)
v(6447)=ug(15)+v(17786)+xg(9)
v(6446)=ug(3)+v(17786)+xg(3)
v(6391)=-v(17786)+v(17808)+v(6608)
v(8305)=(v(6391)*v(6391))
v(8370)=2d0*v(8305)
v(8070)=(-2d0)*v(6391)
v(6690)=v(8263)+v(8264)+v(8305)
v(17788)=1d0/sqrt(v(6690))
v(17787)=-v(17788)/(2d0*v(6690))
v(8077)=v(17787)*v(8070)
v(8076)=v(17787)*v(8069)
v(8075)=v(17787)*v(8068)
v(8072)=1d0/v(6690)**2
v(8073)=-(v(8069)*v(8072))
v(8071)=-(v(8068)*v(8072))
v(6689)=v(17788)
v(17794)=v(6689)*v(8071)+v(8075)/v(6690)
v(17797)=v(17794)*v(6385)
v(17789)=v(6388)*(v(6689)*v(8073)+v(8076)/v(6690))
v(8129)=2d0*v(17787)
v(8130)=v(17789)+v(8129)
v(8132)=v(6385)*v(8130)
v(8149)=-(v(6445)*v(8132))
v(8144)=-(v(6443)*v(8132))
v(8141)=v(6444)*v(8132)
v(8134)=v(6442)*v(8132)
v(8080)=v(6391)*(-(v(6689)*v(8070)*v(8072))+v(8077)/v(6690))+v(8129)
v(8107)=v(6385)*v(8080)
v(8126)=-(v(6447)*v(8107))
v(8121)=-(v(6443)*v(8107))
v(8117)=v(6446)*v(8107)
v(8110)=v(6442)*v(8107)
v(8083)=v(6388)*v(8080)
v(8104)=-(v(6447)*v(8083))
v(8098)=-(v(6445)*v(8083))
v(17799)=v(8098)+v(8121)
v(8094)=v(6446)*v(8083)
v(8086)=v(6444)*v(8083)
v(8078)=v(17794)*v(6391)
v(8081)=v(6388)*v(8078)
v(8120)=-(v(6443)*v(8081))
v(8109)=v(6442)*v(8081)
v(8101)=-(v(6447)*v(8081))
v(8096)=-(v(6445)*v(8081))
v(8090)=v(6446)*v(8081)
v(8084)=v(6444)*v(8081)
v(8151)=(-2d0)*v(8077)+v(6391)*v(8080)
v(8157)=-(v(6447)*v(8151))
v(8153)=v(6446)*v(8151)
v(8106)=-v(8077)+v(6385)*v(8078)
v(8124)=-(v(6447)*v(8106))
v(8122)=-(v(6443)*v(8106))
v(17792)=v(8096)+v(8122)
v(8114)=v(6446)*v(8106)
v(8111)=v(6442)*v(8106)
v(8082)=v(17789)*v(6391)-v(8077)
v(8102)=-(v(6447)*v(8082))
v(17801)=v(8102)+v(8144)
v(8099)=-(v(6445)*v(8082))
v(17790)=v(8099)+v(8120)
v(8091)=v(6446)*v(8082)
v(8087)=v(6444)*v(8082)
v(6699)=v(6388)*v(8077)
v(8092)=(2d0/3d0)*v(6699)
v(17791)=v(8087)+v(8092)+v(8109)
v(8093)=v(8092)+v(8094)
v(8089)=-v(6699)/3d0
v(8200)=v(17790)-v(8092)+v(8104)
v(8103)=-v(8089)+v(8104)
v(8208)=v(17790)+v(17791)-v(8089)+v(8093)+v(8103)
v(8202)=-v(8087)-v(8093)-v(8099)-v(8103)-v(8109)-v(8120)
v(8204)=v(17791)+v(8094)+v(8200)
v(6815)=v(6444)*v(6699)
v(6812)=v(6446)*v(6699)
v(6716)=-(v(6445)*v(6699))
v(6712)=-(v(6447)*v(6699))
v(6697)=v(6385)*v(8077)
v(8115)=(2d0/3d0)*v(6697)
v(17793)=v(8084)+v(8111)+v(8115)
v(8116)=v(8115)+v(8117)
v(8113)=-v(6697)/3d0
v(8184)=v(17792)-v(8115)+v(8126)
v(8125)=-v(8113)+v(8126)
v(8196)=v(17792)+v(17793)-v(8113)+v(8116)+v(8125)
v(8187)=-v(8084)-v(8096)-v(8111)-v(8116)-v(8122)-v(8125)
v(8190)=v(17793)+v(8117)+v(8184)
v(6814)=v(6442)*v(6697)
v(6808)=v(6446)*v(6697)
v(6715)=-(v(6443)*v(6697))
v(6707)=-(v(6447)*v(6697))
v(8160)=(-2d0)*v(8076)+v(6388)*v(8130)
v(8166)=-(v(6445)*v(8160))
v(8162)=v(6444)*v(8160)
v(8131)=v(17797)*v(6388)-v(8076)
v(8147)=-(v(6445)*v(8131))
v(17803)=v(8124)+v(8147)
v(8145)=-(v(6443)*v(8131))
v(17795)=v(8101)+v(8145)
v(8138)=v(6444)*v(8131)
v(8135)=v(6442)*v(8131)
v(6696)=v(6385)*v(8076)
v(8139)=(2d0/3d0)*v(6696)
v(17796)=v(8090)+v(8135)+v(8139)
v(8140)=v(8139)+v(8141)
v(8137)=-v(6696)/3d0
v(8183)=v(17795)-v(8139)+v(8149)
v(8148)=-v(8137)+v(8149)
v(8194)=v(17795)+v(17796)-v(8137)+v(8140)+v(8148)
v(8186)=-v(8090)-v(8101)-v(8135)-v(8140)-v(8145)-v(8148)
v(8189)=v(17796)+v(8141)+v(8183)
v(6810)=v(6442)*v(6696)
v(6807)=v(6444)*v(6696)
v(6710)=-(v(6443)*v(6696))
v(6706)=-(v(6445)*v(6696))
v(8170)=(-2d0)*v(8075)+v(6385)*(v(17797)+v(8129))
v(8176)=-(v(6443)*v(8170))
v(8172)=v(6442)*v(8170)
v(6700)=-v(6689)+v(6391)*v(8077)
v(8159)=(2d0/3d0)*v(6700)
v(17798)=v(8153)+v(8159)
v(8155)=-v(6700)/3d0
v(8210)=v(17799)+v(8157)-v(8159)
v(8156)=-v(8155)+v(8157)
v(8212)=v(17798)+v(8086)+v(8110)+v(8210)
v(8152)=v(17798)
v(8214)=v(17799)-v(8155)+v(8156)+v(8159)-v(8210)+v(8212)
v(8211)=-v(8086)-v(8098)-v(8110)-v(8121)-v(8152)-v(8156)
v(6816)=v(6446)*v(6700)
v(6717)=-(v(6447)*v(6700))
v(6698)=-v(6689)+v(6388)*v(8076)
v(8168)=(2d0/3d0)*v(6698)
v(17800)=v(8162)+v(8168)
v(8164)=-v(6698)/3d0
v(8199)=v(17801)+v(8166)-v(8168)
v(8165)=-v(8164)+v(8166)
v(8203)=v(17800)+v(8091)+v(8134)+v(8199)
v(8161)=v(17800)
v(8206)=v(17801)-v(8164)+v(8165)+v(8168)-v(8199)+v(8203)
v(8201)=-v(8091)-v(8102)-v(8134)-v(8144)-v(8161)-v(8165)
v(6811)=v(6444)*v(6698)
v(6711)=-(v(6445)*v(6698))
v(6695)=-v(6689)+v(6385)*v(8075)
v(8178)=(2d0/3d0)*v(6695)
v(17802)=v(8172)+v(8178)
v(8174)=-v(6695)/3d0
v(8182)=v(17803)+v(8176)-v(8178)
v(8175)=-v(8174)+v(8176)
v(8188)=v(17802)+v(8114)+v(8138)+v(8182)
v(8171)=v(17802)
v(8192)=v(17803)-v(8174)+v(8175)+v(8178)-v(8182)+v(8188)
v(8185)=-v(8114)-v(8124)-v(8138)-v(8147)-v(8171)-v(8175)
v(6806)=v(6442)*v(6695)
v(6705)=-(v(6443)*v(6695))
v(6392)=-xg(1)+xg(4)
v(6393)=-xg(2)+xg(5)
v(6394)=-xg(3)+xg(6)
v(6416)=1d0/sqrt(v(6392)**2+v(6393)**2+v(6394)**2)
v(6395)=v(6385)+v(6443)-v(6600)
v(17813)=2d0*v(6395)
v(8404)=2d0*(v(6395)*v(6395))
v(8301)=v(6395)*v(8068)
v(6724)=v(6385)-v(6395)
v(17805)=2d0*v(6724)
v(8446)=2d0*(v(6724)*v(6724))
v(8401)=v(17805)*v(6395)
v(8297)=-(v(17805)*v(6385))
v(6396)=v(6388)+v(6445)-v(6604)
v(17815)=v(6385)*v(6396)
v(8427)=2d0*(v(6396)*v(6396))
v(8363)=v(6396)*v(8069)
v(6723)=-v(6388)+v(6396)
v(17807)=2d0*v(6723)
v(8458)=2d0*(v(6723)*v(6723))
v(8422)=-(v(17807)*v(6396))
v(8358)=v(17807)*v(6388)
v(6397)=v(6391)+v(6447)-v(6608)
v(17817)=v(6385)*v(6397)
v(17816)=v(6388)*v(6397)
v(8428)=2d0*(v(6397)*v(6397))
v(8364)=v(6397)*v(8070)
v(6722)=v(6391)-v(6397)
v(17809)=2d0*v(6722)
v(8457)=2d0*(v(6722)*v(6722))
v(8421)=v(17809)*v(6397)
v(8357)=-(v(17809)*v(6391))
v(6398)=-xg(1)+xg(7)
v(6399)=-xg(2)+xg(8)
v(6400)=-xg(3)+xg(9)
v(6401)=v(6385)*v(6689)
v(6719)=(-2d0/3d0)*v(6401)
v(6704)=v(6401)/3d0
v(6708)=v(6704)-v(6705)-v(6706)-v(6707)
v(6809)=-v(6704)+v(6708)-v(6806)-v(6807)-v(6808)
v(6803)=v(6704)+v(6705)+v(6706)+v(6707)-v(6719)+v(6806)+v(6807)+v(6808)
v(6403)=v(6388)*v(6689)
v(6720)=(-2d0/3d0)*v(6403)
v(6709)=v(6403)/3d0
v(6713)=v(6709)-v(6710)-v(6711)-v(6712)
v(6813)=-v(6709)+v(6713)-v(6810)-v(6811)-v(6812)
v(6804)=v(6709)+v(6710)+v(6711)+v(6712)-v(6720)+v(6810)+v(6811)+v(6812)
v(6404)=v(6391)*v(6689)
v(6721)=(-2d0/3d0)*v(6404)
v(6714)=v(6404)/3d0
v(6718)=v(6714)-v(6715)-v(6716)-v(6717)
v(6817)=-v(6714)+v(6718)-v(6814)-v(6815)-v(6816)
v(6805)=v(6714)+v(6715)+v(6716)+v(6717)-v(6721)+v(6814)+v(6815)+v(6816)
v(6440)=-(v(6401)*v(6443))-v(6403)*v(6445)-v(6404)*v(6447)
v(6405)=v(17816)-v(6391)*v(6396)
v(8257)=(-2d0)*v(6405)
v(6406)=-v(17817)+v(6391)*v(6395)
v(8255)=2d0*v(6406)
v(8223)=-(v(6385)*v(8255))-v(6388)*v(8257)
v(8220)=v(6395)*v(8255)+v(6396)*v(8257)
v(8217)=v(6724)*v(8255)-v(6723)*v(8257)
v(6407)=v(17815)-v(6388)*v(6395)
v(8299)=(-2d0)*v(6407)
v(8222)=v(6391)*v(8257)-v(6385)*v(8299)
v(8221)=v(6391)*v(8255)+v(6388)*v(8299)
v(8219)=-(v(6397)*v(8257))+v(6395)*v(8299)
v(8218)=-(v(6397)*v(8255))-v(6396)*v(8299)
v(8216)=-(v(6722)*v(8257))+v(6724)*v(8299)
v(8215)=-(v(6722)*v(8255))+v(6723)*v(8299)
v(6726)=(v(6405)*v(6405))+(v(6406)*v(6406))+(v(6407)*v(6407))
v(17812)=1d0/sqrt(v(6726))
v(17811)=-1d0/(2d0*v(6726))
v(17810)=v(17812)/2d0
v(8250)=v(17810)*v(8223)
v(8248)=v(17810)*v(8222)
v(8246)=v(17810)*v(8221)
v(8244)=v(17810)*v(8220)
v(8242)=v(17810)*v(8219)
v(8240)=v(17810)*v(8218)
v(8238)=v(17810)*v(8217)
v(8236)=1d0/v(6726)**2
v(8235)=v(17810)*v(8216)
v(8233)=v(17810)*v(8215)
v(8232)=-(v(8250)/v(6726))
v(8231)=-(v(8248)/v(6726))
v(8249)=v(17811)*v(8231)+v(8236)*v(8248)
v(8230)=-(v(8246)/v(6726))
v(8247)=v(17811)*v(8230)+v(8236)*v(8246)
v(8229)=-(v(8244)/v(6726))
v(8245)=v(17811)*v(8229)+v(8236)*v(8244)
v(8228)=-(v(8242)/v(6726))
v(8243)=v(17811)*v(8228)+v(8236)*v(8242)
v(8227)=-(v(8240)/v(6726))
v(8241)=v(17811)*v(8227)+v(8236)*v(8240)
v(8226)=-(v(8238)/v(6726))
v(8239)=v(17811)*v(8226)+v(8236)*v(8238)
v(8225)=-(v(8235)/v(6726))
v(8237)=v(17811)*v(8225)+v(8235)*v(8236)
v(8224)=-(v(8233)/v(6726))
v(8234)=v(17811)*v(8224)+v(8233)*v(8236)
v(6725)=v(17812)
v(6728)=-(v(17810)/v(6726))
v(17814)=(-2d0)*v(6728)
v(8460)=v(6405)*(v(8215)*v(8234)+v(6728)*(v(8457)+v(8458)))
v(8449)=v(6406)*(v(8216)*v(8237)+v(6728)*(v(8446)+v(8457)))
v(8445)=v(17807)*v(6724)*v(6728)+v(8216)*v(8234)
v(8548)=v(6406)*v(8445)
v(8453)=v(6405)*v(8445)
v(8441)=v(6407)*(v(8217)*v(8239)+v(6728)*(v(8446)+v(8458)))
v(8436)=v(17809)*v(6728)
v(8437)=v(8217)*v(8237)+v(6723)*v(8436)
v(8485)=v(6407)*v(8437)
v(8443)=v(6406)*v(8437)
v(8435)=v(8217)*v(8234)-v(6724)*v(8436)
v(8547)=v(6407)*v(8435)
v(8444)=v(6405)*v(8435)
v(8430)=v(6405)*(v(8218)*v(8241)+v(6728)*(v(8427)+v(8428)))
v(8424)=v(6405)*(v(8218)*v(8234)+v(6728)*(v(8421)+v(8422)))
v(8410)=v(6406)*(v(8219)*v(8243)+v(6728)*(v(8404)+v(8428)))
v(8403)=-(v(17813)*v(6396)*v(6728))+v(8219)*v(8241)
v(8544)=v(6406)*v(8403)
v(8418)=v(6405)*v(8403)
v(8402)=v(8219)*v(8237)+v(6728)*(v(8401)+v(8421))
v(8407)=v(6406)*v(8402)
v(8400)=v(8219)*v(8234)+v(6728)*(v(17813)*v(6723)-v(8299))
v(8542)=v(6406)*v(8400)
v(8413)=v(6405)*v(8400)
v(8387)=v(6407)*(v(8220)*v(8245)+v(6728)*(v(8404)+v(8427)))
v(8379)=v(17814)*v(6397)
v(8380)=v(8220)*v(8243)+v(6396)*v(8379)
v(8484)=v(6407)*v(8380)
v(8393)=v(6406)*v(8380)
v(8378)=v(8220)*v(8241)+v(6395)*v(8379)
v(8541)=v(6407)*v(8378)
v(8399)=v(6405)*v(8378)
v(8377)=v(8220)*v(8239)+v(6728)*(v(8401)+v(8422))
v(8384)=v(6407)*v(8377)
v(8376)=v(8220)*v(8237)-v(6728)*(v(17809)*v(6396)+v(8257))
v(8483)=v(6407)*v(8376)
v(8416)=v(6405)*v(8376)
v(8389)=v(6406)*v(8376)
v(8375)=v(8220)*v(8234)-v(6728)*(v(17809)*v(6395)+v(8255))
v(8538)=v(6407)*v(8375)
v(8394)=v(6405)*v(8375)
v(8372)=v(6405)*(v(8221)*v(8247)+v(6728)*(v(8369)+v(8370)))
v(8366)=v(6405)*(v(8221)*v(8241)+v(6728)*(v(8363)+v(8364)))
v(8360)=v(6405)*(v(8221)*v(8234)+v(6728)*(v(8357)+v(8358)))
v(8314)=v(6406)*(v(8222)*v(8249)+v(6728)*(v(8304)+v(8370)))
v(8303)=v(17814)*v(6385)*v(6388)+v(8222)*v(8247)
v(8523)=v(6406)*v(8303)
v(8341)=v(6405)*v(8303)
v(8302)=v(8222)*v(8243)+v(6728)*(v(8301)+v(8364))
v(8311)=v(6406)*v(8302)
v(8300)=v(8222)*v(8241)+v(6728)*(2d0*v(17815)-v(8299))
v(8521)=v(6406)*v(8300)
v(8336)=v(6405)*v(8300)
v(8298)=v(8222)*v(8237)+v(6728)*(v(8297)+v(8357))
v(8308)=v(6406)*v(8298)
v(8296)=v(8222)*v(8234)+v(6728)*(-(v(17807)*v(6385))+v(8299))
v(8519)=v(6406)*v(8296)
v(8331)=v(6405)*v(8296)
v(8274)=v(6407)*(v(8223)*(v(17811)*v(8232)+v(8236)*v(8250))+v(6728)*(v(8304)+v(8369)))
v(8261)=v(17814)*v(6391)
v(8262)=v(8223)*v(8249)+v(6388)*v(8261)
v(8469)=v(6407)*v(8262)
v(8482)=-(v(6403)*v(8274))+v(6404)*v(8469)
v(8284)=v(6406)*v(8262)
v(8535)=v(6401)*v(8284)-v(6404)*v(8523)
v(8329)=-(v(6403)*v(8284))+v(6404)*v(8314)
v(8260)=v(8223)*v(8247)+v(6385)*v(8261)
v(8494)=v(6407)*v(8260)
v(8507)=-(v(6401)*v(8469))+v(6403)*v(8494)
v(8295)=v(6405)*v(8260)
v(8355)=-(v(6403)*v(8295))+v(6404)*v(8341)
v(8259)=v(8223)*v(8245)+v(6728)*(v(8301)+v(8363))
v(8271)=v(6407)*v(8259)
v(8258)=v(8223)*v(8243)+v(6728)*(2d0*v(17816)-v(8257))
v(8468)=v(6407)*v(8258)
v(8339)=v(6405)*v(8258)
v(8280)=v(6406)*v(8258)
v(8256)=v(8223)*v(8241)+v(6728)*(2d0*v(17817)-v(8255))
v(8491)=v(6407)*v(8256)
v(8290)=v(6405)*v(8256)
v(8254)=v(8223)*v(8239)+v(6728)*(v(8297)+v(8358))
v(8268)=v(6407)*v(8254)
v(8253)=v(8223)*v(8237)+v(6728)*(v(17809)*v(6388)+v(8257))
v(8467)=v(6407)*v(8253)
v(8334)=v(6405)*v(8253)
v(8276)=v(6406)*v(8253)
v(8252)=v(8223)*v(8234)+v(6728)*(v(17809)*v(6385)+v(8255))
v(8488)=v(6407)*v(8252)
v(8285)=v(6405)*v(8252)
v(8293)=v(6396)*v(8232)
v(8294)=v(6405)*v(8259)-v(8293)
v(8291)=-(v(6397)*v(8232))
v(8292)=-v(8291)+v(8339)
v(8288)=-(v(6723)*v(8232))
v(8289)=v(6405)*v(8254)-v(8288)
v(8286)=-(v(6722)*v(8232))
v(8287)=-v(8286)+v(8334)
v(8283)=v(6391)*v(8232)+v(6406)*v(8260)
v(8281)=-(v(6395)*v(8232))
v(8282)=v(6406)*v(8259)-v(8281)
v(8279)=v(6406)*v(8256)+v(8291)
v(8277)=-(v(6724)*v(8232))
v(8278)=v(6406)*v(8254)-v(8277)
v(8275)=v(6406)*v(8252)+v(8286)
v(8273)=v(6385)*v(8232)+v(8469)
v(8272)=-(v(6388)*v(8232))+v(8494)
v(8270)=v(8281)+v(8468)
v(8269)=v(8293)+v(8491)
v(8267)=v(8277)+v(8467)
v(8266)=v(8288)+v(8488)
v(6763)=v(6407)*v(8232)
v(8516)=v(6697)*v(6763)
v(8512)=v(6695)*v(6763)
v(8480)=-(v(6699)*v(6763))
v(8477)=-(v(6698)*v(6763))
v(8474)=-(v(6696)*v(6763))
v(6762)=v(6406)*v(8232)
v(8533)=v(6697)*v(6762)
v(8528)=v(6695)*v(6762)
v(8326)=-(v(6699)*v(6762))
v(8323)=-(v(6698)*v(6762))
v(8320)=-(v(6696)*v(6762))
v(6761)=v(6405)*v(8232)
v(8353)=-(v(6699)*v(6761))
v(8350)=-(v(6698)*v(6761))
v(8347)=-(v(6696)*v(6761))
v(8492)=v(6388)*v(8231)
v(8493)=v(8283)+v(8492)
v(8518)=v(6401)*v(8273)-v(6404)*v(8493)
v(8342)=v(6405)*v(8262)+v(8492)
v(8356)=-(v(6403)*v(8272))+v(6404)*v(8342)
v(8340)=-(v(6396)*v(8231))+v(8339)
v(8337)=-(v(6397)*v(8231))
v(8338)=v(6405)*v(8302)-v(8337)
v(8335)=v(6723)*v(8231)+v(8334)
v(8332)=-(v(6722)*v(8231))
v(8333)=v(6405)*v(8298)-v(8332)
v(8315)=-(v(6385)*v(8231))+v(8284)
v(8506)=-(v(6401)*v(8315))+v(6403)*v(8493)
v(8330)=-(v(6403)*v(8273))+v(6404)*v(8315)
v(8313)=v(6391)*v(8231)+v(8523)
v(8328)=-(v(6403)*v(8283))+v(6404)*v(8313)
v(8312)=v(6395)*v(8231)+v(8280)
v(8310)=v(8337)+v(8521)
v(8309)=v(6724)*v(8231)+v(8276)
v(8307)=v(8332)+v(8519)
v(6753)=v(6406)*v(8231)
v(8325)=v(6700)*v(6753)
v(8327)=-(v(6403)*v(8282))+v(6404)*v(8312)-v(8325)-v(8326)
v(8322)=v(6699)*v(6753)
v(8324)=-(v(6403)*v(8280))+v(6404)*v(8311)-v(8322)-v(8323)
v(8319)=v(6697)*v(6753)
v(8321)=-(v(6403)*v(8279))+v(6404)*v(8310)-v(8319)-v(8320)
v(8318)=-(v(6403)*v(8278))+v(6404)*v(8309)+v(8325)+v(8326)
v(8317)=-(v(6403)*v(8276))+v(6404)*v(8308)+v(8322)+v(8323)
v(8316)=-(v(6403)*v(8275))+v(6404)*v(8307)+v(8319)+v(8320)
v(6777)=v(6404)*v(6753)-v(6403)*v(6762)
v(6752)=v(6405)*v(8231)
v(8352)=v(6700)*v(6752)
v(8354)=-(v(6403)*v(8294))+v(6404)*v(8340)-v(8352)-v(8353)
v(8349)=v(6699)*v(6752)
v(8351)=-(v(6403)*v(8292))+v(6404)*v(8338)-v(8349)-v(8350)
v(8346)=v(6697)*v(6752)
v(8348)=-(v(6403)*v(8290))+v(6404)*v(8336)-v(8346)-v(8347)
v(8345)=-(v(6403)*v(8289))+v(6404)*v(8335)+v(8352)+v(8353)
v(8344)=-(v(6403)*v(8287))+v(6404)*v(8333)+v(8349)+v(8350)
v(8343)=-(v(6403)*v(8285))+v(6404)*v(8331)+v(8346)+v(8347)
v(6776)=v(6404)*v(6752)-v(6403)*v(6761)
v(17860)=2d0*v(6776)
v(8374)=v(6388)*v(8230)+v(8295)
v(8373)=-(v(6391)*v(8230))+v(8341)
v(8368)=-(v(6396)*v(8230))+v(8290)
v(8367)=v(6397)*v(8230)+v(8336)
v(8362)=v(6723)*v(8230)+v(8285)
v(8361)=v(6722)*v(8230)+v(8331)
v(6743)=v(6405)*v(8230)
v(8397)=-(v(6723)*v(8229))
v(8398)=v(6405)*v(8377)-v(8397)
v(8395)=-(v(6722)*v(8229))
v(8396)=-v(8395)+v(8416)
v(8392)=-(v(6397)*v(8229))+v(6406)*v(8378)
v(8390)=-(v(6724)*v(8229))
v(8391)=v(6406)*v(8377)-v(8390)
v(8388)=v(6406)*v(8375)+v(8395)
v(8386)=-(v(6395)*v(8229))+v(8484)
v(8385)=v(6396)*v(8229)+v(8541)
v(8383)=v(8390)+v(8483)
v(8382)=v(8397)+v(8538)
v(6760)=v(6407)*v(8229)
v(8755)=-(v(6698)*v(6760))
v(8752)=-(v(6699)*v(6760))
v(8703)=v(6696)*v(6760)
v(8701)=v(6695)*v(6760)
v(8699)=v(6697)*v(6760)
v(6759)=v(6406)*v(8229)
v(8779)=-(v(6696)*v(6759))
v(8777)=-(v(6699)*v(6759))
v(8774)=-(v(6698)*v(6759))
v(6758)=v(6405)*v(8229)
v(8802)=-(v(6699)*v(6758))
v(8799)=-(v(6698)*v(6758))
v(8723)=v(6696)*v(6758)
v(8720)=v(6697)*v(6758)
v(8716)=v(6695)*v(6758)
v(8539)=-(v(6396)*v(8228))
v(8540)=v(8392)+v(8539)
v(8489)=v(6388)*v(8228)
v(8420)=v(8339)+v(8489)
v(8419)=v(6405)*v(8380)+v(8539)
v(8417)=v(6723)*v(8228)+v(8416)
v(8414)=-(v(6722)*v(8228))
v(8415)=v(6405)*v(8402)-v(8414)
v(8412)=-(v(6385)*v(8228))+v(8280)
v(8411)=v(6395)*v(8228)+v(8393)
v(8409)=-(v(6397)*v(8228))+v(8544)
v(8408)=v(6724)*v(8228)+v(8389)
v(8406)=v(8414)+v(8542)
v(6750)=v(6406)*v(8228)
v(8776)=v(6700)*v(6750)
v(8773)=v(6699)*v(6750)
v(8616)=-(v(6697)*v(6750))
v(8613)=-(v(6695)*v(6750))
v(8609)=-(v(6696)*v(6750))
v(6749)=v(6405)*v(8228)
v(8801)=v(6700)*v(6749)
v(8798)=v(6699)*v(6749)
v(8637)=-(v(6697)*v(6749))
v(8632)=-(v(6696)*v(6749))
v(8629)=-(v(6695)*v(6749))
v(8434)=v(6388)*v(8227)+v(8290)
v(8433)=-(v(6391)*v(8227))+v(8336)
v(8432)=-(v(6396)*v(8227))+v(8399)
v(8431)=v(6397)*v(8227)+v(8418)
v(8426)=v(6723)*v(8227)+v(8394)
v(8425)=v(6722)*v(8227)+v(8413)
v(6740)=v(6405)*v(8227)
v(8719)=-(v(6700)*v(6740))
v(8715)=-(v(6697)*v(6740))
v(8634)=-(v(6699)*v(6740))
v(8631)=v(6698)*v(6740)
v(8628)=v(6696)*v(6740)
v(8442)=-(v(6722)*v(8226))+v(6406)*v(8435)
v(8440)=-(v(6724)*v(8226))+v(8485)
v(8439)=-(v(6723)*v(8226))+v(8547)
v(6757)=v(6407)*v(8226)
v(8814)=-(v(6699)*v(6757))
v(8811)=-(v(6698)*v(6757))
v(8732)=v(6696)*v(6757)
v(8730)=v(6697)*v(6757)
v(8726)=v(6695)*v(6757)
v(6756)=v(6406)*v(8226)
v(8818)=-(v(6698)*v(6756))
v(8795)=-(v(6696)*v(6756))
v(6755)=v(6405)*v(8226)
v(8738)=v(6696)*v(6755)
v(8735)=v(6695)*v(6755)
v(8545)=v(6723)*v(8225)
v(8546)=v(8442)+v(8545)
v(8536)=-(v(6396)*v(8225))
v(8486)=v(6388)*v(8225)
v(8456)=v(8334)+v(8486)
v(8455)=v(8416)+v(8536)
v(8454)=v(6405)*v(8437)+v(8545)
v(8452)=-(v(6385)*v(8225))+v(8276)
v(8451)=v(6395)*v(8225)+v(8389)
v(8450)=v(6724)*v(8225)+v(8443)
v(8448)=-(v(6722)*v(8225))+v(8548)
v(6747)=v(6406)*v(8225)
v(8817)=v(6699)*v(6747)
v(8647)=-(v(6697)*v(6747))
v(8643)=-(v(6696)*v(6747))
v(8640)=-(v(6695)*v(6747))
v(6746)=v(6405)*v(8225)
v(8654)=-(v(6697)*v(6746))
v(8650)=-(v(6695)*v(6746))
v(8466)=v(6388)*v(8224)+v(8285)
v(8465)=-(v(6391)*v(8224))+v(8331)
v(8464)=-(v(6396)*v(8224))+v(8394)
v(8463)=v(6397)*v(8224)+v(8413)
v(8462)=v(6723)*v(8224)+v(8444)
v(8461)=v(6722)*v(8224)+v(8453)
v(6737)=v(6405)*v(8224)
v(8734)=-(v(6697)*v(6737))
v(8652)=-(v(6699)*v(6737))
v(8649)=v(6696)*v(6737)
v(8543)=-v(6725)+v(6397)*v(8226)+v(8417)
v(8537)=v(6725)+v(8396)+v(8536)
v(8522)=-v(6725)-v(6391)*v(8229)+v(8340)
v(8520)=v(6725)-v(6391)*v(8226)+v(8335)
v(8490)=v(6725)+v(8292)+v(8489)
v(8487)=-v(6725)+v(8287)+v(8486)
v(6754)=-(v(6385)*v(6725))+v(6762)
v(8502)=-(v(6696)*v(6754))
v(8499)=-(v(6695)*v(6754))
v(8479)=v(6700)*v(6754)
v(8481)=-(v(6403)*v(8271))+v(6404)*v(8468)-v(8479)-v(8480)
v(8476)=v(6699)*v(6754)
v(8478)=-(v(6403)*v(8270))+v(6404)*v(8412)-v(8476)-v(8477)
v(8473)=v(6697)*v(6754)
v(8475)=-(v(6403)*v(8269))+v(6404)*v(8420)-v(8473)-v(8474)
v(8472)=-(v(6403)*v(8268))+v(6404)*v(8467)+v(8479)+v(8480)
v(8471)=-(v(6403)*v(8267))+v(6404)*v(8452)+v(8476)+v(8477)
v(8470)=-(v(6403)*v(8266))+v(6404)*v(8456)+v(8473)+v(8474)
v(6778)=v(6404)*v(6754)-v(6403)*v(6763)
v(6751)=v(6395)*v(6725)+v(6759)
v(8751)=v(6700)*v(6751)
v(8749)=v(6699)*v(6751)
v(8679)=v(6697)*v(6751)
v(6748)=v(6724)*v(6725)+v(6756)
v(8813)=v(6700)*v(6748)
v(8810)=v(6699)*v(6748)
v(8683)=v(6697)*v(6748)
v(6745)=v(6388)*v(6725)+v(6761)
v(8515)=-(v(6700)*v(6745))
v(8517)=v(6401)*v(8271)-v(6404)*v(8491)-v(8515)-v(8516)
v(8511)=-(v(6697)*v(6745))
v(8513)=v(6401)*v(8269)-v(6404)*v(8434)-v(8511)-v(8512)
v(8510)=v(6401)*v(8268)-v(6404)*v(8488)+v(8515)+v(8516)
v(8508)=v(6401)*v(8266)-v(6404)*v(8466)+v(8511)+v(8512)
v(8504)=v(6699)*v(6745)
v(8514)=v(6401)*v(8270)+v(8474)-v(6404)*v(8490)+v(8504)
v(8509)=v(6401)*v(8267)-v(8474)-v(6404)*v(8487)-v(8504)
v(8505)=-(v(6401)*v(8468))+v(8473)+v(6403)*v(8491)-v(8504)
v(8501)=v(6698)*v(6745)
v(8503)=-(v(6401)*v(8412))+v(6403)*v(8490)-v(8501)-v(8502)
v(8498)=v(6696)*v(6745)
v(8500)=-(v(6401)*v(8420))+v(6403)*v(8434)-v(8498)-v(8499)
v(8497)=-(v(6401)*v(8467))-v(8473)+v(6403)*v(8488)+v(8504)
v(8496)=-(v(6401)*v(8452))+v(6403)*v(8487)+v(8501)+v(8502)
v(8495)=-(v(6401)*v(8456))+v(6403)*v(8466)+v(8498)+v(8499)
v(6802)=v(6403)*v(6745)-v(6401)*v(6754)
v(17876)=2d0*v(6802)
v(6791)=-(v(6404)*v(6745))+v(6401)*v(6763)
v(6744)=-(v(6391)*v(6725))+v(6752)
v(8532)=-(v(6700)*v(6744))
v(8534)=v(6401)*v(8282)-v(6404)*v(8522)-v(8532)-v(8533)
v(8530)=-(v(6699)*v(6744))
v(8531)=v(6401)*v(8280)+v(8320)-v(6404)*v(8521)-v(8530)
v(8527)=-(v(6697)*v(6744))
v(8529)=v(6401)*v(8279)-v(6404)*v(8433)-v(8527)-v(8528)
v(8526)=v(6401)*v(8278)-v(6404)*v(8520)+v(8532)+v(8533)
v(8525)=v(6401)*v(8276)-v(8320)-v(6404)*v(8519)+v(8530)
v(8524)=v(6401)*v(8275)-v(6404)*v(8465)+v(8527)+v(8528)
v(6790)=-(v(6404)*v(6744))+v(6401)*v(6762)
v(17870)=2d0*v(6790)
v(6742)=-(v(6396)*v(6725))+v(6758)
v(8698)=-(v(6700)*v(6742))
v(8695)=-(v(6697)*v(6742))
v(8678)=-(v(6699)*v(6742))
v(6741)=v(6397)*v(6725)+v(6749)
v(8611)=-(v(6699)*v(6741))
v(8608)=v(6698)*v(6741)
v(8606)=v(6696)*v(6741)
v(6739)=v(6723)*v(6725)+v(6755)
v(8729)=-(v(6700)*v(6739))
v(8725)=-(v(6697)*v(6739))
v(8682)=-(v(6699)*v(6739))
v(6738)=v(6722)*v(6725)+v(6746)
v(8645)=-(v(6699)*v(6738))
v(8642)=v(6698)*v(6738)
v(8639)=v(6696)*v(6738)
v(6408)=v(6405)*v(6725)
v(8590)=-(v(6408)*v(8106))
v(8587)=v(8590)+v(8734)
v(8577)=-(v(6408)*v(8151))
v(8575)=-(v(6408)*v(8083))
v(8582)=v(8575)+v(8682)
v(8576)=-(v(6700)*v(6741))-v(8575)
v(8573)=-(v(6408)*v(8107))
v(8572)=v(8577)+v(8729)
v(8571)=-(v(6700)*v(6738))+v(8575)
v(8570)=-(v(6700)*v(6737))+v(8573)
v(8566)=v(6408)*v(8081)
v(8592)=-(v(6697)*v(6741))+v(8566)
v(8588)=-(v(6697)*v(6738))-v(8566)
v(8567)=v(6696)*v(6742)-v(8566)
v(8563)=v(6408)*v(8131)
v(8562)=v(6696)*v(6739)+v(8566)
v(8560)=v(8563)+v(8649)
v(8556)=v(6408)*v(8082)
v(8581)=-v(8556)+v(8645)
v(8557)=v(6698)*v(6742)-v(8556)
v(8554)=v(6408)*v(8160)
v(8552)=v(6408)*v(8132)
v(8551)=v(6698)*v(6739)+v(8556)
v(8550)=v(8554)+v(8642)
v(8549)=v(6698)*v(6737)+v(8552)
v(6799)=v(6408)*v(6698)
v(6796)=v(6408)*v(6696)
v(6788)=-(v(6408)*v(6700))
v(6785)=-(v(6408)*v(6699))
v(6783)=-(v(6408)*v(6697))
v(6410)=v(6406)*v(6725)
v(8669)=v(6410)*v(8082)
v(8666)=v(8669)+v(8817)
v(8663)=v(6410)*v(8151)
v(8661)=v(6410)*v(8083)
v(8659)=v(6410)*v(8107)
v(8681)=-(v(6401)*v(8484))+v(6403)*v(8541)-v(8575)-v(8659)+2d0*v(8678)+2d0*v(8679)
v(8674)=v(8659)+v(8683)
v(8684)=-(v(6401)*v(8485))+v(6403)*v(8547)-v(8582)-v(8674)-v(8682)-v(8683)
v(8680)=-(v(6401)*v(8483))+v(6403)*v(8538)+v(8582)+v(8674)-v(8678)-v(8679)
v(8658)=v(8663)+v(8813)
v(8657)=v(6700)*v(6747)+v(8661)
v(8656)=v(6700)*v(6746)+v(8659)
v(8624)=-(v(6410)*v(8106))
v(8672)=-v(8624)-v(8654)
v(8625)=-(v(6695)*v(6751))-v(8624)
v(8655)=-(v(6401)*v(8455))+v(6403)*v(8464)+v(8567)+v(8625)+v(8652)-v(8654)
v(8638)=-(v(6401)*v(8419))+v(6403)*v(8432)-v(8567)-v(8625)+v(8634)-v(8637)
v(8621)=-(v(6410)*v(8170))
v(8636)=-(v(6401)*v(8418))+v(6403)*v(8430)+v(8563)+v(8621)-2d0*v(8628)-2d0*v(8629)
v(8620)=-(v(6695)*v(6748))+v(8624)
v(8653)=-(v(6401)*v(8454))+v(6403)*v(8462)+v(8562)+v(8620)-v(8652)+v(8654)
v(8635)=-(v(6401)*v(8417))+v(6403)*v(8426)-v(8562)-v(8620)-v(8634)+v(8637)
v(8618)=v(8621)+v(8650)
v(8651)=-(v(6401)*v(8453))+v(6403)*v(8460)+v(8560)+v(8618)+v(8649)+v(8650)
v(8630)=-(v(6401)*v(8413))+v(6403)*v(8424)-v(8560)-v(8618)+v(8628)+v(8629)
v(8602)=-(v(6410)*v(8081))
v(8665)=v(6699)*v(6746)-v(8602)
v(8603)=-(v(6696)*v(6751))-v(8602)
v(8648)=-(v(6401)*v(8451))+v(6403)*v(8537)+v(8557)+v(8603)+v(8645)-v(8647)
v(8617)=-(v(6401)*v(8411))+v(6403)*v(8540)-v(8557)-v(8603)+v(8611)-v(8616)
v(8600)=-(v(6410)*v(8132))
v(8615)=-(v(6401)*v(8410))+v(6403)*v(8544)+v(8554)+v(8600)-2d0*v(8608)-2d0*v(8609)
v(8598)=-(v(6410)*v(8131))
v(8633)=-(v(6401)*v(8415))+v(6403)*v(8425)-v(8552)-v(8598)+v(8631)+v(8632)-v(8639)-v(8640)
v(8614)=-(v(6401)*v(8409))+v(6403)*v(8431)+v(8552)+v(8598)-v(8606)-v(8613)-v(8631)-v(8632)
v(8597)=-(v(6696)*v(6748))+v(8602)
v(8646)=-(v(6401)*v(8450))+v(6403)*v(8546)+v(8551)+v(8597)-v(8645)+v(8647)
v(8612)=-(v(6401)*v(8408))+v(6403)*v(8543)-v(8551)-v(8597)-v(8611)+v(8616)
v(8596)=v(8600)+v(8643)
v(8644)=-(v(6401)*v(8449))+v(6403)*v(8548)+v(8550)+v(8596)+v(8642)+v(8643)
v(8610)=-(v(6401)*v(8407))+v(6403)*v(8542)-v(8550)-v(8596)+v(8608)+v(8609)
v(8595)=-(v(6696)*v(6746))+v(8598)
v(8641)=-(v(6401)*v(8448))+v(6403)*v(8461)+v(8549)+v(8595)+v(8639)+v(8640)
v(8607)=-(v(6401)*v(8406))+v(6403)*v(8463)-v(8549)-v(8595)+v(8606)+v(8613)
v(6798)=-(v(6410)*v(6696))
v(6800)=v(6403)*v(6741)-v(6401)*v(6750)-v(6798)-v(6799)
v(6795)=-(v(6410)*v(6695))
v(6797)=v(6403)*v(6740)-v(6401)*v(6749)-v(6795)-v(6796)
v(6793)=v(6403)*v(6738)-v(6401)*v(6747)+v(6798)+v(6799)
v(6792)=v(6403)*v(6737)-v(6401)*v(6746)+v(6795)+v(6796)
v(6774)=v(6410)*v(6700)
v(6771)=v(6410)*v(6699)
v(6768)=v(6410)*v(6697)
v(6801)=v(6403)*v(6742)-v(6401)*v(6751)+v(6768)+v(6785)
v(6794)=v(6403)*v(6739)-v(6401)*v(6748)-v(6768)-v(6785)
v(6411)=v(6407)*v(6725)
v(8769)=-(v(6411)*v(8160))
v(8781)=-(v(6403)*v(8393))+v(6404)*v(8410)+v(8669)+v(8769)-2d0*v(8773)-2d0*v(8774)
v(8767)=-(v(6411)*v(8132))
v(8789)=v(6401)*v(8393)-v(6404)*v(8544)-v(8556)-2d0*v(8611)-v(8767)+2d0*v(8779)
v(8794)=-(v(6397)*v(8615))-v(6395)*v(8781)-v(6396)*v(8789)
v(8783)=v(8767)+v(8795)
v(8800)=-(v(6403)*v(8396))+v(6404)*v(8415)+v(8602)+v(8647)-v(8783)+v(8798)+v(8799)
v(8796)=v(6401)*v(8443)-v(6404)*v(8548)+v(8581)+v(8645)-v(8783)-v(8795)
v(8788)=v(6401)*v(8389)-v(6404)*v(8542)-v(8581)+v(8611)-v(8779)+v(8783)
v(8780)=-(v(6403)*v(8392))+v(6404)*v(8409)-v(8602)+v(8616)+v(8767)-v(8779)-v(8798)-v(8799)
v(8765)=v(8769)+v(8818)
v(8819)=-(v(6403)*v(8443))+v(6404)*v(8449)+v(8666)+v(8765)+v(8817)+v(8818)
v(8775)=-(v(6403)*v(8389))+v(6404)*v(8407)-v(8666)-v(8765)+v(8773)+v(8774)
v(8764)=-(v(6698)*v(6755))+v(8767)
v(8816)=-(v(6403)*v(8442))+v(6404)*v(8448)-v(8647)+v(8665)+v(8764)+v(8795)
v(8772)=-(v(6403)*v(8388))+v(6404)*v(8406)-v(8616)-v(8665)-v(8764)+v(8779)
v(8746)=-(v(6411)*v(8083))
v(8757)=-(v(6403)*v(8387))+v(6404)*v(8484)+v(8663)+v(8746)-2d0*v(8751)-2d0*v(8752)
v(8744)=-(v(6411)*v(8082))
v(8778)=-(v(6403)*v(8391))+v(6404)*v(8408)-v(8661)-v(8744)+v(8776)+v(8777)-v(8810)-v(8811)
v(8756)=-(v(6403)*v(8386))+v(6404)*v(8411)+v(8661)+v(8744)-v(8749)-v(8755)-v(8776)-v(8777)
v(8742)=v(8746)+v(8814)
v(8815)=-(v(6403)*v(8441))+v(6404)*v(8485)+v(8658)+v(8742)+v(8813)+v(8814)
v(8753)=-(v(6403)*v(8384))+v(6404)*v(8483)-v(8658)-v(8742)+v(8751)+v(8752)
v(8741)=-(v(6699)*v(6756))+v(8744)
v(8812)=-(v(6403)*v(8440))+v(6404)*v(8450)+v(8657)+v(8741)+v(8810)+v(8811)
v(8750)=-(v(6403)*v(8383))+v(6404)*v(8451)-v(8657)-v(8741)+v(8749)+v(8755)
v(8711)=v(6411)*v(8131)
v(8804)=-(v(6403)*v(8399))+v(6404)*v(8418)-v(8624)+2d0*v(8637)-v(8711)+2d0*v(8723)
v(8782)=-v(8711)-v(8738)
v(8820)=-(v(6403)*v(8444))+v(6404)*v(8453)-v(8654)+v(8672)-v(8738)+v(8782)
v(8797)=-(v(6403)*v(8394))+v(6404)*v(8413)-v(8637)-v(8672)-v(8723)-v(8782)
v(8712)=v(6695)*v(6759)-v(8711)
v(8739)=v(6401)*v(8388)-v(6404)*v(8463)+v(8592)-v(8652)+v(8712)-v(8738)
v(8724)=v(6401)*v(8392)-v(6404)*v(8431)-v(8592)-v(8634)-v(8712)-v(8723)
v(8793)=-(v(6397)*v(8614))-v(6396)*v(8724)-v(6395)*v(8780)
v(8709)=v(6411)*v(8170)
v(8722)=v(6401)*v(8399)-v(6404)*v(8430)+v(8590)+v(8709)-2d0*v(8715)-2d0*v(8716)
v(8808)=-(v(6397)*v(8636))-v(6396)*v(8722)-v(6395)*v(8804)
v(8707)=v(6695)*v(6756)+v(8711)
v(8737)=v(6401)*v(8442)-v(6404)*v(8461)+v(8588)+v(8652)+v(8707)+v(8738)
v(8718)=v(6401)*v(8396)-v(6404)*v(8425)-v(8588)+v(8634)-v(8707)+v(8723)
v(8706)=v(8709)+v(8735)
v(8736)=v(6401)*v(8444)-v(6404)*v(8460)+v(8587)+v(8706)+v(8734)+v(8735)
v(8717)=v(6401)*v(8394)-v(6404)*v(8424)-v(8587)-v(8706)+v(8715)+v(8716)
v(8692)=v(6411)*v(8107)
v(8705)=v(6401)*v(8387)-v(6404)*v(8541)+v(8577)+v(8692)-2d0*v(8698)-2d0*v(8699)
v(8763)=-(v(6397)*v(8681))-v(6396)*v(8705)-v(6395)*v(8757)
v(8690)=v(6411)*v(8081)
v(8803)=-(v(6403)*v(8398))+v(6404)*v(8417)-v(8674)+v(8690)+v(8732)+v(8801)+v(8802)
v(8754)=-(v(6403)*v(8385))+v(6404)*v(8419)+v(8659)-v(8679)-v(8690)+v(8703)-v(8801)-v(8802)
v(8740)=-(v(6699)*v(6755))-v(8690)
v(8809)=-(v(6403)*v(8439))+v(6404)*v(8454)+v(8656)+v(8683)-v(8732)+v(8740)
v(8748)=-(v(6403)*v(8382))+v(6404)*v(8455)-v(8656)+v(8679)-v(8703)-v(8740)
v(8691)=v(6697)*v(6759)-v(8690)
v(8733)=v(6401)*v(8391)-v(6404)*v(8543)+v(8576)-v(8682)+v(8691)-v(8732)
v(8792)=v(6800)-v(6397)*v(8612)-v(6396)*v(8733)-v(6395)*v(8778)
v(8704)=v(6401)*v(8386)-v(6404)*v(8540)-v(8576)-v(8678)-v(8691)-v(8703)
v(8762)=-(v(6397)*v(8617))-v(6396)*v(8704)-v(6395)*v(8756)
v(8688)=v(6411)*v(8106)
v(8721)=v(6401)*v(8398)-v(6404)*v(8426)-v(8573)-v(8688)+v(8719)+v(8720)-v(8725)-v(8726)
v(8807)=v(6797)-v(6397)*v(8635)-v(6396)*v(8721)-v(6395)*v(8803)
v(8702)=v(6401)*v(8385)-v(6404)*v(8432)+v(8573)+v(8688)-v(8695)-v(8701)-v(8719)-v(8720)
v(8761)=-(v(6397)*v(8638))-v(6396)*v(8702)-v(6395)*v(8754)
v(8687)=v(8692)+v(8730)
v(8731)=v(6401)*v(8441)-v(6404)*v(8547)+v(8572)+v(8687)+v(8729)+v(8730)
v(8826)=2d0*v(6794)-v(6397)*v(8684)-v(6396)*v(8731)-v(6395)*v(8815)
v(8700)=v(6401)*v(8384)-v(6404)*v(8538)-v(8572)-v(8687)+v(8698)+v(8699)
v(8760)=v(6801)-v(6397)*v(8680)-v(6396)*v(8700)-v(6395)*v(8753)
v(8686)=v(6697)*v(6756)+v(8690)
v(8728)=v(6401)*v(8440)-v(6404)*v(8546)+v(8571)+v(8682)+v(8686)+v(8732)
v(8697)=v(6401)*v(8383)-v(6404)*v(8537)-v(8571)+v(8678)-v(8686)+v(8703)
v(8685)=v(6697)*v(6755)+v(8688)
v(8727)=v(6401)*v(8439)-v(6404)*v(8462)+v(8570)+v(8685)+v(8725)+v(8726)
v(8696)=v(6401)*v(8382)-v(6404)*v(8464)-v(8570)-v(8685)+v(8695)+v(8701)
v(6787)=v(6411)*v(6697)
v(6789)=-(v(6404)*v(6742))+v(6401)*v(6760)-v(6787)-v(6788)
v(8759)=v(6789)-v(6397)*v(8648)-v(6396)*v(8697)-v(6395)*v(8750)
v(6782)=v(6411)*v(6695)
v(6784)=-(v(6404)*v(6740))+v(6401)*v(6758)-v(6782)-v(6783)
v(8806)=v(6784)-v(6397)*v(8633)-v(6396)*v(8718)-v(6395)*v(8800)
v(6781)=-(v(6404)*v(6739))+v(6401)*v(6757)+v(6787)+v(6788)
v(8825)=v(6781)+v(6793)-v(6397)*v(8646)-v(6396)*v(8728)-v(6395)*v(8812)
v(6779)=-(v(6404)*v(6737))+v(6401)*v(6755)+v(6782)+v(6783)
v(6773)=-(v(6411)*v(6699))
v(6775)=v(6404)*v(6751)-v(6403)*v(6760)-v(6773)-v(6774)
v(8758)=v(6775)-v(6397)*v(8655)-v(6396)*v(8696)-v(6395)*v(8748)
v(6826)=-(v(6395)*v(6775))-v(6396)*v(6789)-v(6397)*v(6801)
v(6770)=-(v(6411)*v(6698))
v(6772)=v(6404)*v(6750)-v(6403)*v(6759)-v(6770)-v(6771)
v(8790)=v(6772)-v(6397)*v(8607)-v(6396)*v(8739)-v(6395)*v(8772)
v(6767)=-(v(6411)*v(6696))
v(6786)=-(v(6404)*v(6741))+v(6401)*v(6759)+v(6767)-v(6785)
v(8791)=v(6786)-v(6397)*v(8610)-v(6395)*v(8775)-v(6396)*v(8788)
v(6825)=-(v(6395)*v(6772))-v(6396)*v(6786)-v(6397)*v(6800)
v(6780)=-(v(6404)*v(6738))+v(6401)*v(6756)-v(6767)+v(6785)
v(8824)=2d0*v(6780)-v(6397)*v(8644)-v(6396)*v(8796)-v(6395)*v(8819)
v(6769)=v(6404)*v(6749)-v(6403)*v(6758)-v(6767)-v(6768)
v(17861)=2d0*v(6769)
v(8805)=v(6769)-v(6397)*v(8630)-v(6396)*v(8717)-v(6395)*v(8797)
v(6824)=-(v(6395)*v(6769))-v(6396)*v(6784)-v(6397)*v(6797)
v(6766)=v(6404)*v(6748)-v(6403)*v(6757)+v(6773)+v(6774)
v(8823)=v(6766)+v(6792)-v(6397)*v(8653)-v(6396)*v(8727)-v(6395)*v(8809)
v(6765)=v(6404)*v(6747)-v(6403)*v(6756)+v(6770)+v(6771)
v(8822)=v(6765)+v(6779)-v(6397)*v(8641)-v(6396)*v(8737)-v(6395)*v(8816)
v(6764)=v(6404)*v(6746)-v(6403)*v(6755)+v(6767)+v(6768)
v(17859)=2d0*v(6764)
v(8821)=v(17859)-v(6397)*v(8651)-v(6396)*v(8736)-v(6395)*v(8820)
v(6412)=v(6404)*v(6410)-v(6403)*v(6411)
v(6821)=v(6412)-v(6395)*v(6764)-v(6396)*v(6779)-v(6397)*v(6792)
v(6413)=-(v(6404)*v(6408))+v(6401)*v(6411)
v(6822)=v(6413)-v(6395)*v(6765)-v(6396)*v(6780)-v(6397)*v(6793)
v(6414)=v(6403)*v(6408)-v(6401)*v(6410)
v(6823)=v(6414)-v(6395)*v(6766)-v(6396)*v(6781)-v(6397)*v(6794)
v(6415)=v(6392)*v(6416)
v(6417)=v(6393)*v(6416)
v(6418)=v(6394)*v(6416)
v(6430)=-(v(6415)*v(6433))-v(6417)*v(6435)-v(6418)*v(6437)
v(6419)=-(v(6394)*v(6399))+v(6393)*v(6400)
v(6420)=v(6394)*v(6398)-v(6392)*v(6400)
v(6421)=-(v(6393)*v(6398))+v(6392)*v(6399)
v(6423)=1d0/sqrt(v(6419)**2+v(6420)**2+v(6421)**2)
v(6422)=v(6419)*v(6423)
v(6424)=v(6420)*v(6423)
v(6425)=v(6421)*v(6423)
v(6426)=v(6418)*v(6424)-v(6417)*v(6425)
v(6595)=-(v(6426)*v(6433))
v(6427)=-(v(6418)*v(6422))+v(6415)*v(6425)
v(6596)=-(v(6427)*v(6435))
v(6428)=v(6417)*v(6422)-v(6415)*v(6424)
v(6597)=-(v(6428)*v(6437))
v(6594)=v(6426)*v(6432)+v(6427)*v(6434)+v(6428)*v(6436)
v(6429)=v(6430)+v(6415)*v(6432)+v(6417)*v(6434)+v(6418)*v(6436)
v(6431)=v(6430)+v(6415)*(-v(6383)+xg(4))+v(6417)*(-v(6386)+xg(5))+v(6418)*(-v(6389)+xg(6))
v(17818)=1d0/(v(6429)-v(6431))
v(6438)=v(6594)+v(6595)+v(6596)+v(6597)
v(17819)=1d0/v(6438)
v(6439)=v(6440)+v(6401)*v(6442)+v(6403)*v(6444)+v(6404)*v(6446)
v(6441)=v(6440)+v(6401)*v(6600)+v(6403)*v(6604)+v(6404)*v(6608)
v(6448)=-(v(6395)*v(6412))-v(6396)*v(6413)-v(6397)*v(6414)
v(6449)=v(17818)*v(17819)
v(6450)=v(17818)
v(8832)=v(6450)*v(6695)
v(8831)=v(6450)*v(6698)
v(8830)=v(6450)*v(6696)
v(8829)=v(6450)*v(6700)
v(8828)=v(6450)*v(6699)
v(8827)=v(6450)*v(6697)
v(6832)=v(6404)*v(6450)
v(6830)=v(6403)*v(6450)
v(6828)=v(6401)*v(6450)
v(6451)=-(v(6431)*v(6449))
v(6452)=v(6429)*v(6449)
v(6862)=-(v(17819)*v(6404))
v(6860)=-(v(17819)*v(6403))
v(6858)=-(v(17819)*v(6401))
v(6856)=-(v(6452)*(v(6600)*v(6697)+v(6604)*v(6699)+v(6608)*v(6700)-v(6718)+v(6721)))+v(6451)*v(6817)
v(6853)=-(v(6452)*(v(6600)*v(6696)+v(6604)*v(6698)+v(6608)*v(6699)-v(6713)+v(6720)))+v(6451)*v(6813)
v(6850)=-(v(6452)*(v(6600)*v(6695)+v(6604)*v(6696)+v(6608)*v(6697)-v(6708)+v(6719)))+v(6451)*v(6809)
v(6847)=v(6451)*v(6805)-v(6452)*v(6817)
v(6844)=v(6451)*v(6804)-v(6452)*v(6813)
v(6840)=v(6451)*v(6803)-v(6452)*v(6809)
v(6838)=-(v(17819)*v(6414))
v(6837)=-(v(17819)*v(6413))
v(6836)=-(v(17819)*v(6412))
v(6855)=v(17819)*v(6826)-v(6832)
v(6852)=v(17819)*v(6825)-v(6830)
v(6849)=v(17819)*v(6824)-v(6828)
v(6846)=v(17819)*v(6823)+v(6832)
v(6843)=v(17819)*v(6822)+v(6830)
v(6839)=v(17819)*v(6821)+v(6828)
v(6454)=v(6439)*v(6451)+v(6441)*v(6452)
v(17847)=v(6454)*v(6838)
v(17841)=v(6454)*v(6837)
v(17837)=v(6454)*v(6836)
v(6456)=v(17819)*v(6448)+(v(6439)-v(6441))*v(6450)
v(17857)=v(6454)*v(6839)-v(6456)*v(6840)
v(17848)=-(v(6456)*v(6862))
v(17849)=v(17847)+v(17848)
v(17842)=-(v(6456)*v(6860))
v(17856)=v(17841)+v(17842)
v(17838)=-(v(6456)*v(6858))
v(17835)=v(6454)*v(6855)-v(6456)*v(6856)
v(17832)=v(6454)*v(6852)-v(6456)*v(6853)
v(17829)=v(6454)*v(6849)-v(6456)*v(6850)
v(17826)=v(6454)*v(6846)-v(6456)*v(6847)
v(17823)=v(6454)*v(6843)-v(6456)*v(6844)
v(8878)=(v(6454)*v(6454))+(v(6456)*v(6456))
v(17855)=-(v(6858)/v(8878))
v(17854)=v(6836)/v(8878)
v(17852)=-(v(6862)/v(8878))
v(17851)=v(6838)/v(8878)
v(17846)=-(v(6860)/v(8878))
v(17845)=v(6837)/v(8878)
v(17840)=-(v(6839)/v(8878))
v(17839)=v(6840)/v(8878)
v(17834)=v(6852)/v(8878)
v(17833)=v(6853)/v(8878)
v(17831)=v(6849)/v(8878)
v(17830)=v(6850)/v(8878)
v(17828)=v(6846)/v(8878)
v(17827)=v(6847)/v(8878)
v(17825)=v(6843)/v(8878)
v(17824)=v(6844)/v(8878)
v(17822)=v(6454)/v(8878)
v(17853)=-(v(17819)*v(17822))
v(17850)=-(v(17819)*v(17822))
v(17844)=-(v(17819)*v(17822))
v(17836)=-(v(17819)*v(17822))
v(17821)=-(v(6456)/v(8878))
v(17843)=-(v(17819)*v(17821))
v(8880)=1d0/v(8878)**2
v(17820)=(-2d0)*v(8880)
v(8888)=v(17820)*(v(6456)*v(6838)+v(6454)*v(6862))
v(8887)=v(17820)*(v(6456)*v(6837)+v(6454)*v(6860))
v(8886)=v(17820)*(v(6456)*v(6836)+v(6454)*v(6858))
v(8885)=v(17820)*(v(6456)*v(6855)+v(6454)*v(6856))
v(8884)=v(17820)*(v(6456)*v(6852)+v(6454)*v(6853))
v(8883)=v(17820)*(v(6456)*v(6849)+v(6454)*v(6850))
v(8882)=v(17820)*(v(6456)*v(6846)+v(6454)*v(6847))
v(8881)=v(17820)*(v(6456)*v(6843)+v(6454)*v(6844))
v(8879)=v(17820)*(v(6456)*v(6839)+v(6454)*v(6840))
v(8993)=v(17821)*(-(v(6452)*v(8185))+v(6451)*v(8192))+v(17822)*(v(17819)*v(8821)+v(8832))+v(17857)*v(8879)
v(8990)=v(17821)*(-(v(6452)*v(8201))+v(6451)*v(8206))+v(17822)*(v(17819)*v(8824)+v(8831))+v(17823)*v(8881)
v(8987)=-(v(17824)*v(6839))+v(17825)*v(6840)+v(17821)*(-(v(6452)*v(8186))+v(6451)*v(8194))+v(17822)*(v(17819)*v(8822)+v&
&(8830))+v(17823)*v(8879)
v(8984)=v(17821)*(-(v(6452)*v(8211))+v(6451)*v(8214))+v(17822)*(v(17819)*v(8826)+v(8829))+v(17826)*v(8882)
v(8981)=v(17824)*v(6846)-v(17825)*v(6847)+v(17821)*(-(v(6452)*v(8202))+v(6451)*v(8208))+v(17822)*(v(17819)*v(8825)+v&
&(8828))+v(17826)*v(8881)
v(8978)=-(v(17827)*v(6839))+v(17828)*v(6840)+v(17821)*(-(v(6452)*v(8187))+v(6451)*v(8196))+v(17822)*(v(17819)*v(8823)+v&
&(8827))+v(17826)*v(8879)
v(8975)=v(17821)*(v(6452)*(v(6608)*v(8106)+v(6604)*v(8131)+v(6600)*v(8170)-2d0*v(8178)+v(8182))+v(6451)*v(8188))+v&
&(17822)*(v(17819)*v(8808)+v(8832))+v(17829)*v(8883)
v(8971)=v(17821)*(v(6451)*v(8187)-v(6452)*v(8190))
v(8972)=v(17827)*v(6849)-v(17828)*v(6850)+v(17822)*(v(17819)*v(8807)-v(8827))+v(17829)*v(8882)+v(8971)
v(8968)=v(17821)*(v(6451)*v(8186)-v(6452)*v(8189))
v(8969)=v(17824)*v(6849)-v(17825)*v(6850)+v(17822)*(v(17819)*v(8806)-v(8830))+v(17829)*v(8881)+v(8968)
v(8966)=-(v(17830)*v(6839))+v(17831)*v(6840)+v(17821)*(v(6451)*v(8185)-v(6452)*v(8188))+v(17822)*(v(17819)*v(8805)-v&
&(8832))+v(17829)*v(8879)
v(8963)=v(17821)*(v(6452)*(v(6608)*v(8082)+v(6600)*v(8132)+v(6604)*v(8160)-2d0*v(8168)+v(8199))+v(6451)*v(8203))+v&
&(17822)*(v(17819)*v(8794)+v(8831))+v(17832)*v(8884)
v(8960)=v(17830)*v(6852)-v(17831)*v(6853)+v(17821)*(v(6452)*(v(6608)*v(8081)+v(6600)*v(8131)+v(6604)*v(8132)-2d0*v(8139&
&)+v(8183))+v(6451)*v(8189))+v(17822)*(v(17819)*v(8793)+v(8830))+v(17832)*v(8883)
v(8956)=v(17821)*(v(6451)*v(8202)-v(6452)*v(8204))
v(8957)=v(17827)*v(6852)-v(17828)*v(6853)+v(17822)*(v(17819)*v(8792)-v(8828))+v(17832)*v(8882)+v(8956)
v(8954)=v(17824)*v(6852)-v(17825)*v(6853)+v(17821)*(v(6451)*v(8201)-v(6452)*v(8203))+v(17822)*(v(17819)*v(8791)-v(8831)&
&)+v(17832)*v(8881)
v(8951)=-(v(17833)*v(6839))+v(17834)*v(6840)+v(17822)*(v(17819)*v(8790)-v(8830))+v(17832)*v(8879)+v(8968)
v(8948)=v(17821)*(v(6452)*(v(6604)*v(8083)+v(6600)*v(8107)+v(6608)*v(8151)-2d0*v(8159)+v(8210))+v(6451)*v(8212))+v&
&(17822)*(v(17819)*v(8763)+v(8829))+v(17835)*v(8885)
v(8945)=v(17833)*v(6855)-v(17834)*v(6856)+v(17821)*(v(6452)*(v(6600)*v(8081)+v(6604)*v(8082)+v(6608)*v(8083)-2d0*v(8092&
&)+v(8200))+v(6451)*v(8204))+v(17822)*(v(17819)*v(8762)+v(8828))+v(17835)*v(8884)
v(8942)=v(17830)*v(6855)-v(17831)*v(6856)+v(17821)*(v(6452)*(v(6604)*v(8081)+v(6600)*v(8106)+v(6608)*v(8107)-2d0*v(8115&
&)+v(8184))+v(6451)*v(8190))+v(17822)*(v(17819)*v(8761)+v(8827))+v(17835)*v(8883)
v(8939)=v(17827)*v(6855)-v(17828)*v(6856)+v(17821)*(v(6451)*v(8211)-v(6452)*v(8212))+v(17822)*(v(17819)*v(8760)-v(8829)&
&)+v(17835)*v(8882)
v(8936)=v(17824)*v(6855)-v(17825)*v(6856)+v(17822)*(v(17819)*v(8759)-v(8828))+v(17835)*v(8881)+v(8956)
v(8933)=v(17839)*v(6855)+v(17840)*v(6856)+v(17822)*(v(17819)*v(8758)-v(8827))+v(17835)*v(8879)+v(8971)
v(8930)=v(17836)*v(6776)+v(17837)*v(8886)+v(17838)*v(8886)
v(8925)=v(17843)*v(6695)
v(8926)=v(17836)*v(6769)+v(17830)*v(6836)-v(17831)*v(6858)+v(17837)*v(8883)+v(17838)*v(8883)-v(8925)
v(8922)=v(17836)*v(6764)+v(17839)*v(6836)+v(17840)*v(6858)+v(17837)*v(8879)+v(17838)*v(8879)+v(8925)
v(8920)=v(17836)*v(6790)+v(17841)*v(8887)+v(17842)*v(8887)
v(8918)=v(17844)*v(6777)+v(17846)*v(6836)+v(17845)*v(6858)+v(17856)*v(8886)
v(8914)=v(17843)*v(6698)
v(8915)=v(17844)*v(6786)+v(17846)*v(6852)+v(17845)*v(6853)+v(17841)*v(8884)+v(17842)*v(8884)-v(8914)
v(8912)=v(17843)*v(6696)
v(8927)=v(17836)*v(6772)+v(17833)*v(6836)-v(17834)*v(6858)+v(17837)*v(8884)+v(17838)*v(8884)-v(8912)
v(8923)=v(17836)*v(6765)+v(17824)*v(6836)-v(17825)*v(6858)+v(17837)*v(8881)+v(17838)*v(8881)+v(8912)
v(8913)=v(17836)*v(6784)+v(17830)*v(6837)-v(17831)*v(6860)+v(17841)*v(8883)+v(17842)*v(8883)-v(8912)
v(8910)=v(17836)*v(6780)+v(17824)*v(6837)-v(17825)*v(6860)+v(17841)*v(8881)+v(17842)*v(8881)+v(8914)
v(8908)=v(17836)*v(6779)+v(17839)*v(6837)+v(17840)*v(6860)+v(17841)*v(8879)+v(17842)*v(8879)+v(8912)
v(8906)=v(17836)*v(6802)+v(17847)*v(8888)+v(17848)*v(8888)
v(8904)=v(17853)*v(6791)-v(17846)*v(6838)-v(17845)*v(6862)+v(17849)*v(8887)
v(8902)=v(17850)*v(6778)+v(17852)*v(6836)+v(17851)*v(6858)+v(17849)*v(8886)
v(8899)=v(17843)*v(6700)
v(8900)=v(17850)*v(6801)+v(17852)*v(6855)+v(17851)*v(6856)+v(17847)*v(8885)+v(17848)*v(8885)-v(8899)
v(8897)=v(17843)*v(6699)
v(8916)=v(17853)*v(6789)+v(17846)*v(6855)+v(17845)*v(6856)+v(17841)*v(8885)+v(17842)*v(8885)-v(8897)
v(8911)=v(17836)*v(6781)+v(17827)*v(6837)-v(17828)*v(6860)+v(17841)*v(8882)+v(17842)*v(8882)+v(8897)
v(8898)=v(17836)*v(6800)+v(17833)*v(6838)-v(17834)*v(6862)+v(17847)*v(8884)+v(17848)*v(8884)-v(8897)
v(8895)=v(17843)*v(6697)
v(8928)=v(17836)*v(6775)+v(17855)*v(6855)+v(17854)*v(6856)+v(17837)*v(8885)+v(17838)*v(8885)-v(8895)
v(8924)=v(17836)*v(6766)+v(17855)*v(6846)+v(17854)*v(6847)+v(17837)*v(8882)+v(17838)*v(8882)+v(8895)
v(8896)=v(17836)*v(6797)+v(17830)*v(6838)-v(17831)*v(6862)+v(17847)*v(8883)+v(17848)*v(8883)-v(8895)
v(8894)=v(17836)*v(6794)+v(17827)*v(6838)-v(17828)*v(6862)+v(17847)*v(8882)+v(17848)*v(8882)+v(8899)
v(8892)=v(17836)*v(6793)+v(17824)*v(6838)-v(17825)*v(6862)+v(17847)*v(8881)+v(17848)*v(8881)+v(8897)
v(8890)=v(17836)*v(6792)+v(17839)*v(6838)+v(17840)*v(6862)+v(17847)*v(8879)+v(17848)*v(8879)+v(8895)
v(6863)=v(17849)/v(8878)
v(6861)=v(17856)/v(8878)
v(6859)=(v(17837)+v(17838))/v(8878)
v(6857)=v(17835)/v(8878)
v(6854)=v(17832)/v(8878)
v(6851)=v(17829)/v(8878)
v(6848)=v(17826)/v(8878)
v(6845)=v(17823)/v(8878)
v(6842)=v(17857)/v(8878)
v(6457)=datan2(-v(6454),v(6456))
v(17858)=dcos(v(6457))
v(9002)=v(17858)*v(6863)
v(9001)=v(17858)*v(6861)
v(9302)=v(6791)*v(9001)
v(9000)=v(17858)*v(6859)
v(9458)=v(6777)*v(9000)
v(9323)=v(6778)*v(9000)
v(8999)=v(17858)*v(6857)
v(17869)=2d0*v(8999)
v(9259)=-(v(6700)*v(8999))
v(8998)=v(17858)*v(6854)
v(17868)=2d0*v(8998)
v(9405)=-(v(6698)*v(8998))
v(9377)=-(v(6699)*v(8998))
v(8997)=v(17858)*v(6851)
v(17875)=2d0*v(8997)
v(9568)=-(v(6695)*v(8997))
v(9550)=-(v(6696)*v(8997))
v(9505)=-(v(6697)*v(8997))
v(8996)=v(17858)*v(6848)
v(17867)=2d0*v(8996)
v(9573)=-(v(6695)*v(8996))
v(9412)=-(v(6698)*v(8996))
v(9268)=-(v(6700)*v(8996))
v(8995)=v(17858)*v(6845)
v(17866)=2d0*v(8995)
v(9600)=-(v(6695)*v(8995))
v(9418)=-(v(6698)*v(8995))
v(9383)=-(v(6699)*v(8995))
v(8994)=v(17858)*v(6842)
v(17874)=2d0*v(8994)
v(9603)=-(v(6695)*v(8994))
v(9553)=-(v(6696)*v(8994))
v(9508)=-(v(6697)*v(8994))
v(6864)=dsin(v(6457))
v(9047)=-(v(6864)*v(8993))-v(6842)*v(8994)
v(9046)=-(v(6864)*v(8990))-v(6845)*v(8995)
v(9045)=-(v(6864)*v(8987))-v(6845)*v(8994)
v(9044)=-(v(6864)*v(8984))-v(6848)*v(8996)
v(9043)=-(v(6864)*v(8981))-v(6848)*v(8995)
v(9042)=-(v(6864)*v(8978))-v(6848)*v(8994)
v(9041)=-(v(6864)*v(8975))-v(6851)*v(8997)
v(9040)=-(v(6864)*v(8972))-v(6851)*v(8996)
v(9039)=-(v(6864)*v(8969))-v(6851)*v(8995)
v(9038)=-(v(6864)*v(8966))-v(6851)*v(8994)
v(9037)=-(v(6864)*v(8963))-v(6854)*v(8998)
v(9036)=-(v(6864)*v(8960))-v(6854)*v(8997)
v(9035)=-(v(6864)*v(8957))-v(6854)*v(8996)
v(9034)=-(v(6864)*v(8954))-v(6854)*v(8995)
v(9033)=-(v(6864)*v(8951))-v(6854)*v(8994)
v(9032)=-(v(6864)*v(8948))-v(6857)*v(8999)
v(9031)=-(v(6864)*v(8945))-v(6857)*v(8998)
v(9030)=-(v(6864)*v(8942))-v(6857)*v(8997)
v(9029)=-(v(6864)*v(8939))-v(6857)*v(8996)
v(9028)=-(v(6864)*v(8936))-v(6857)*v(8995)
v(9027)=-(v(6864)*v(8933))-v(6857)*v(8994)
v(9026)=-(v(6864)*v(8930))-v(6859)*v(9000)
v(9025)=-(v(6864)*v(8928))-v(6859)*v(8999)
v(9024)=-(v(6864)*v(8927))-v(6859)*v(8998)
v(9023)=-(v(6864)*v(8926))-v(6859)*v(8997)
v(9022)=-(v(6864)*v(8924))-v(6859)*v(8996)
v(9021)=-(v(6864)*v(8923))-v(6859)*v(8995)
v(9020)=-(v(6864)*v(8922))-v(6859)*v(8994)
v(9019)=-(v(6864)*v(8920))-v(6861)*v(9001)
v(9018)=-(v(6864)*v(8918))-v(6861)*v(9000)
v(9017)=-(v(6864)*v(8916))-v(6861)*v(8999)
v(9016)=-(v(6864)*v(8915))-v(6861)*v(8998)
v(9015)=-(v(6864)*v(8913))-v(6861)*v(8997)
v(9014)=-(v(6864)*v(8911))-v(6861)*v(8996)
v(9013)=-(v(6864)*v(8910))-v(6861)*v(8995)
v(9012)=-(v(6864)*v(8908))-v(6861)*v(8994)
v(9011)=-(v(6864)*v(8906))-v(6863)*v(9002)
v(9010)=-(v(6864)*v(8904))-v(6863)*v(9001)
v(9009)=-(v(6864)*v(8902))-v(6863)*v(9000)
v(9008)=-(v(6864)*v(8900))-v(6863)*v(8999)
v(9007)=-(v(6864)*v(8898))-v(6863)*v(8998)
v(9006)=-(v(6864)*v(8896))-v(6863)*v(8997)
v(9005)=-(v(6864)*v(8894))-v(6863)*v(8996)
v(9004)=-(v(6864)*v(8892))-v(6863)*v(8995)
v(9003)=-(v(6864)*v(8890))-v(6863)*v(8994)
v(6873)=-(v(6863)*v(6864))
v(9111)=v(6695)*v(6873)
v(9101)=v(6696)*v(6873)
v(9091)=v(6697)*v(6873)
v(9081)=v(6698)*v(6873)
v(9070)=v(6699)*v(6873)
v(9059)=v(6700)*v(6873)
v(6872)=-(v(6861)*v(6864))
v(9110)=v(6695)*v(6872)
v(9100)=v(6696)*v(6872)
v(9090)=v(6697)*v(6872)
v(9080)=v(6698)*v(6872)
v(9069)=v(6699)*v(6872)
v(9058)=v(6700)*v(6872)
v(6871)=-(v(6859)*v(6864))
v(9109)=v(6695)*v(6871)
v(9099)=v(6696)*v(6871)
v(9089)=v(6697)*v(6871)
v(9079)=v(6698)*v(6871)
v(9068)=v(6699)*v(6871)
v(9057)=v(6700)*v(6871)
v(6870)=-(v(6857)*v(6864))
v(17877)=2d0*v(6870)
v(9659)=v(6695)*v(6870)
v(9462)=v(6698)*v(6870)
v(9460)=v(6696)*v(6870)
v(9329)=v(6700)*v(6870)
v(9327)=v(6699)*v(6870)
v(9325)=v(6697)*v(6870)
v(6869)=-(v(6854)*v(6864))
v(17871)=2d0*v(6869)
v(9693)=v(6695)*v(6869)
v(9471)=v(6698)*v(6869)
v(9469)=v(6696)*v(6869)
v(9339)=v(6700)*v(6869)
v(9337)=v(6699)*v(6869)
v(9335)=v(6697)*v(6869)
v(6868)=-(v(6851)*v(6864))
v(17864)=2d0*v(6868)
v(9700)=v(6695)*v(6868)
v(9479)=v(6698)*v(6868)
v(9477)=v(6696)*v(6868)
v(9348)=v(6700)*v(6868)
v(9346)=v(6699)*v(6868)
v(9344)=v(6697)*v(6868)
v(6867)=-(v(6848)*v(6864))
v(17878)=2d0*v(6867)
v(9706)=v(6695)*v(6867)
v(9486)=v(6698)*v(6867)
v(9484)=v(6696)*v(6867)
v(9356)=v(6700)*v(6867)
v(9354)=v(6699)*v(6867)
v(9352)=v(6697)*v(6867)
v(6866)=-(v(6845)*v(6864))
v(17872)=2d0*v(6866)
v(9734)=v(6695)*v(6866)
v(9492)=v(6698)*v(6866)
v(9490)=v(6696)*v(6866)
v(9361)=v(6699)*v(6866)
v(9359)=v(6697)*v(6866)
v(6865)=-(v(6842)*v(6864))
v(17865)=2d0*v(6865)
v(9738)=v(6695)*v(6865)
v(9495)=v(6696)*v(6865)
v(9364)=v(6697)*v(6865)
v(6458)=v(17858)
v(9245)=v(6842)*v(6865)+v(6458)*v(8993)
v(9244)=v(6845)*v(6866)+v(6458)*v(8990)
v(9243)=v(6845)*v(6865)+v(6458)*v(8987)
v(9242)=v(6848)*v(6867)+v(6458)*v(8984)
v(9241)=v(6848)*v(6866)+v(6458)*v(8981)
v(9240)=v(6848)*v(6865)+v(6458)*v(8978)
v(9239)=v(6851)*v(6868)+v(6458)*v(8975)
v(9238)=v(6851)*v(6867)+v(6458)*v(8972)
v(9237)=v(6851)*v(6866)+v(6458)*v(8969)
v(9236)=v(6851)*v(6865)+v(6458)*v(8966)
v(9235)=v(6854)*v(6869)+v(6458)*v(8963)
v(9234)=v(6854)*v(6868)+v(6458)*v(8960)
v(9233)=v(6854)*v(6867)+v(6458)*v(8957)
v(9232)=v(6854)*v(6866)+v(6458)*v(8954)
v(9231)=v(6854)*v(6865)+v(6458)*v(8951)
v(9230)=v(6857)*v(6870)+v(6458)*v(8948)
v(9229)=v(6857)*v(6869)+v(6458)*v(8945)
v(9228)=v(6857)*v(6868)+v(6458)*v(8942)
v(9227)=v(6857)*v(6867)+v(6458)*v(8939)
v(9226)=v(6857)*v(6866)+v(6458)*v(8936)
v(9225)=v(6857)*v(6865)+v(6458)*v(8933)
v(9214)=v(6859)*v(6871)+v(6458)*v(8930)
v(9224)=v(17860)*v(6871)+v(6458)*v(8355)+v(6412)*v(9026)-v(6401)*v(9214)
v(9213)=v(6859)*v(6870)+v(6458)*v(8928)
v(9212)=v(6859)*v(6869)+v(6458)*v(8927)
v(9211)=v(6859)*v(6868)+v(6458)*v(8926)
v(9210)=v(6859)*v(6867)+v(6458)*v(8924)
v(9209)=v(6859)*v(6866)+v(6458)*v(8923)
v(9208)=v(6859)*v(6865)+v(6458)*v(8922)
v(9187)=v(6861)*v(6872)+v(6458)*v(8920)
v(9198)=v(17870)*v(6872)+v(6458)*v(8535)+v(6413)*v(9019)-v(6403)*v(9187)
v(9186)=v(6861)*v(6871)+v(6458)*v(8918)
v(9207)=v(6777)*v(6871)+v(6776)*v(6872)+v(6458)*v(8328)+v(6412)*v(9018)-v(6401)*v(9186)
v(9197)=v(6790)*v(6871)+v(6777)*v(6872)+v(6458)*v(8329)+v(6413)*v(9018)-v(6403)*v(9186)
v(9185)=v(6861)*v(6870)+v(6458)*v(8916)
v(9184)=v(6861)*v(6869)+v(6458)*v(8915)
v(9183)=v(6861)*v(6868)+v(6458)*v(8913)
v(9182)=v(6861)*v(6867)+v(6458)*v(8911)
v(9181)=v(6861)*v(6866)+v(6458)*v(8910)
v(9180)=v(6861)*v(6865)+v(6458)*v(8908)
v(9120)=v(6863)*v(6873)+v(6458)*v(8906)
v(9132)=v(17876)*v(6873)+v(6458)*v(8507)+v(6414)*v(9011)-v(6404)*v(9120)
v(9119)=v(6863)*v(6872)+v(6458)*v(8904)
v(9142)=v(6791)*v(6872)+v(6790)*v(6873)+v(6458)*v(8518)+v(6413)*v(9010)-v(6403)*v(9119)
v(9131)=v(6802)*v(6872)+v(6791)*v(6873)+v(6458)*v(8506)+v(6414)*v(9010)-v(6404)*v(9119)
v(9118)=v(6863)*v(6871)+v(6458)*v(8902)
v(9150)=v(6778)*v(6871)+v(6776)*v(6873)+v(6458)*v(8356)+v(6412)*v(9009)-v(6401)*v(9118)
v(9141)=v(6791)*v(6871)+v(6777)*v(6873)+v(6458)*v(8330)+v(6413)*v(9009)-v(6403)*v(9118)
v(9130)=v(6802)*v(6871)+v(6778)*v(6873)+v(6458)*v(8482)+v(6414)*v(9009)-v(6404)*v(9118)
v(9117)=v(6863)*v(6870)+v(6458)*v(8900)
v(9116)=v(6863)*v(6869)+v(6458)*v(8898)
v(9115)=v(6863)*v(6868)+v(6458)*v(8896)
v(9114)=v(6863)*v(6867)+v(6458)*v(8894)
v(9113)=v(6863)*v(6866)+v(6458)*v(8892)
v(9112)=v(6863)*v(6865)+v(6458)*v(8890)
v(9105)=v(6458)*v(8170)
v(9102)=v(9105)+v(9738)
v(9095)=v(6458)*v(8131)
v(9096)=-v(9095)+v(9477)
v(9092)=v(9095)+v(9495)
v(9085)=v(6458)*v(8106)
v(9086)=-v(9085)+v(9344)
v(9082)=v(9085)+v(9364)
v(9076)=v(6458)*v(8160)
v(9074)=v(6458)*v(8132)
v(9093)=v(9074)+v(9490)
v(9072)=v(9076)+v(9492)
v(9071)=v(6698)*v(6865)+v(9074)
v(9065)=v(6458)*v(8082)
v(9066)=-v(9065)+v(9337)
v(9063)=v(6458)*v(8081)
v(9094)=v(9063)+v(9484)
v(9083)=v(9063)+v(9359)
v(9064)=-v(9063)+v(9346)
v(9061)=v(9065)+v(9361)
v(9060)=v(6699)*v(6865)+v(9063)
v(9055)=v(6458)*v(8151)
v(9053)=v(6458)*v(8083)
v(9062)=v(9053)+v(9354)
v(9051)=v(6458)*v(8107)
v(9084)=v(9051)+v(9352)
v(9050)=v(9055)+v(9356)
v(9049)=v(6700)*v(6866)+v(9053)
v(9048)=v(6700)*v(6865)+v(9051)
v(6934)=v(6458)*v(6700)
v(6913)=v(6458)*v(6699)
v(6911)=v(6458)*v(6698)
v(6890)=v(6458)*v(6697)
v(6888)=v(6458)*v(6696)
v(6886)=v(6458)*v(6695)
v(9450)=v(6777)*v(9002)
v(9315)=v(6778)*v(9002)
v(9293)=v(6791)*v(9002)
v(9146)=-(v(6695)*v(9002))
v(9147)=v(6778)*v(6868)+v(6769)*v(6873)+v(6458)*v(8475)+v(6412)*v(9006)-v(6401)*v(9115)-v(9146)
v(9143)=v(6778)*v(6865)+v(6764)*v(6873)+v(6458)*v(8470)+v(6412)*v(9003)-v(6401)*v(9112)+v(9146)
v(9138)=-(v(6698)*v(9002))
v(9139)=v(6791)*v(6869)+v(6786)*v(6873)+v(6458)*v(8514)+v(6413)*v(9007)-v(6403)*v(9116)-v(9138)
v(9136)=-(v(6696)*v(9002))
v(9148)=v(6778)*v(6869)+v(6772)*v(6873)+v(6458)*v(8478)+v(6412)*v(9007)-v(6401)*v(9116)-v(9136)
v(9144)=v(6778)*v(6866)+v(6765)*v(6873)+v(6458)*v(8471)+v(6412)*v(9004)-v(6401)*v(9113)+v(9136)
v(9137)=v(6791)*v(6868)+v(6784)*v(6873)+v(6458)*v(8513)+v(6413)*v(9006)-v(6403)*v(9115)-v(9136)
v(9134)=v(6791)*v(6866)+v(6780)*v(6873)+v(6458)*v(8509)+v(6413)*v(9004)-v(6403)*v(9113)+v(9138)
v(9133)=v(6791)*v(6865)+v(6779)*v(6873)+v(6458)*v(8508)+v(6413)*v(9003)-v(6403)*v(9112)+v(9136)
v(9128)=-(v(6700)*v(9002))
v(9129)=v(6802)*v(6870)+v(6801)*v(6873)+v(6458)*v(8505)+v(6414)*v(9008)-v(6404)*v(9117)-v(9128)
v(9126)=-(v(6699)*v(9002))
v(9140)=v(6791)*v(6870)+v(6789)*v(6873)+v(6458)*v(8517)+v(6413)*v(9008)-v(6403)*v(9117)-v(9126)
v(9135)=v(6791)*v(6867)+v(6781)*v(6873)+v(6458)*v(8510)+v(6413)*v(9005)-v(6403)*v(9114)+v(9126)
v(9127)=v(6802)*v(6869)+v(6800)*v(6873)+v(6458)*v(8503)+v(6414)*v(9007)-v(6404)*v(9116)-v(9126)
v(9124)=-(v(6697)*v(9002))
v(9149)=v(6778)*v(6870)+v(6775)*v(6873)+v(6458)*v(8481)+v(6412)*v(9008)-v(6401)*v(9117)-v(9124)
v(9145)=v(6778)*v(6867)+v(6766)*v(6873)+v(6458)*v(8472)+v(6412)*v(9005)-v(6401)*v(9114)+v(9124)
v(9125)=v(6802)*v(6868)+v(6797)*v(6873)+v(6458)*v(8500)+v(6414)*v(9006)-v(6404)*v(9115)-v(9124)
v(9123)=v(6802)*v(6867)+v(6794)*v(6873)+v(6458)*v(8497)+v(6414)*v(9005)-v(6404)*v(9114)+v(9128)
v(9122)=v(6802)*v(6866)+v(6793)*v(6873)+v(6458)*v(8496)+v(6414)*v(9004)-v(6404)*v(9113)+v(9126)
v(9121)=v(6802)*v(6865)+v(6792)*v(6873)+v(6458)*v(8495)+v(6414)*v(9003)-v(6404)*v(9112)+v(9124)
v(6948)=v(6458)*v(6802)+v(6414)*v(6873)-v(6404)*v(9002)
v(9956)=-v(6948)/3d0
v(17663)=2d0*v(9956)
v(9949)=-v(17663)
v(6928)=v(6458)*v(6791)+v(6413)*v(6873)-v(6403)*v(9002)
v(9912)=-v(6928)/3d0
v(9898)=(2d0/3d0)*v(6928)
v(6906)=v(6458)*v(6778)+v(6412)*v(6873)-v(6401)*v(9002)
v(9164)=(2d0/3d0)*v(6906)
v(9154)=-v(6906)/3d0
v(9448)=v(6777)*v(9001)
v(9312)=v(6778)*v(9001)
v(9205)=-(v(6697)*v(9001))
v(9206)=v(6777)*v(6870)+v(6775)*v(6872)+v(6458)*v(8327)+v(6412)*v(9017)-v(6401)*v(9185)-v(9205)
v(9202)=-(v(6695)*v(9001))
v(9203)=v(6777)*v(6868)+v(6769)*v(6872)+v(6458)*v(8321)+v(6412)*v(9015)-v(6401)*v(9183)-v(9202)
v(9201)=v(6777)*v(6867)+v(6766)*v(6872)+v(6458)*v(8318)+v(6412)*v(9014)-v(6401)*v(9182)+v(9205)
v(9199)=v(6777)*v(6865)+v(6764)*v(6872)+v(6458)*v(8316)+v(6412)*v(9012)-v(6401)*v(9180)+v(9202)
v(9195)=-(v(6699)*v(9001))
v(9196)=v(6790)*v(6870)+v(6789)*v(6872)+v(6458)*v(8534)+v(6413)*v(9017)-v(6403)*v(9185)-v(9195)
v(9193)=-(v(6698)*v(9001))
v(9194)=v(6790)*v(6869)+v(6786)*v(6872)+v(6458)*v(8531)+v(6413)*v(9016)-v(6403)*v(9184)-v(9193)
v(9191)=-(v(6696)*v(9001))
v(9204)=v(6777)*v(6869)+v(6772)*v(6872)+v(6458)*v(8324)+v(6412)*v(9016)-v(6401)*v(9184)-v(9191)
v(9200)=v(6777)*v(6866)+v(6765)*v(6872)+v(6458)*v(8317)+v(6412)*v(9013)-v(6401)*v(9181)+v(9191)
v(9192)=v(6790)*v(6868)+v(6784)*v(6872)+v(6458)*v(8529)+v(6413)*v(9015)-v(6403)*v(9183)-v(9191)
v(9190)=v(6790)*v(6867)+v(6781)*v(6872)+v(6458)*v(8526)+v(6413)*v(9014)-v(6403)*v(9182)+v(9195)
v(9189)=v(6790)*v(6866)+v(6780)*v(6872)+v(6458)*v(8525)+v(6413)*v(9013)-v(6403)*v(9181)+v(9193)
v(9188)=v(6790)*v(6865)+v(6779)*v(6872)+v(6458)*v(8524)+v(6413)*v(9012)-v(6403)*v(9180)+v(9191)
v(6927)=v(6458)*v(6790)+v(6413)*v(6872)-v(6403)*v(9001)
v(9911)=-v(6927)/3d0
v(9897)=(2d0/3d0)*v(6927)
v(6905)=v(6458)*v(6777)+v(6412)*v(6872)-v(6401)*v(9001)
v(9821)=-v(6905)/3d0
v(9803)=(2d0/3d0)*v(6905)
v(9222)=-(v(6697)*v(9000))
v(9223)=v(6776)*v(6870)+v(6775)*v(6871)+v(6458)*v(8354)+v(6412)*v(9025)-v(6401)*v(9213)-v(9222)
v(9220)=-(v(6696)*v(9000))
v(9221)=v(6776)*v(6869)+v(6772)*v(6871)+v(6458)*v(8351)+v(6412)*v(9024)-v(6401)*v(9212)-v(9220)
v(9218)=-(v(6695)*v(9000))
v(9219)=v(6776)*v(6868)+v(6769)*v(6871)+v(6458)*v(8348)+v(6412)*v(9023)-v(6401)*v(9211)-v(9218)
v(9217)=v(6776)*v(6867)+v(6766)*v(6871)+v(6458)*v(8345)+v(6412)*v(9022)-v(6401)*v(9210)+v(9222)
v(9216)=v(6776)*v(6866)+v(6765)*v(6871)+v(6458)*v(8344)+v(6412)*v(9021)-v(6401)*v(9209)+v(9220)
v(9215)=v(6776)*v(6865)+v(6764)*v(6871)+v(6458)*v(8343)+v(6412)*v(9020)-v(6401)*v(9208)+v(9218)
v(6904)=v(6458)*v(6776)+v(6412)*v(6871)-v(6401)*v(9000)
v(9806)=-v(6904)/3d0
v(9802)=(2d0/3d0)*v(6904)
v(9513)=-(v(6695)*v(8999))
v(9392)=-(v(6698)*v(8999))
v(9390)=-(v(6696)*v(8999))
v(9263)=-(v(6699)*v(8999))
v(9261)=-(v(6697)*v(8999))
v(9558)=-(v(6695)*v(8998))
v(9408)=-(v(6696)*v(8998))
v(9379)=-(v(6697)*v(8998))
v(9415)=-(v(6696)*v(8996))
v(9272)=-(v(6699)*v(8996))
v(9270)=-(v(6697)*v(8996))
v(9420)=-(v(6696)*v(8995))
v(9385)=-(v(6697)*v(8995))
v(9740)=v(6864)*v(8820)+v(17859)*v(8994)+v(6401)*v(9047)+v(9102)+v(6412)*v(9245)+v(9738)
v(9737)=v(17866)*v(6765)+v(6864)*v(8819)+v(6401)*v(9046)+v(9093)+v(6412)*v(9244)+v(9490)
v(9735)=v(6864)*v(8816)+v(6765)*v(8994)+v(6764)*v(8995)+v(6401)*v(9045)+v(9092)+v(6412)*v(9243)+v(9734)
v(9710)=v(17867)*v(6766)+v(6864)*v(8815)+v(6401)*v(9044)+v(9084)+v(6412)*v(9242)+v(9352)
v(9708)=v(6864)*v(8812)+v(6766)*v(8995)+v(6765)*v(8996)+v(6401)*v(9043)+v(9083)+v(6412)*v(9241)+v(9484)
v(9707)=v(6864)*v(8809)+v(6766)*v(8994)+v(6764)*v(8996)+v(6401)*v(9042)+v(9082)+v(6412)*v(9240)+v(9706)
v(9705)=v(6864)*v(8804)+v(17861)*v(8997)+v(6401)*v(9041)+v(9105)+v(6412)*v(9239)-2d0*v(9700)
v(9703)=v(6864)*v(8803)+v(6769)*v(8996)+v(6766)*v(8997)+v(6401)*v(9040)+v(9086)+v(6412)*v(9238)-v(9706)
v(9702)=v(6864)*v(8800)+v(6769)*v(8995)+v(6765)*v(8997)+v(6401)*v(9039)+v(9096)+v(6412)*v(9237)-v(9734)
v(9701)=v(6864)*v(8797)+v(6769)*v(8994)+v(6764)*v(8997)+v(6401)*v(9038)-v(9102)+v(6412)*v(9236)+v(9700)
v(9699)=v(17868)*v(6772)+v(6864)*v(8781)+v(6401)*v(9037)+v(9074)+v(6412)*v(9235)-2d0*v(9469)
v(9697)=v(6864)*v(8780)+v(6772)*v(8997)+v(6769)*v(8998)+v(6401)*v(9036)-v(9096)+v(6412)*v(9234)-v(9693)
v(9696)=v(6864)*v(8778)+v(6772)*v(8996)+v(6766)*v(8998)+v(6401)*v(9035)-v(9094)+v(6412)*v(9233)+v(9335)
v(9695)=v(6864)*v(8775)+v(6772)*v(8995)+v(6765)*v(8998)+v(6401)*v(9034)-v(9093)+v(6412)*v(9232)+v(9469)
v(9694)=v(6864)*v(8772)+v(6772)*v(8994)+v(6764)*v(8998)+v(6401)*v(9033)-v(9092)+v(6412)*v(9231)+v(9693)
v(9666)=v(17869)*v(6775)+v(6864)*v(8757)+v(6401)*v(9032)+v(9051)+v(6412)*v(9230)-2d0*v(9325)
v(9664)=v(6864)*v(8756)+v(6775)*v(8998)+v(6772)*v(8999)+v(6401)*v(9031)+v(9063)+v(6412)*v(9229)-v(9335)-v(9460)
v(9663)=v(6864)*v(8754)+v(6775)*v(8997)+v(6769)*v(8999)+v(6401)*v(9030)-v(9086)+v(6412)*v(9228)-v(9659)
v(9662)=v(6864)*v(8753)+v(6775)*v(8996)+v(6766)*v(8999)+v(6401)*v(9029)-v(9084)+v(6412)*v(9227)+v(9325)
v(9661)=v(6864)*v(8750)+v(6775)*v(8995)+v(6765)*v(8999)+v(6401)*v(9028)-v(9083)+v(6412)*v(9226)+v(9460)
v(9660)=v(6864)*v(8748)+v(6775)*v(8994)+v(6764)*v(8999)+v(6401)*v(9027)-v(9082)+v(6412)*v(9225)+v(9659)
v(9658)=v(6864)*v(8355)+v(17860)*v(9000)+v(6401)*v(9026)+v(6412)*v(9214)
v(9656)=v(6864)*v(8354)+v(6776)*v(8999)+v(6775)*v(9000)+v(6401)*v(9025)-v(9089)+v(6412)*v(9213)
v(9655)=v(6864)*v(8351)+v(6776)*v(8998)+v(6772)*v(9000)+v(6401)*v(9024)-v(9099)+v(6412)*v(9212)
v(9654)=v(6864)*v(8348)+v(6776)*v(8997)+v(6769)*v(9000)+v(6401)*v(9023)-v(9109)+v(6412)*v(9211)
v(9653)=v(6864)*v(8345)+v(6776)*v(8996)+v(6766)*v(9000)+v(6401)*v(9022)+v(9089)+v(6412)*v(9210)
v(9652)=v(6864)*v(8344)+v(6776)*v(8995)+v(6765)*v(9000)+v(6401)*v(9021)+v(9099)+v(6412)*v(9209)
v(9651)=v(6864)*v(8343)+v(6776)*v(8994)+v(6764)*v(9000)+v(6401)*v(9020)+v(9109)+v(6412)*v(9208)
v(9564)=-(v(6864)*v(8170))
v(9572)=v(17861)*v(6868)+v(6458)*v(8804)+v(6412)*v(9041)-v(6401)*v(9239)+v(9564)-2d0*v(9568)
v(9561)=v(9564)+v(9603)
v(9604)=v(17859)*v(6865)+v(6458)*v(8820)+v(6412)*v(9047)-v(6401)*v(9245)+v(9561)+v(9603)
v(9569)=v(6769)*v(6865)+v(6764)*v(6868)+v(6458)*v(8797)+v(6412)*v(9038)-v(6401)*v(9236)-v(9561)+v(9568)
v(9546)=-(v(6864)*v(8131))
v(17862)=-v(9546)+v(9550)
v(9570)=v(17862)+v(6769)*v(6866)+v(6765)*v(6868)+v(6458)*v(8800)+v(6412)*v(9039)-v(6401)*v(9237)-v(9600)
v(9547)=v(17862)
v(9559)=v(6772)*v(6868)+v(6769)*v(6869)+v(6458)*v(8780)+v(6412)*v(9036)-v(6401)*v(9234)-v(9547)-v(9558)
v(9552)=v(17864)*v(6784)+v(6458)*v(8722)+v(6413)*v(9041)-v(6403)*v(9239)-v(9547)-v(9550)
v(9543)=v(9546)+v(9553)
v(9601)=v(6765)*v(6865)+v(6764)*v(6866)+v(6458)*v(8816)+v(6412)*v(9045)-v(6401)*v(9243)+v(9543)+v(9600)
v(9555)=v(6772)*v(6865)+v(6764)*v(6869)+v(6458)*v(8772)+v(6412)*v(9033)-v(6401)*v(9231)-v(9543)+v(9558)
v(9554)=v(17865)*v(6779)+v(6458)*v(8736)+v(6413)*v(9047)-v(6403)*v(9245)+v(9543)+v(9553)
v(9551)=v(6784)*v(6865)+v(6779)*v(6868)+v(6458)*v(8717)+v(6413)*v(9038)-v(6403)*v(9236)-v(9543)+v(9550)
v(9501)=-(v(6864)*v(8106))
v(17863)=-v(9501)+v(9505)
v(9571)=v(17863)+v(6769)*v(6867)+v(6766)*v(6868)+v(6458)*v(8803)+v(6412)*v(9040)-v(6401)*v(9238)-v(9573)
v(9502)=v(17863)
v(9514)=v(6775)*v(6868)+v(6769)*v(6870)+v(6458)*v(8754)+v(6412)*v(9030)-v(6401)*v(9228)-v(9502)-v(9513)
v(9507)=v(17864)*v(6797)+v(6458)*v(8636)+v(6414)*v(9041)-v(6404)*v(9239)-v(9502)-v(9505)
v(9498)=v(9501)+v(9508)
v(9574)=v(6766)*v(6865)+v(6764)*v(6867)+v(6458)*v(8809)+v(6412)*v(9042)-v(6401)*v(9240)+v(9498)+v(9573)
v(9510)=v(6775)*v(6865)+v(6764)*v(6870)+v(6458)*v(8748)+v(6412)*v(9027)-v(6401)*v(9225)-v(9498)+v(9513)
v(9509)=v(17865)*v(6792)+v(6458)*v(8651)+v(6414)*v(9047)-v(6404)*v(9245)+v(9498)+v(9508)
v(9506)=v(6797)*v(6865)+v(6792)*v(6868)+v(6458)*v(8630)+v(6414)*v(9038)-v(6404)*v(9236)-v(9498)+v(9505)
v(9497)=v(17874)*v(6779)+v(6864)*v(8736)+v(6403)*v(9047)+v(9092)+v(6413)*v(9245)+v(9495)
v(9494)=v(17866)*v(6780)+v(6864)*v(8796)+v(6403)*v(9046)+v(9072)+v(6413)*v(9244)+v(9492)
v(9491)=v(6864)*v(8737)+v(6780)*v(8994)+v(6779)*v(8995)+v(6403)*v(9045)+v(9071)+v(6413)*v(9243)+v(9490)
v(9489)=v(17867)*v(6781)+v(6864)*v(8731)+v(6403)*v(9044)+v(9062)+v(6413)*v(9242)+v(9354)
v(9487)=v(6864)*v(8728)+v(6781)*v(8995)+v(6780)*v(8996)+v(6403)*v(9043)+v(9061)+v(6413)*v(9241)+v(9486)
v(9485)=v(6864)*v(8727)+v(6781)*v(8994)+v(6779)*v(8996)+v(6403)*v(9042)+v(9060)+v(6413)*v(9240)+v(9484)
v(9483)=v(17875)*v(6784)+v(6864)*v(8722)+v(6403)*v(9041)-v(9096)+v(6413)*v(9239)-v(9477)
v(9481)=v(6864)*v(8721)+v(6784)*v(8996)+v(6781)*v(8997)+v(6403)*v(9040)-v(9094)+v(6413)*v(9238)+v(9346)
v(9480)=v(6864)*v(8718)+v(6784)*v(8995)+v(6780)*v(8997)+v(6403)*v(9039)-v(9093)+v(6413)*v(9237)+v(9479)
v(9478)=v(6864)*v(8717)+v(6784)*v(8994)+v(6779)*v(8997)+v(6403)*v(9038)-v(9092)+v(6413)*v(9236)+v(9477)
v(9476)=v(17868)*v(6786)+v(6864)*v(8789)+v(6403)*v(9037)+v(9076)+v(6413)*v(9235)-2d0*v(9471)
v(9474)=v(6864)*v(8724)+v(6786)*v(8997)+v(6784)*v(8998)+v(6403)*v(9036)+v(9074)+v(6413)*v(9234)-v(9469)-v(9479)
v(9473)=v(6864)*v(8733)+v(6786)*v(8996)+v(6781)*v(8998)+v(6403)*v(9035)+v(9066)+v(6413)*v(9233)-v(9486)
v(9472)=v(6864)*v(8788)+v(6786)*v(8995)+v(6780)*v(8998)+v(6403)*v(9034)-v(9072)+v(6413)*v(9232)+v(9471)
v(9470)=v(6864)*v(8739)+v(6786)*v(8994)+v(6779)*v(8998)+v(6403)*v(9033)-v(9071)+v(6413)*v(9231)+v(9469)
v(9468)=v(17869)*v(6789)+v(6864)*v(8705)+v(6403)*v(9032)+v(9053)+v(6413)*v(9230)-2d0*v(9327)
v(9466)=v(6864)*v(8704)+v(6789)*v(8998)+v(6786)*v(8999)+v(6403)*v(9031)-v(9066)+v(6413)*v(9229)-v(9462)
v(9465)=v(6864)*v(8702)+v(6789)*v(8997)+v(6784)*v(8999)+v(6403)*v(9030)-v(9064)+v(6413)*v(9228)-v(9460)
v(9464)=v(6864)*v(8700)+v(6789)*v(8996)+v(6781)*v(8999)+v(6403)*v(9029)-v(9062)+v(6413)*v(9227)+v(9327)
v(9463)=v(6864)*v(8697)+v(6789)*v(8995)+v(6780)*v(8999)+v(6403)*v(9028)-v(9061)+v(6413)*v(9226)+v(9462)
v(9461)=v(6864)*v(8696)+v(6789)*v(8994)+v(6779)*v(8999)+v(6403)*v(9027)-v(9060)+v(6413)*v(9225)+v(9460)
v(9447)=v(6864)*v(8329)
v(9650)=v(6401)*v(9019)+v(6412)*v(9187)+v(9447)+2d0*v(9448)
v(9446)=v(6864)*v(8328)+v(9458)
v(9649)=v(6776)*v(9001)+v(6401)*v(9018)+v(6412)*v(9186)+v(9446)
v(9459)=v(6403)*v(9026)+v(6413)*v(9214)+v(9446)+v(9458)
v(9445)=v(6864)*v(8327)+v(6777)*v(8999)
v(9648)=v(6775)*v(9001)+v(6401)*v(9017)-v(9090)+v(6412)*v(9185)+v(9445)
v(9457)=v(6789)*v(9000)+v(6403)*v(9025)-v(9068)+v(6413)*v(9213)+v(9445)
v(9444)=v(6864)*v(8324)+v(6777)*v(8998)
v(9647)=v(6772)*v(9001)+v(6401)*v(9016)-v(9100)+v(6412)*v(9184)+v(9444)
v(9456)=v(6786)*v(9000)+v(6403)*v(9024)-v(9079)+v(6413)*v(9212)+v(9444)
v(9443)=v(6864)*v(8321)+v(6777)*v(8997)
v(9646)=v(6769)*v(9001)+v(6401)*v(9015)-v(9110)+v(6412)*v(9183)+v(9443)
v(9455)=v(6784)*v(9000)+v(6403)*v(9023)-v(9099)+v(6413)*v(9211)+v(9443)
v(9442)=v(6864)*v(8318)+v(6777)*v(8996)
v(9645)=v(6766)*v(9001)+v(6401)*v(9014)+v(9090)+v(6412)*v(9182)+v(9442)
v(9454)=v(6781)*v(9000)+v(6403)*v(9022)+v(9068)+v(6413)*v(9210)+v(9442)
v(9441)=v(6864)*v(8317)+v(6777)*v(8995)
v(9644)=v(6765)*v(9001)+v(6401)*v(9013)+v(9100)+v(6412)*v(9181)+v(9441)
v(9453)=v(6780)*v(9000)+v(6403)*v(9021)+v(9079)+v(6413)*v(9209)+v(9441)
v(9440)=v(6864)*v(8316)+v(6777)*v(8994)
v(9643)=v(6764)*v(9001)+v(6401)*v(9012)+v(9110)+v(6412)*v(9180)+v(9440)
v(9452)=v(6779)*v(9000)+v(6403)*v(9020)+v(9099)+v(6413)*v(9208)+v(9440)
v(9439)=v(6864)*v(8535)+v(17870)*v(9001)+v(6403)*v(9019)+v(6413)*v(9187)
v(9437)=v(6790)*v(9000)+v(6403)*v(9018)+v(6413)*v(9186)+v(9447)+v(9448)
v(9436)=v(6864)*v(8534)+v(6790)*v(8999)+v(6789)*v(9001)+v(6403)*v(9017)-v(9069)+v(6413)*v(9185)
v(9435)=v(6864)*v(8531)+v(6790)*v(8998)+v(6786)*v(9001)+v(6403)*v(9016)-v(9080)+v(6413)*v(9184)
v(9434)=v(6864)*v(8529)+v(6790)*v(8997)+v(6784)*v(9001)+v(6403)*v(9015)-v(9100)+v(6413)*v(9183)
v(9433)=v(6864)*v(8526)+v(6790)*v(8996)+v(6781)*v(9001)+v(6403)*v(9014)+v(9069)+v(6413)*v(9182)
v(9432)=v(6864)*v(8525)+v(6790)*v(8995)+v(6780)*v(9001)+v(6403)*v(9013)+v(9080)+v(6413)*v(9181)
v(9431)=v(6864)*v(8524)+v(6790)*v(8994)+v(6779)*v(9001)+v(6403)*v(9012)+v(9100)+v(6413)*v(9180)
v(9400)=-(v(6864)*v(8160))
v(9410)=v(17871)*v(6786)+v(6458)*v(8789)+v(6413)*v(9037)-v(6403)*v(9235)+v(9400)-2d0*v(9405)
v(9398)=-(v(6864)*v(8132))
v(9560)=v(17871)*v(6772)+v(6458)*v(8781)+v(6412)*v(9037)-v(6401)*v(9235)+v(9398)-2d0*v(9408)
v(9544)=v(9398)+v(9420)
v(9602)=v(17872)*v(6765)+v(6458)*v(8819)+v(6412)*v(9046)-v(6401)*v(9244)+v(9420)+v(9544)
v(9556)=v(6772)*v(6866)+v(6765)*v(6869)+v(6458)*v(8775)+v(6412)*v(9034)-v(6401)*v(9232)+v(9408)-v(9544)
v(9399)=-(v(6698)*v(8997))-v(9398)
v(9421)=v(6784)*v(6866)+v(6780)*v(6868)+v(6458)*v(8718)+v(6413)*v(9039)-v(6403)*v(9237)+v(9399)-v(9420)
v(9409)=v(6786)*v(6868)+v(6784)*v(6869)+v(6458)*v(8724)+v(6413)*v(9036)-v(6403)*v(9234)-v(9399)-v(9408)
v(9396)=v(9400)+v(9418)
v(9419)=v(17872)*v(6780)+v(6458)*v(8796)+v(6413)*v(9046)-v(6403)*v(9244)+v(9396)+v(9418)
v(9406)=v(6786)*v(6866)+v(6780)*v(6869)+v(6458)*v(8788)+v(6413)*v(9034)-v(6403)*v(9232)-v(9396)+v(9405)
v(9395)=-(v(6698)*v(8994))+v(9398)
v(9417)=v(6780)*v(6865)+v(6779)*v(6866)+v(6458)*v(8737)+v(6413)*v(9045)-v(6403)*v(9243)+v(9395)+v(9420)
v(9404)=v(6786)*v(6865)+v(6779)*v(6869)+v(6458)*v(8739)+v(6413)*v(9033)-v(6403)*v(9231)-v(9395)+v(9408)
v(9372)=-(v(6864)*v(8082))
v(17873)=-v(9372)+v(9377)
v(9407)=v(17873)+v(6786)*v(6867)+v(6781)*v(6869)+v(6458)*v(8733)+v(6413)*v(9035)-v(6403)*v(9233)-v(9412)
v(9373)=v(17873)
v(9393)=v(6789)*v(6869)+v(6786)*v(6870)+v(6458)*v(8704)+v(6413)*v(9031)-v(6403)*v(9229)-v(9373)-v(9392)
v(9381)=v(17871)*v(6800)+v(6458)*v(8615)+v(6414)*v(9037)-v(6404)*v(9235)-v(9373)-v(9377)
v(9370)=-(v(6864)*v(8081))
v(9557)=v(6772)*v(6867)+v(6766)*v(6869)+v(6458)*v(8778)+v(6412)*v(9035)-v(6401)*v(9233)-v(9370)+v(9379)-v(9415)
v(9515)=v(6775)*v(6869)+v(6772)*v(6870)+v(6458)*v(8756)+v(6412)*v(9031)-v(6401)*v(9229)+v(9370)-v(9379)-v(9390)
v(9499)=v(9370)+v(9385)
v(9575)=v(6766)*v(6866)+v(6765)*v(6867)+v(6458)*v(8812)+v(6412)*v(9043)-v(6401)*v(9241)+v(9415)+v(9499)
v(9511)=v(6775)*v(6866)+v(6765)*v(6870)+v(6458)*v(8750)+v(6412)*v(9028)-v(6401)*v(9226)+v(9390)-v(9499)
v(9371)=-(v(6699)*v(8997))-v(9370)
v(9416)=v(6784)*v(6867)+v(6781)*v(6868)+v(6458)*v(8721)+v(6413)*v(9040)-v(6403)*v(9238)+v(9371)-v(9415)
v(9391)=v(6789)*v(6868)+v(6784)*v(6870)+v(6458)*v(8702)+v(6413)*v(9030)-v(6403)*v(9228)-v(9371)-v(9390)
v(9386)=v(6797)*v(6866)+v(6793)*v(6868)+v(6458)*v(8633)+v(6414)*v(9039)-v(6404)*v(9237)+v(9371)-v(9385)
v(9380)=v(6800)*v(6868)+v(6797)*v(6869)+v(6458)*v(8614)+v(6414)*v(9036)-v(6404)*v(9234)-v(9371)-v(9379)
v(9368)=v(9372)+v(9383)
v(9413)=v(6781)*v(6866)+v(6780)*v(6867)+v(6458)*v(8728)+v(6413)*v(9043)-v(6403)*v(9241)+v(9368)+v(9412)
v(9388)=v(6789)*v(6866)+v(6780)*v(6870)+v(6458)*v(8697)+v(6413)*v(9028)-v(6403)*v(9226)-v(9368)+v(9392)
v(9384)=v(17872)*v(6793)+v(6458)*v(8644)+v(6414)*v(9046)-v(6404)*v(9244)+v(9368)+v(9383)
v(9378)=v(6800)*v(6866)+v(6793)*v(6869)+v(6458)*v(8610)+v(6414)*v(9034)-v(6404)*v(9232)-v(9368)+v(9377)
v(9367)=-(v(6699)*v(8994))+v(9370)
v(9411)=v(6781)*v(6865)+v(6779)*v(6867)+v(6458)*v(8727)+v(6413)*v(9042)-v(6403)*v(9240)+v(9367)+v(9415)
v(9387)=v(6789)*v(6865)+v(6779)*v(6870)+v(6458)*v(8696)+v(6413)*v(9027)-v(6403)*v(9225)-v(9367)+v(9390)
v(9382)=v(6793)*v(6865)+v(6792)*v(6866)+v(6458)*v(8641)+v(6414)*v(9045)-v(6404)*v(9243)+v(9367)+v(9385)
v(9376)=v(6800)*v(6865)+v(6792)*v(6869)+v(6458)*v(8607)+v(6414)*v(9033)-v(6404)*v(9231)-v(9367)+v(9379)
v(9366)=v(17874)*v(6792)+v(6864)*v(8651)+v(6404)*v(9047)+v(9082)+v(6414)*v(9245)+v(9364)
v(9363)=v(17866)*v(6793)+v(6864)*v(8644)+v(6404)*v(9046)+v(9061)+v(6414)*v(9244)+v(9361)
v(9360)=v(6864)*v(8641)+v(6793)*v(8994)+v(6792)*v(8995)+v(6404)*v(9045)+v(9060)+v(6414)*v(9243)+v(9359)
v(9358)=v(17867)*v(6794)+v(6864)*v(8684)+v(6404)*v(9044)+v(9050)+v(6414)*v(9242)+v(9356)
v(9355)=v(6864)*v(8646)+v(6794)*v(8995)+v(6793)*v(8996)+v(6404)*v(9043)+v(9049)+v(6414)*v(9241)+v(9354)
v(9353)=v(6864)*v(8653)+v(6794)*v(8994)+v(6792)*v(8996)+v(6404)*v(9042)+v(9048)+v(6414)*v(9240)+v(9352)
v(9351)=v(17875)*v(6797)+v(6864)*v(8636)+v(6404)*v(9041)-v(9086)+v(6414)*v(9239)-v(9344)
v(9349)=v(6864)*v(8635)+v(6797)*v(8996)+v(6794)*v(8997)+v(6404)*v(9040)-v(9084)+v(6414)*v(9238)+v(9348)
v(9347)=v(6864)*v(8633)+v(6797)*v(8995)+v(6793)*v(8997)+v(6404)*v(9039)-v(9083)+v(6414)*v(9237)+v(9346)
v(9345)=v(6864)*v(8630)+v(6797)*v(8994)+v(6792)*v(8997)+v(6404)*v(9038)-v(9082)+v(6414)*v(9236)+v(9344)
v(9343)=v(17868)*v(6800)+v(6864)*v(8615)+v(6404)*v(9037)-v(9066)+v(6414)*v(9235)-v(9337)
v(9341)=v(6864)*v(8614)+v(6800)*v(8997)+v(6797)*v(8998)+v(6404)*v(9036)-v(9064)+v(6414)*v(9234)-v(9335)
v(9340)=v(6864)*v(8612)+v(6800)*v(8996)+v(6794)*v(8998)+v(6404)*v(9035)-v(9062)+v(6414)*v(9233)+v(9339)
v(9338)=v(6864)*v(8610)+v(6800)*v(8995)+v(6793)*v(8998)+v(6404)*v(9034)-v(9061)+v(6414)*v(9232)+v(9337)
v(9336)=v(6864)*v(8607)+v(6800)*v(8994)+v(6792)*v(8998)+v(6404)*v(9033)-v(9060)+v(6414)*v(9231)+v(9335)
v(9334)=v(17869)*v(6801)+v(6864)*v(8681)+v(6404)*v(9032)+v(9055)+v(6414)*v(9230)-2d0*v(9329)
v(9332)=v(6864)*v(8617)+v(6801)*v(8998)+v(6800)*v(8999)+v(6404)*v(9031)+v(9053)+v(6414)*v(9229)-v(9327)-v(9339)
v(9331)=v(6864)*v(8638)+v(6801)*v(8997)+v(6797)*v(8999)+v(6404)*v(9030)+v(9051)+v(6414)*v(9228)-v(9325)-v(9348)
v(9330)=v(6864)*v(8680)+v(6801)*v(8996)+v(6794)*v(8999)+v(6404)*v(9029)-v(9050)+v(6414)*v(9227)+v(9329)
v(9328)=v(6864)*v(8648)+v(6801)*v(8995)+v(6793)*v(8999)+v(6404)*v(9028)-v(9049)+v(6414)*v(9226)+v(9327)
v(9326)=v(6864)*v(8655)+v(6801)*v(8994)+v(6792)*v(8999)+v(6404)*v(9027)-v(9048)+v(6414)*v(9225)+v(9325)
v(9314)=v(6864)*v(8482)
v(9613)=v(6401)*v(9011)+v(6412)*v(9120)+v(9314)+2d0*v(9315)
v(9311)=v(6864)*v(8330)
v(9612)=v(6401)*v(9010)+v(6412)*v(9119)+v(9311)+v(9312)+v(9450)
v(9310)=v(6864)*v(8356)+v(9323)
v(9611)=v(6776)*v(9002)+v(6401)*v(9009)+v(6412)*v(9118)+v(9310)
v(9324)=v(6404)*v(9026)+v(6414)*v(9214)+v(9310)+v(9323)
v(9309)=v(6864)*v(8481)+v(6778)*v(8999)
v(9610)=v(6775)*v(9002)+v(6401)*v(9008)-v(9091)+v(6412)*v(9117)+v(9309)
v(9322)=v(6801)*v(9000)+v(6404)*v(9025)-v(9057)+v(6414)*v(9213)+v(9309)
v(9308)=v(6864)*v(8478)+v(6778)*v(8998)
v(9609)=v(6772)*v(9002)+v(6401)*v(9007)-v(9101)+v(6412)*v(9116)+v(9308)
v(9321)=v(6800)*v(9000)+v(6404)*v(9024)-v(9068)+v(6414)*v(9212)+v(9308)
v(9307)=v(6864)*v(8475)+v(6778)*v(8997)
v(9608)=v(6769)*v(9002)+v(6401)*v(9006)-v(9111)+v(6412)*v(9115)+v(9307)
v(9320)=v(6797)*v(9000)+v(6404)*v(9023)-v(9089)+v(6414)*v(9211)+v(9307)
v(9306)=v(6864)*v(8472)+v(6778)*v(8996)
v(9607)=v(6766)*v(9002)+v(6401)*v(9005)+v(9091)+v(6412)*v(9114)+v(9306)
v(9319)=v(6794)*v(9000)+v(6404)*v(9022)+v(9057)+v(6414)*v(9210)+v(9306)
v(9305)=v(6864)*v(8471)+v(6778)*v(8995)
v(9606)=v(6765)*v(9002)+v(6401)*v(9004)+v(9101)+v(6412)*v(9113)+v(9305)
v(9318)=v(6793)*v(9000)+v(6404)*v(9021)+v(9068)+v(6414)*v(9209)+v(9305)
v(9304)=v(6864)*v(8470)+v(6778)*v(8994)
v(9605)=v(6764)*v(9002)+v(6401)*v(9003)+v(9111)+v(6412)*v(9112)+v(9304)
v(9317)=v(6792)*v(9000)+v(6404)*v(9020)+v(9089)+v(6414)*v(9208)+v(9304)
v(9292)=v(6864)*v(8506)
v(9430)=v(6403)*v(9011)+v(6413)*v(9120)+v(9292)+2d0*v(9293)
v(9291)=v(6864)*v(8518)+v(9302)
v(9429)=v(6790)*v(9002)+v(6403)*v(9010)+v(6413)*v(9119)+v(9291)
v(9303)=v(6404)*v(9019)+v(6414)*v(9187)+v(9291)+v(9302)
v(9290)=v(6791)*v(9000)+v(9311)
v(9428)=v(6403)*v(9009)+v(6413)*v(9118)+v(9290)+v(9450)
v(9301)=v(6404)*v(9018)+v(6414)*v(9186)+v(9290)+v(9312)
v(9289)=v(6864)*v(8517)+v(6791)*v(8999)
v(9427)=v(6789)*v(9002)+v(6403)*v(9008)-v(9070)+v(6413)*v(9117)+v(9289)
v(9300)=v(6801)*v(9001)+v(6404)*v(9017)-v(9058)+v(6414)*v(9185)+v(9289)
v(9288)=v(6864)*v(8514)+v(6791)*v(8998)
v(9426)=v(6786)*v(9002)+v(6403)*v(9007)-v(9081)+v(6413)*v(9116)+v(9288)
v(9299)=v(6800)*v(9001)+v(6404)*v(9016)-v(9069)+v(6414)*v(9184)+v(9288)
v(9287)=v(6864)*v(8513)+v(6791)*v(8997)
v(9425)=v(6784)*v(9002)+v(6403)*v(9006)-v(9101)+v(6413)*v(9115)+v(9287)
v(9298)=v(6797)*v(9001)+v(6404)*v(9015)-v(9090)+v(6414)*v(9183)+v(9287)
v(9286)=v(6864)*v(8510)+v(6791)*v(8996)
v(9424)=v(6781)*v(9002)+v(6403)*v(9005)+v(9070)+v(6413)*v(9114)+v(9286)
v(9297)=v(6794)*v(9001)+v(6404)*v(9014)+v(9058)+v(6414)*v(9182)+v(9286)
v(9285)=v(6864)*v(8509)+v(6791)*v(8995)
v(9423)=v(6780)*v(9002)+v(6403)*v(9004)+v(9081)+v(6413)*v(9113)+v(9285)
v(9296)=v(6793)*v(9001)+v(6404)*v(9013)+v(9069)+v(6414)*v(9181)+v(9285)
v(9284)=v(6864)*v(8508)+v(6791)*v(8994)
v(9422)=v(6779)*v(9002)+v(6403)*v(9003)+v(9101)+v(6413)*v(9112)+v(9284)
v(9295)=v(6792)*v(9001)+v(6404)*v(9012)+v(9090)+v(6414)*v(9180)+v(9284)
v(9283)=v(6864)*v(8507)+v(17876)*v(9002)+v(6404)*v(9011)+v(6414)*v(9120)
v(9281)=v(6802)*v(9001)+v(6404)*v(9010)+v(6414)*v(9119)+v(9292)+v(9293)
v(9280)=v(6802)*v(9000)+v(6404)*v(9009)+v(6414)*v(9118)+v(9314)+v(9315)
v(9279)=v(6864)*v(8505)+v(6802)*v(8999)+v(6801)*v(9002)+v(6404)*v(9008)-v(9059)+v(6414)*v(9117)
v(9278)=v(6864)*v(8503)+v(6802)*v(8998)+v(6800)*v(9002)+v(6404)*v(9007)-v(9070)+v(6414)*v(9116)
v(9277)=v(6864)*v(8500)+v(6802)*v(8997)+v(6797)*v(9002)+v(6404)*v(9006)-v(9091)+v(6414)*v(9115)
v(9276)=v(6864)*v(8497)+v(6802)*v(8996)+v(6794)*v(9002)+v(6404)*v(9005)+v(9059)+v(6414)*v(9114)
v(9275)=v(6864)*v(8496)+v(6802)*v(8995)+v(6793)*v(9002)+v(6404)*v(9004)+v(9070)+v(6414)*v(9113)
v(9274)=v(6864)*v(8495)+v(6802)*v(8994)+v(6792)*v(9002)+v(6404)*v(9003)+v(9091)+v(6414)*v(9112)
v(9253)=-(v(6864)*v(8151))
v(9265)=v(17877)*v(6801)+v(6458)*v(8681)+v(6414)*v(9032)-v(6404)*v(9230)+v(9253)-2d0*v(9259)
v(9251)=-(v(6864)*v(8083))
v(9394)=v(17877)*v(6789)+v(6458)*v(8705)+v(6413)*v(9032)-v(6403)*v(9230)+v(9251)-2d0*v(9263)
v(9369)=v(9251)+v(9272)
v(9414)=v(17878)*v(6781)+v(6458)*v(8731)+v(6413)*v(9044)-v(6403)*v(9242)+v(9272)+v(9369)
v(9389)=v(6789)*v(6867)+v(6781)*v(6870)+v(6458)*v(8700)+v(6413)*v(9029)-v(6403)*v(9227)+v(9263)-v(9369)
v(9252)=-(v(6700)*v(8998))-v(9251)
v(9273)=v(6800)*v(6867)+v(6794)*v(6869)+v(6458)*v(8612)+v(6414)*v(9035)-v(6404)*v(9233)+v(9252)-v(9272)
v(9264)=v(6801)*v(6869)+v(6800)*v(6870)+v(6458)*v(8617)+v(6414)*v(9031)-v(6404)*v(9229)-v(9252)-v(9263)
v(9249)=-(v(6864)*v(8107))
v(9516)=v(17877)*v(6775)+v(6458)*v(8757)+v(6412)*v(9032)-v(6401)*v(9230)+v(9249)-2d0*v(9261)
v(9500)=v(9249)+v(9270)
v(9576)=v(17878)*v(6766)+v(6458)*v(8815)+v(6412)*v(9044)-v(6401)*v(9242)+v(9270)+v(9500)
v(9512)=v(6775)*v(6867)+v(6766)*v(6870)+v(6458)*v(8753)+v(6412)*v(9029)-v(6401)*v(9227)+v(9261)-v(9500)
v(9250)=-(v(6700)*v(8997))-v(9249)
v(9271)=v(6797)*v(6867)+v(6794)*v(6868)+v(6458)*v(8635)+v(6414)*v(9040)-v(6404)*v(9238)+v(9250)-v(9270)
v(9262)=v(6801)*v(6868)+v(6797)*v(6870)+v(6458)*v(8638)+v(6414)*v(9030)-v(6404)*v(9228)-v(9250)-v(9261)
v(9248)=v(9253)+v(9268)
v(9269)=v(17878)*v(6794)+v(6458)*v(8684)+v(6414)*v(9044)-v(6404)*v(9242)+v(9248)+v(9268)
v(9260)=v(6801)*v(6867)+v(6794)*v(6870)+v(6458)*v(8680)+v(6414)*v(9029)-v(6404)*v(9227)-v(9248)+v(9259)
v(9247)=-(v(6700)*v(8995))+v(9251)
v(9267)=v(6794)*v(6866)+v(6793)*v(6867)+v(6458)*v(8646)+v(6414)*v(9043)-v(6404)*v(9241)+v(9247)+v(9272)
v(9258)=v(6801)*v(6866)+v(6793)*v(6870)+v(6458)*v(8648)+v(6414)*v(9028)-v(6404)*v(9226)-v(9247)+v(9263)
v(9246)=-(v(6700)*v(8994))+v(9249)
v(9266)=v(6794)*v(6865)+v(6792)*v(6867)+v(6458)*v(8653)+v(6414)*v(9042)-v(6404)*v(9240)+v(9246)+v(9270)
v(9257)=v(6801)*v(6865)+v(6792)*v(6870)+v(6458)*v(8655)+v(6414)*v(9027)-v(6404)*v(9225)-v(9246)+v(9261)
v(6946)=-(v(6700)*v(6864))
v(6947)=v(6458)*v(6801)+v(6414)*v(6870)-v(6946)-v(6404)*v(8999)
v(9955)=-v(6947)/3d0
v(17350)=2d0*v(9955)
v(9948)=-v(17350)
v(6943)=v(6458)*v(6794)+v(6414)*v(6867)+v(6946)-v(6404)*v(8996)
v(9952)=-v(6943)/3d0
v(9945)=(2d0/3d0)*v(6943)
v(6940)=v(6802)*v(6864)+v(6404)*v(6873)+v(6414)*v(9002)
v(9942)=-v(6940)/3d0
v(17661)=2d0*v(9942)
v(9933)=-v(17661)
v(6938)=v(6791)*v(6864)
v(6939)=v(6404)*v(6872)+v(6938)+v(6414)*v(9001)
v(9941)=-v(6939)/3d0
v(9932)=(2d0/3d0)*v(6939)
v(6936)=v(6778)*v(6864)
v(6937)=v(6404)*v(6871)+v(6936)+v(6414)*v(9000)
v(9940)=-v(6937)/3d0
v(9931)=(2d0/3d0)*v(6937)
v(6935)=v(6801)*v(6864)+v(6404)*v(6870)-v(6934)+v(6414)*v(8999)
v(9939)=-v(6935)/3d0
v(17345)=2d0*v(9939)
v(9930)=-v(17345)
v(6933)=v(6800)*v(6864)+v(6404)*v(6869)-v(6913)+v(6414)*v(8998)
v(9938)=-v(6933)/3d0
v(9929)=(2d0/3d0)*v(6933)
v(6932)=v(6797)*v(6864)+v(6404)*v(6868)-v(6890)+v(6414)*v(8997)
v(9937)=-v(6932)/3d0
v(9928)=(2d0/3d0)*v(6932)
v(6931)=v(6794)*v(6864)+v(6404)*v(6867)+v(6934)+v(6414)*v(8996)
v(9936)=-v(6931)/3d0
v(9927)=(2d0/3d0)*v(6931)
v(6930)=v(6793)*v(6864)+v(6404)*v(6866)+v(6913)+v(6414)*v(8995)
v(9935)=-v(6930)/3d0
v(9926)=(2d0/3d0)*v(6930)
v(6929)=v(6792)*v(6864)+v(6404)*v(6865)+v(6890)+v(6414)*v(8994)
v(9934)=-v(6929)/3d0
v(9925)=(2d0/3d0)*v(6929)
v(6925)=-(v(6699)*v(6864))
v(6945)=v(6458)*v(6800)+v(6414)*v(6869)-v(6925)-v(6404)*v(8998)
v(9954)=-v(6945)/3d0
v(9947)=(2d0/3d0)*v(6945)
v(6942)=v(6458)*v(6793)+v(6414)*v(6866)+v(6925)-v(6404)*v(8995)
v(9951)=-v(6942)/3d0
v(9944)=(2d0/3d0)*v(6942)
v(6926)=v(6458)*v(6789)+v(6413)*v(6870)-v(6925)-v(6403)*v(8999)
v(9910)=-v(6926)/3d0
v(18058)=v(9910)+v(9954)
v(9896)=(2d0/3d0)*v(6926)
v(6923)=-(v(6698)*v(6864))
v(6924)=v(6458)*v(6786)+v(6413)*v(6869)-v(6923)-v(6403)*v(8998)
v(9909)=-v(6924)/3d0
v(9895)=(2d0/3d0)*v(6924)
v(6921)=v(6458)*v(6781)+v(6413)*v(6867)+v(6925)-v(6403)*v(8996)
v(9907)=-v(6921)/3d0
v(18052)=v(9907)+v(9951)
v(9893)=(2d0/3d0)*v(6921)
v(6920)=v(6458)*v(6780)+v(6413)*v(6866)+v(6923)-v(6403)*v(8995)
v(9906)=-v(6920)/3d0
v(9892)=(2d0/3d0)*v(6920)
v(6918)=v(6403)*v(6873)+v(6938)+v(6413)*v(9002)
v(9878)=-v(6918)/3d0
v(18061)=v(9878)+v(9941)
v(9863)=(2d0/3d0)*v(6918)
v(6917)=v(6790)*v(6864)+v(6403)*v(6872)+v(6413)*v(9001)
v(9877)=-v(6917)/3d0
v(9862)=(2d0/3d0)*v(6917)
v(6915)=v(6777)*v(6864)
v(6916)=v(6403)*v(6871)+v(6915)+v(6413)*v(9000)
v(9876)=-v(6916)/3d0
v(9861)=(2d0/3d0)*v(6916)
v(6914)=v(6789)*v(6864)+v(6403)*v(6870)-v(6913)+v(6413)*v(8999)
v(9875)=-v(6914)/3d0
v(18057)=v(9875)+v(9938)
v(9860)=(2d0/3d0)*v(6914)
v(6912)=v(6786)*v(6864)+v(6403)*v(6869)-v(6911)+v(6413)*v(8998)
v(9874)=-v(6912)/3d0
v(9859)=(2d0/3d0)*v(6912)
v(6910)=v(6784)*v(6864)+v(6403)*v(6868)-v(6888)+v(6413)*v(8997)
v(9873)=-v(6910)/3d0
v(9858)=(2d0/3d0)*v(6910)
v(6909)=v(6781)*v(6864)+v(6403)*v(6867)+v(6913)+v(6413)*v(8996)
v(9872)=-v(6909)/3d0
v(18051)=v(9872)+v(9935)
v(9857)=(2d0/3d0)*v(6909)
v(6908)=v(6780)*v(6864)+v(6403)*v(6866)+v(6911)+v(6413)*v(8995)
v(9871)=-v(6908)/3d0
v(9856)=(2d0/3d0)*v(6908)
v(6907)=v(6779)*v(6864)+v(6403)*v(6865)+v(6888)+v(6413)*v(8994)
v(9870)=-v(6907)/3d0
v(9855)=(2d0/3d0)*v(6907)
v(6902)=-(v(6697)*v(6864))
v(6944)=v(6458)*v(6797)+v(6414)*v(6868)-v(6902)-v(6404)*v(8997)
v(9953)=-v(6944)/3d0
v(9946)=(2d0/3d0)*v(6944)
v(6941)=v(6458)*v(6792)+v(6414)*v(6865)+v(6902)-v(6404)*v(8994)
v(9950)=-v(6941)/3d0
v(9943)=(2d0/3d0)*v(6941)
v(6903)=v(6458)*v(6775)+v(6412)*v(6870)-v(6902)-v(6401)*v(8999)
v(9529)=(2d0/3d0)*v(6903)
v(9520)=-v(6903)/3d0
v(18056)=v(9520)+v(9953)
v(6900)=-(v(6696)*v(6864))
v(6922)=v(6458)*v(6784)+v(6413)*v(6868)-v(6900)-v(6403)*v(8997)
v(9908)=-v(6922)/3d0
v(9894)=(2d0/3d0)*v(6922)
v(6919)=v(6458)*v(6779)+v(6413)*v(6865)+v(6900)-v(6403)*v(8994)
v(9905)=-v(6919)/3d0
v(9891)=(2d0/3d0)*v(6919)
v(6901)=v(6458)*v(6772)+v(6412)*v(6869)-v(6900)-v(6401)*v(8998)
v(9820)=-v(6901)/3d0
v(18055)=v(9820)+v(9908)
v(9801)=(2d0/3d0)*v(6901)
v(6898)=-(v(6695)*v(6864))
v(6899)=v(6458)*v(6769)+v(6412)*v(6868)-v(6898)-v(6401)*v(8997)
v(9815)=-v(6899)/3d0
v(9800)=(2d0/3d0)*v(6899)
v(6897)=v(6458)*v(6766)+v(6412)*v(6867)+v(6902)-v(6401)*v(8996)
v(9588)=(2d0/3d0)*v(6897)
v(9580)=-v(6897)/3d0
v(18050)=v(9580)+v(9950)
v(6896)=v(6458)*v(6765)+v(6412)*v(6866)+v(6900)-v(6401)*v(8995)
v(9819)=-v(6896)/3d0
v(18049)=v(9819)+v(9905)
v(9799)=(2d0/3d0)*v(6896)
v(6895)=v(6458)*v(6764)+v(6412)*v(6865)+v(6898)-v(6401)*v(8994)
v(9818)=-v(6895)/3d0
v(9798)=(2d0/3d0)*v(6895)
v(6894)=v(6401)*v(6873)+v(6936)+v(6412)*v(9002)
v(9627)=(2d0/3d0)*v(6894)
v(9617)=-v(6894)/3d0
v(18060)=v(9617)+v(9940)
v(6893)=v(6401)*v(6872)+v(6915)+v(6412)*v(9001)
v(9764)=-v(6893)/3d0
v(18059)=v(9764)+v(9876)
v(9746)=(2d0/3d0)*v(6893)
v(6892)=v(6776)*v(6864)+v(6401)*v(6871)+v(6412)*v(9000)
v(9749)=-v(6892)/3d0
v(9745)=(2d0/3d0)*v(6892)
v(6891)=v(6775)*v(6864)+v(6401)*v(6870)-v(6890)+v(6412)*v(8999)
v(9679)=(2d0/3d0)*v(6891)
v(9670)=-v(6891)/3d0
v(18054)=v(9670)+v(9937)
v(6889)=v(6772)*v(6864)+v(6401)*v(6869)-v(6888)+v(6412)*v(8998)
v(9763)=-v(6889)/3d0
v(18053)=v(9763)+v(9873)
v(9744)=(2d0/3d0)*v(6889)
v(6887)=v(6769)*v(6864)+v(6401)*v(6868)-v(6886)+v(6412)*v(8997)
v(9758)=-v(6887)/3d0
v(9743)=(2d0/3d0)*v(6887)
v(6885)=v(6766)*v(6864)+v(6401)*v(6867)+v(6890)+v(6412)*v(8996)
v(9722)=(2d0/3d0)*v(6885)
v(9714)=-v(6885)/3d0
v(18048)=v(9714)+v(9934)
v(6884)=v(6765)*v(6864)+v(6401)*v(6866)+v(6888)+v(6412)*v(8995)
v(9762)=-v(6884)/3d0
v(18047)=v(9762)+v(9870)
v(9742)=(2d0/3d0)*v(6884)
v(6883)=v(6764)*v(6864)+v(6401)*v(6865)+v(6886)+v(6412)*v(8994)
v(9761)=-v(6883)/3d0
v(9741)=(2d0/3d0)*v(6883)
v(6460)=v(6401)*v(6458)+v(6412)*v(6864)
v(7583)=(2d0/3d0)*v(6460)
v(7576)=-v(6460)/3d0
v(6461)=v(6412)*v(6458)-v(6401)*v(6864)
v(7641)=(2d0/3d0)*v(6461)
v(7634)=-v(6461)/3d0
v(6462)=v(6403)*v(6458)+v(6413)*v(6864)
v(7613)=(2d0/3d0)*v(6462)
v(7606)=-v(6462)/3d0
v(6463)=v(6413)*v(6458)-v(6403)*v(6864)
v(7671)=(2d0/3d0)*v(6463)
v(7664)=-v(6463)/3d0
v(6464)=v(6404)*v(6458)+v(6414)*v(6864)
v(7993)=(2d0/3d0)*v(6464)
v(7942)=-v(6464)/3d0
v(6465)=v(6414)*v(6458)-v(6404)*v(6864)
v(7995)=(2d0/3d0)*v(6465)
v(7944)=-v(6465)/3d0
v(6466)=-ug(6)+ugo(6)
v(6949)=(-2d0)*v(6466)
v(6471)=(v(6466)*v(6466))
v(6467)=ug(5)-ugo(5)
v(17904)=-(v(6466)*v(6467))
v(6950)=2d0*v(6467)
v(6472)=(v(6467)*v(6467))
v(6984)=-v(6471)-v(6472)
v(6468)=-ug(4)+ugo(4)
v(17901)=-(v(6467)*v(6468))
v(17899)=v(6466)*v(6468)
v(6951)=(-2d0)*v(6468)
v(6481)=(v(6468)*v(6468))
v(17880)=v(6471)+v(6472)+v(6481)
v(17884)=sqrt(v(17880))
v(17882)=1d0/v(17884)
v(17879)=v(17882)/2d0
v(9963)=v(17879)*v(6949)
v(17910)=-(v(6466)*v(9963))
v(9985)=v(9963)/2d0
v(9960)=v(17879)*v(6950)
v(9984)=v(9960)/2d0
v(9958)=v(17880)
v(9964)=-(v(9963)/v(9958))
v(9962)=-(v(9960)/v(9958))
v(17883)=v(9962)/2d0
v(9966)=v(17883)*v(6949)
v(9957)=v(17879)*v(6951)
v(9983)=v(9957)/2d0
v(9959)=-(v(9957)/v(9958))
v(17881)=v(9959)/2d0
v(9968)=v(17881)*v(6950)
v(9965)=v(17881)*v(6949)
v(6976)=-v(6471)-v(6481)
v(6965)=-v(6472)-v(6481)
v(6952)=v(17882)
v(9970)=v(17881)*v(6951)+v(6952)
v(9969)=v(17883)*v(6950)+v(6952)
v(9967)=v(6952)+(v(6949)*v(9964))/2d0
v(6469)=v(17884)
v(17914)=v(6468)/v(6469)
v(17913)=v(6467)/v(6469)
v(17911)=v(6466)/v(6469)
v(17886)=dsin(v(6469))
v(9979)=1d0/v(6469)**3
v(17885)=(-2d0)*v(9979)
v(9982)=v(17885)*v(9963)
v(9981)=v(17885)*v(9960)
v(9980)=v(17885)*v(9957)
v(9973)=-(v(17886)*v(9963))
v(9972)=v(17886)*v(9960)
v(9971)=-(v(17886)*v(9957))
v(6991)=dcos(v(6469))
v(9977)=v(6991)*v(9968)+v(9960)*v(9971)
v(9976)=v(6991)*v(9967)+v(9963)*v(9973)
v(9974)=v(6991)*v(9965)+v(9963)*v(9971)
v(6993)=v(6991)*v(9963)
v(17887)=v(6952)*v(6993)
v(10484)=v(17887)*v(6468)
v(10082)=v(17887)
v(6992)=v(6991)*v(9960)
v(17888)=v(6952)*v(6992)
v(10482)=v(17888)*v(6468)
v(10107)=-v(17888)
v(6990)=v(6991)*v(9957)
v(17889)=v(6952)*v(6990)
v(10480)=v(17889)*v(6468)
v(10379)=-v(17889)
v(6959)=1d0/v(6469)**2
v(17915)=-(v(6959)*v(9957))
v(17891)=2d0*v(6959)
v(17890)=-(v(6467)*v(6959))
v(10380)=v(17915)*v(6468)
v(10105)=v(17890)*v(6992)
v(10085)=v(17910)*v(6959)
v(17912)=2d0*v(10085)
v(10062)=v(17890)*v(6993)
v(6957)=v(6469)/2d0
v(9986)=dcos(v(6957))
v(9992)=v(17891)*v(9986)
v(6958)=dsin(v(6957))
v(17893)=(v(6958)*v(6958))
v(17903)=-(v(17891)*v(17893))
v(17892)=v(17903)+v(9986)*v(9992)
v(9990)=v(17886)
v(10003)=v(9982)*v(9990)
v(10001)=v(9981)*v(9990)
v(9998)=v(9980)*v(9990)
v(9993)=v(10001)+v(17892)*v(9984)
v(9991)=v(17892)*v(9983)+v(9998)
v(6962)=v(6959)*v(9990)
v(10083)=v(6962)*v(9963)
v(10080)=v(6962)*v(9960)
v(10078)=v(6962)*v(9957)
v(10079)=v(10078)+v(10379)
v(6956)=v(17893)
v(10000)=(12d0*v(6956))/v(6469)**4
v(10002)=v(10001)+v(10000)*v(9960)
v(17896)=v(10002)+v(9993)
v(9999)=v(10000)*v(9957)+v(9998)
v(17895)=v(9991)+v(9999)
v(6961)=(-4d0)*v(6956)*v(9979)
v(17894)=v(6961)+v(6962)
v(10020)=v(17895)*v(9957)+v(17894)*v(9970)
v(10021)=v(10020)*v(6984)
v(10012)=v(17896)*v(9960)+v(17894)*v(9969)
v(17897)=v(10012)*v(6466)
v(10018)=v(17897)*v(6468)
v(10014)=v(10012)*v(6976)
v(10011)=v(17895)*v(9960)+v(17894)*v(9968)
v(10007)=v(17894)*v(9967)+v(9963)*(2d0*v(10003)+v(10000)*v(9963)+v(17892)*v(9985))
v(10010)=v(10007)*v(6965)
v(10006)=v(17896)*v(9963)+v(17894)*v(9966)
v(10005)=v(17895)*v(9963)+v(17894)*v(9965)
v(6964)=v(10083)+v(6961)*v(9963)
v(10050)=-(v(6466)*v(6964))
v(10041)=v(6467)*v(6964)
v(17898)=2d0*v(10041)
v(10052)=v(17898)-v(17897)*v(6467)
v(10049)=v(17898)+v(10007)*v(17904)
v(10036)=-(v(6468)*v(6964))
v(17900)=2d0*v(10036)
v(10055)=v(10020)*v(17899)+v(17900)
v(10054)=v(10007)*v(17899)+v(17900)
v(10028)=-(v(6949)*v(6964))
v(10024)=-v(17900)
v(10043)=2d0*v(10024)+v(10005)*v(6976)
v(10025)=v(10024)+v(10005)*v(6984)
v(10015)=-v(17898)
v(10027)=2d0*v(10015)+v(10006)*v(6984)
v(10016)=v(10015)+v(10006)*v(6976)
v(10009)=v(10015)+v(10006)*v(6965)
v(10008)=v(10024)+v(10005)*v(6965)
v(6968)=v(6964)*v(6965)
v(11137)=rio1(3,3)*v(6968)
v(10831)=rio1(3,2)*v(6968)
v(10525)=rio1(3,1)*v(6968)
v(6963)=v(10080)+v(6961)*v(9960)
v(10039)=v(6467)*v(6963)
v(10035)=-(v(6468)*v(6963))
v(17902)=2d0*v(10035)
v(10042)=v(10020)*v(17901)+v(17902)
v(10038)=v(10012)*v(17901)+v(17902)
v(10032)=-(v(6950)*v(6963))
v(10022)=-v(17902)
v(10056)=2d0*v(10022)+v(10011)*v(6965)
v(10023)=v(10022)+v(10011)*v(6984)
v(10019)=v(10035)+v(10006)*v(17899)
v(10017)=v(10041)+v(10011)*v(17899)
v(10013)=v(10022)+v(10011)*v(6976)
v(6978)=v(6963)*v(6976)
v(10513)=rio1(2,3)*v(6978)
v(10504)=rio1(2,2)*v(6978)
v(10495)=rio1(2,1)*v(6978)
v(6970)=-(v(10035)*v(6466))
v(6960)=v(10078)+v(6961)*v(9957)
v(17908)=-(v(6468)*v(6960))
v(10046)=-(v(6951)*v(6960))
v(6985)=v(6960)*v(6984)
v(6470)=-v(17903)
v(10048)=v(10039)+v(10050)+v(10006)*v(17904)+v(6470)
v(10034)=v(17908)+v(6470)
v(10053)=v(10034)+v(10050)+v(10005)*v(17899)
v(10037)=v(10034)+v(10039)+v(10011)*v(17901)
v(10030)=(-2d0)*v(6470)
v(10045)=v(10030)+v(10046)
v(17905)=v(10045)+v(10046)
v(10058)=v(17905)+v(10020)*v(6965)
v(10047)=v(17905)+v(10020)*v(6976)
v(10031)=v(10030)+v(10032)
v(17906)=v(10031)+v(10032)
v(10057)=v(17906)+v(10012)*v(6965)
v(10033)=v(17906)+v(10012)*v(6984)
v(10026)=v(10028)+v(10030)
v(17907)=v(10026)+v(10028)
v(10044)=v(17907)+v(10007)*v(6976)
v(10029)=v(17907)+v(10007)*v(6984)
v(6988)=-(v(6470)*v(6949))
v(6989)=v(6964)*v(6984)+v(6988)
v(6986)=-(v(6470)*v(6950))
v(6987)=v(6963)*v(6984)+v(6986)
v(6982)=-(v(6468)*v(6470))
v(6983)=v(10035)*v(6467)+v(6982)
v(6980)=v(6467)*v(6470)
v(6981)=v(17908)*v(6467)+v(6980)
v(6979)=v(6964)*v(6976)+v(6988)
v(10516)=rio1(2,3)*v(6979)
v(10507)=rio1(2,2)*v(6979)
v(10498)=rio1(2,1)*v(6979)
v(6975)=-(v(6470)*v(6951))
v(6977)=v(6975)+v(6960)*v(6976)
v(10510)=rio1(2,3)*v(6977)
v(10501)=rio1(2,2)*v(6977)
v(10492)=rio1(2,1)*v(6977)
v(6974)=-(v(10041)*v(6466))+v(6980)
v(6972)=-(v(6466)*v(6470))
v(6973)=-(v(10039)*v(6466))+v(6972)
v(6971)=-(v(10036)*v(6466))+v(6982)
v(6969)=-(v(17908)*v(6466))+v(6972)
v(6967)=v(6963)*v(6965)+v(6986)
v(11134)=rio1(3,3)*v(6967)
v(10828)=rio1(3,2)*v(6967)
v(10522)=rio1(3,1)*v(6967)
v(6966)=v(6960)*v(6965)+v(6975)
v(11131)=rio1(3,3)*v(6966)
v(10825)=rio1(3,2)*v(6966)
v(10519)=rio1(3,1)*v(6966)
v(6494)=1d0+v(6470)*v(6965)
v(6490)=-(v(6468)*v(6972))
v(6489)=v(6467)*v(6972)
v(6484)=1d0+v(6470)*v(6976)
v(6480)=-(v(6468)*v(6980))
v(6475)=1d0+v(6470)*v(6984)
v(6473)=v(17886)
v(17909)=v(6468)*v(6473)
v(10485)=v(10484)+v(17909)*v(9964)
v(10491)=v(10485)+v(6974)
v(10488)=-v(10485)+v(6974)
v(10483)=v(10482)+v(17909)*v(9962)
v(10490)=v(10483)+v(6973)
v(10487)=-v(10483)+v(6973)
v(10119)=v(6962)-v(6468)*v(9991)
v(10090)=v(17910)*v(6473)
v(10089)=-(v(6466)*v(6962))
v(10091)=(-2d0)*v(10082)+2d0*v(10083)+v(17912)*v(6993)+v(10089)*v(9967)+v(17911)*v(9976)+v(10090)*v(9982)
v(10104)=v(10019)-v(10091)
v(10093)=v(10019)+v(10091)
v(10087)=v(10079)+v(17912)*v(6990)+v(10089)*v(9965)+v(17911)*v(9974)+v(10090)*v(9980)
v(10139)=v(10049)-v(10087)
v(10127)=v(10049)+v(10087)
v(10136)=rio1(2,1)*v(10044)+rio1(1,1)*v(10104)+rio1(3,1)*v(10127)
v(10133)=rio1(2,2)*v(10044)+rio1(1,2)*v(10104)+rio1(3,2)*v(10127)
v(10130)=rio1(2,3)*v(10044)+rio1(1,3)*v(10104)+rio1(3,3)*v(10127)
v(10103)=v(10017)-v(10087)
v(10092)=v(10017)+v(10087)
v(10060)=v(10105)-v(10001)*v(6467)-v(6962)
v(10059)=-(v(6467)*v(9991))
v(7003)=-(v(6467)*v(6962))
v(10108)=-v(10080)-2d0*v(10107)+(v(10060)+v(10105))*v(9960)+v(7003)*v(9969)+v(17913)*(v(6991)*v(9969)-v(9960)*v(9972))
v(10118)=v(10018)-v(10108)
v(10110)=v(10018)+v(10108)
v(10106)=-v(10079)+v(10105)*v(9957)+v(10059)*v(9960)+v(7003)*v(9968)+v(17913)*v(9977)
v(10272)=v(10052)+v(10106)
v(10344)=rio1(3,1)*v(10057)+rio1(1,1)*v(10118)+rio1(2,1)*v(10272)
v(10309)=rio1(3,2)*v(10057)+rio1(1,2)*v(10118)+rio1(2,2)*v(10272)
v(10274)=rio1(3,3)*v(10057)+rio1(1,3)*v(10118)+rio1(2,3)*v(10272)
v(10263)=v(10052)-v(10106)
v(10117)=v(10017)-v(10106)
v(10109)=v(10017)+v(10106)
v(10065)=(2d0*v(10062)-v(10003)*v(6467))*v(9963)+v(7003)*v(9967)+v(17913)*v(9976)
v(10077)=v(10054)-v(10065)
v(10220)=rio1(3,1)*v(10010)+rio1(1,1)*v(10077)+rio1(2,1)*v(10139)
v(10181)=rio1(3,2)*v(10010)+rio1(1,2)*v(10077)+rio1(2,2)*v(10139)
v(10142)=rio1(3,3)*v(10010)+rio1(1,3)*v(10077)+rio1(2,3)*v(10139)
v(10074)=v(10018)+v(10065)
v(10071)=v(10054)+v(10065)
v(10102)=rio1(1,1)*v(10029)+rio1(3,1)*v(10071)+rio1(2,1)*v(10093)
v(10250)=v(10102)*v(6408)+v(10136)*v(6410)+v(10220)*v(6411)
v(10238)=v(10102)*v(6461)+v(10136)*v(6463)+v(10220)*v(6465)
v(10226)=v(10102)*v(6460)+v(10136)*v(6462)+v(10220)*v(6464)
v(10099)=rio1(1,2)*v(10029)+rio1(3,2)*v(10071)+rio1(2,2)*v(10093)
v(10211)=v(10099)*v(6408)+v(10133)*v(6410)+v(10181)*v(6411)
v(10199)=v(10099)*v(6461)+v(10133)*v(6463)+v(10181)*v(6465)
v(10187)=v(10099)*v(6460)+v(10133)*v(6462)+v(10181)*v(6464)
v(10096)=rio1(1,3)*v(10029)+rio1(3,3)*v(10071)+rio1(2,3)*v(10093)
v(10172)=v(10096)*v(6408)+v(10130)*v(6410)+v(10142)*v(6411)
v(10160)=v(10096)*v(6461)+v(10130)*v(6463)+v(10142)*v(6465)
v(10148)=v(10096)*v(6460)+v(10130)*v(6462)+v(10142)*v(6464)
v(10068)=v(10018)-v(10065)
v(10064)=v(10082)+v(10062)*v(9960)+v(10060)*v(9963)+v(7003)*v(9966)+v(17913)*(v(6991)*v(9966)-v(9963)*v(9972))
v(10076)=v(10019)-v(10064)
v(10073)=v(10038)+v(10064)
v(10269)=rio1(2,1)*v(10014)+rio1(1,1)*v(10073)+rio1(3,1)*v(10263)
v(10267)=rio1(2,2)*v(10014)+rio1(1,2)*v(10073)+rio1(3,2)*v(10263)
v(10265)=rio1(2,3)*v(10014)+rio1(1,3)*v(10073)+rio1(3,3)*v(10263)
v(10070)=v(10019)+v(10064)
v(10101)=rio1(1,1)*v(10027)+rio1(2,1)*v(10068)+rio1(3,1)*v(10070)
v(10098)=rio1(1,2)*v(10027)+rio1(2,2)*v(10068)+rio1(3,2)*v(10070)
v(10095)=rio1(1,3)*v(10027)+rio1(2,3)*v(10068)+rio1(3,3)*v(10070)
v(10067)=v(10038)-v(10064)
v(10116)=rio1(1,1)*v(10033)+rio1(2,1)*v(10067)+rio1(3,1)*v(10110)
v(10371)=v(10116)*v(6408)+v(10269)*v(6410)+v(10344)*v(6411)
v(10360)=v(10116)*v(6461)+v(10269)*v(6463)+v(10344)*v(6465)
v(10349)=v(10116)*v(6460)+v(10269)*v(6462)+v(10344)*v(6464)
v(10114)=rio1(1,2)*v(10033)+rio1(2,2)*v(10067)+rio1(3,2)*v(10110)
v(10336)=v(10114)*v(6408)+v(10267)*v(6410)+v(10309)*v(6411)
v(10325)=v(10114)*v(6461)+v(10267)*v(6463)+v(10309)*v(6465)
v(10314)=v(10114)*v(6460)+v(10267)*v(6462)+v(10309)*v(6464)
v(10112)=rio1(1,3)*v(10033)+rio1(2,3)*v(10067)+rio1(3,3)*v(10110)
v(10301)=v(10112)*v(6408)+v(10265)*v(6410)+v(10274)*v(6411)
v(10290)=v(10112)*v(6461)+v(10265)*v(6463)+v(10274)*v(6465)
v(10279)=v(10112)*v(6460)+v(10265)*v(6462)+v(10274)*v(6464)
v(10063)=v(10062)*v(9957)+v(10059)*v(9963)+v(7003)*v(9965)+v(17913)*v(9974)
v(10138)=v(10048)+v(10063)
v(10219)=rio1(3,1)*v(10009)+rio1(1,1)*v(10076)+rio1(2,1)*v(10138)
v(10180)=rio1(3,2)*v(10009)+rio1(1,2)*v(10076)+rio1(2,2)*v(10138)
v(10141)=rio1(3,3)*v(10009)+rio1(1,3)*v(10076)+rio1(2,3)*v(10138)
v(10126)=v(10048)-v(10063)
v(10135)=rio1(2,1)*v(10016)+rio1(1,1)*v(10074)+rio1(3,1)*v(10126)
v(10249)=v(10101)*v(6408)+v(10135)*v(6410)+v(10219)*v(6411)
v(10237)=v(10101)*v(6461)+v(10135)*v(6463)+v(10219)*v(6465)
v(10225)=v(10101)*v(6460)+v(10135)*v(6462)+v(10219)*v(6464)
v(10132)=rio1(2,2)*v(10016)+rio1(1,2)*v(10074)+rio1(3,2)*v(10126)
v(10210)=v(10098)*v(6408)+v(10132)*v(6410)+v(10180)*v(6411)
v(10198)=v(10098)*v(6461)+v(10132)*v(6463)+v(10180)*v(6465)
v(10186)=v(10098)*v(6460)+v(10132)*v(6462)+v(10180)*v(6464)
v(10129)=rio1(2,3)*v(10016)+rio1(1,3)*v(10074)+rio1(3,3)*v(10126)
v(10171)=v(10095)*v(6408)+v(10129)*v(6410)+v(10141)*v(6411)
v(10159)=v(10095)*v(6461)+v(10129)*v(6463)+v(10141)*v(6465)
v(10147)=v(10095)*v(6460)+v(10129)*v(6462)+v(10141)*v(6464)
v(10075)=v(10053)-v(10063)
v(10072)=v(10037)+v(10063)
v(10069)=v(10053)+v(10063)
v(10100)=rio1(1,1)*v(10025)+rio1(3,1)*v(10069)+rio1(2,1)*v(10092)
v(10097)=rio1(1,2)*v(10025)+rio1(3,2)*v(10069)+rio1(2,2)*v(10092)
v(10094)=rio1(1,3)*v(10025)+rio1(3,3)*v(10069)+rio1(2,3)*v(10092)
v(10066)=v(10037)-v(10063)
v(10115)=rio1(1,1)*v(10023)+rio1(2,1)*v(10066)+rio1(3,1)*v(10109)
v(10113)=rio1(1,2)*v(10023)+rio1(2,2)*v(10066)+rio1(3,2)*v(10109)
v(10111)=rio1(1,3)*v(10023)+rio1(2,3)*v(10066)+rio1(3,3)*v(10109)
v(7004)=v(17887)*v(6467)+v(7003)*v(9963)
v(7019)=v(6983)-v(7004)
v(7017)=v(6971)+v(7004)
v(7013)=v(6983)+v(7004)
v(10514)=rio1(1,3)*v(7013)
v(17922)=v(10513)+v(10514)
v(10515)=rio1(3,3)*v(10490)+v(17922)
v(10505)=rio1(1,2)*v(7013)
v(17923)=v(10504)+v(10505)
v(10506)=rio1(3,2)*v(10490)+v(17923)
v(10496)=rio1(1,1)*v(7013)
v(17924)=v(10495)+v(10496)
v(10497)=rio1(3,1)*v(10490)+v(17924)
v(7007)=v(6971)-v(7004)
v(11138)=rio1(1,3)*v(7007)
v(17919)=v(11137)+v(11138)
v(11139)=rio1(2,3)*v(10488)+v(17919)
v(10832)=rio1(1,2)*v(7007)
v(17920)=v(10831)+v(10832)
v(10833)=rio1(2,2)*v(10488)+v(17920)
v(10526)=rio1(1,1)*v(7007)
v(17921)=v(10525)+v(10526)
v(10527)=rio1(2,1)*v(10488)+v(17921)
v(7001)=-(v(6473)/v(6469))
v(17928)=v(10480)+v(7001)
v(10481)=v(17928)+v(17909)*v(9959)
v(10489)=v(10481)+v(6970)
v(10486)=-v(10481)+v(6970)
v(7011)=v(17887)*v(6466)+v(10085)*v(6473)+v(7001)
v(7020)=v(6970)+v(7011)
v(7029)=rio1(1,3)*v(6989)+rio1(3,3)*v(7017)+rio1(2,3)*v(7020)
v(11435)=v(6737)*v(7029)
v(11428)=v(6738)*v(7029)
v(11420)=v(6739)*v(7029)
v(11410)=v(6740)*v(7029)
v(11399)=v(6741)*v(7029)
v(11387)=v(6742)*v(7029)
v(11374)=v(6743)*v(7029)
v(11360)=v(6744)*v(7029)
v(11345)=v(6745)*v(7029)
v(11336)=v(6895)*v(7029)
v(11329)=v(6896)*v(7029)
v(11321)=v(6897)*v(7029)
v(11311)=v(6899)*v(7029)
v(11300)=v(6901)*v(7029)
v(11288)=v(6903)*v(7029)
v(11275)=v(6904)*v(7029)
v(11261)=v(6905)*v(7029)
v(11246)=v(6906)*v(7029)
v(11237)=v(6883)*v(7029)
v(11230)=v(6884)*v(7029)
v(11222)=v(6885)*v(7029)
v(11212)=v(6887)*v(7029)
v(11201)=v(6889)*v(7029)
v(11189)=v(6891)*v(7029)
v(11176)=v(6892)*v(7029)
v(11162)=v(6893)*v(7029)
v(11147)=v(6894)*v(7029)
v(7026)=rio1(1,2)*v(6989)+rio1(3,2)*v(7017)+rio1(2,2)*v(7020)
v(11129)=v(6737)*v(7026)
v(11122)=v(6738)*v(7026)
v(11114)=v(6739)*v(7026)
v(11104)=v(6740)*v(7026)
v(11093)=v(6741)*v(7026)
v(11081)=v(6742)*v(7026)
v(11068)=v(6743)*v(7026)
v(11054)=v(6744)*v(7026)
v(11039)=v(6745)*v(7026)
v(11030)=v(6895)*v(7026)
v(11023)=v(6896)*v(7026)
v(11015)=v(6897)*v(7026)
v(11005)=v(6899)*v(7026)
v(10994)=v(6901)*v(7026)
v(10982)=v(6903)*v(7026)
v(10969)=v(6904)*v(7026)
v(10955)=v(6905)*v(7026)
v(10940)=v(6906)*v(7026)
v(10931)=v(6883)*v(7026)
v(10924)=v(6884)*v(7026)
v(10916)=v(6885)*v(7026)
v(10906)=v(6887)*v(7026)
v(10895)=v(6889)*v(7026)
v(10883)=v(6891)*v(7026)
v(10870)=v(6892)*v(7026)
v(10856)=v(6893)*v(7026)
v(10841)=v(6894)*v(7026)
v(7023)=rio1(1,1)*v(6989)+rio1(3,1)*v(7017)+rio1(2,1)*v(7020)
v(10823)=v(6737)*v(7023)
v(10816)=v(6738)*v(7023)
v(10808)=v(6739)*v(7023)
v(10798)=v(6740)*v(7023)
v(10787)=v(6741)*v(7023)
v(10775)=v(6742)*v(7023)
v(10762)=v(6743)*v(7023)
v(10748)=v(6744)*v(7023)
v(10733)=v(6745)*v(7023)
v(10724)=v(6895)*v(7023)
v(10717)=v(6896)*v(7023)
v(10709)=v(6897)*v(7023)
v(10699)=v(6899)*v(7023)
v(10688)=v(6901)*v(7023)
v(10676)=v(6903)*v(7023)
v(10663)=v(6904)*v(7023)
v(10649)=v(6905)*v(7023)
v(10634)=v(6906)*v(7023)
v(10625)=v(6883)*v(7023)
v(10618)=v(6884)*v(7023)
v(10610)=v(6885)*v(7023)
v(10600)=v(6887)*v(7023)
v(10589)=v(6889)*v(7023)
v(10577)=v(6891)*v(7023)
v(10564)=v(6892)*v(7023)
v(10550)=v(6893)*v(7023)
v(10535)=v(6894)*v(7023)
v(7014)=v(6970)-v(7011)
v(10517)=rio1(1,3)*v(7014)
v(17916)=v(10516)+v(10517)
v(10518)=rio1(3,3)*v(10491)+v(17916)
v(11436)=v(11435)+v(10518)*v(6746)+v(11139)*v(6755)
v(11429)=v(11428)+v(10518)*v(6747)+v(11139)*v(6756)
v(11421)=v(11420)+v(10518)*v(6748)+v(11139)*v(6757)
v(11411)=v(11410)+v(10518)*v(6749)+v(11139)*v(6758)
v(11400)=v(11399)+v(10518)*v(6750)+v(11139)*v(6759)
v(11388)=v(11387)+v(10518)*v(6751)+v(11139)*v(6760)
v(11375)=v(11374)+v(10518)*v(6752)+v(11139)*v(6761)
v(11361)=v(11360)+v(10518)*v(6753)+v(11139)*v(6762)
v(11346)=v(11345)+v(10518)*v(6754)+v(11139)*v(6763)
v(11337)=v(11336)+v(10518)*v(6919)+v(11139)*v(6941)
v(11330)=v(11329)+v(10518)*v(6920)+v(11139)*v(6942)
v(11322)=v(11321)+v(10518)*v(6921)+v(11139)*v(6943)
v(11312)=v(11311)+v(10518)*v(6922)+v(11139)*v(6944)
v(11301)=v(11300)+v(10518)*v(6924)+v(11139)*v(6945)
v(11289)=v(11288)+v(10518)*v(6926)+v(11139)*v(6947)
v(11276)=v(11275)+v(10518)*v(6905)+v(11139)*v(6906)
v(11262)=v(11261)+v(10518)*v(6927)+v(11139)*v(6928)
v(11247)=v(11246)+v(10518)*v(6928)+v(11139)*v(6948)
v(11238)=v(11237)+v(10518)*v(6907)+v(11139)*v(6929)
v(11231)=v(11230)+v(10518)*v(6908)+v(11139)*v(6930)
v(11223)=v(11222)+v(10518)*v(6909)+v(11139)*v(6931)
v(11213)=v(11212)+v(10518)*v(6910)+v(11139)*v(6932)
v(11202)=v(11201)+v(10518)*v(6912)+v(11139)*v(6933)
v(11190)=v(11189)+v(10518)*v(6914)+v(11139)*v(6935)
v(11177)=v(11176)+v(10518)*v(6916)+v(11139)*v(6937)
v(11163)=v(11162)+v(10518)*v(6917)+v(11139)*v(6939)
v(11148)=v(11147)+v(10518)*v(6918)+v(11139)*v(6940)
v(10508)=rio1(1,2)*v(7014)
v(17917)=v(10507)+v(10508)
v(10509)=rio1(3,2)*v(10491)+v(17917)
v(11130)=v(11129)+v(10509)*v(6746)+v(10833)*v(6755)
v(11123)=v(11122)+v(10509)*v(6747)+v(10833)*v(6756)
v(11115)=v(11114)+v(10509)*v(6748)+v(10833)*v(6757)
v(11105)=v(11104)+v(10509)*v(6749)+v(10833)*v(6758)
v(11094)=v(11093)+v(10509)*v(6750)+v(10833)*v(6759)
v(11082)=v(11081)+v(10509)*v(6751)+v(10833)*v(6760)
v(11069)=v(11068)+v(10509)*v(6752)+v(10833)*v(6761)
v(11055)=v(11054)+v(10509)*v(6753)+v(10833)*v(6762)
v(11040)=v(11039)+v(10509)*v(6754)+v(10833)*v(6763)
v(11031)=v(11030)+v(10509)*v(6919)+v(10833)*v(6941)
v(11024)=v(11023)+v(10509)*v(6920)+v(10833)*v(6942)
v(11016)=v(11015)+v(10509)*v(6921)+v(10833)*v(6943)
v(11006)=v(11005)+v(10509)*v(6922)+v(10833)*v(6944)
v(10995)=v(10994)+v(10509)*v(6924)+v(10833)*v(6945)
v(10983)=v(10982)+v(10509)*v(6926)+v(10833)*v(6947)
v(10970)=v(10969)+v(10509)*v(6905)+v(10833)*v(6906)
v(10956)=v(10955)+v(10509)*v(6927)+v(10833)*v(6928)
v(10941)=v(10940)+v(10509)*v(6928)+v(10833)*v(6948)
v(10932)=v(10931)+v(10509)*v(6907)+v(10833)*v(6929)
v(10925)=v(10924)+v(10509)*v(6908)+v(10833)*v(6930)
v(10917)=v(10916)+v(10509)*v(6909)+v(10833)*v(6931)
v(10907)=v(10906)+v(10509)*v(6910)+v(10833)*v(6932)
v(10896)=v(10895)+v(10509)*v(6912)+v(10833)*v(6933)
v(10884)=v(10883)+v(10509)*v(6914)+v(10833)*v(6935)
v(10871)=v(10870)+v(10509)*v(6916)+v(10833)*v(6937)
v(10857)=v(10856)+v(10509)*v(6917)+v(10833)*v(6939)
v(10842)=v(10841)+v(10509)*v(6918)+v(10833)*v(6940)
v(10499)=rio1(1,1)*v(7014)
v(17918)=v(10498)+v(10499)
v(10500)=rio1(3,1)*v(10491)+v(17918)
v(10824)=v(10823)+v(10500)*v(6746)+v(10527)*v(6755)
v(10817)=v(10816)+v(10500)*v(6747)+v(10527)*v(6756)
v(10809)=v(10808)+v(10500)*v(6748)+v(10527)*v(6757)
v(10799)=v(10798)+v(10500)*v(6749)+v(10527)*v(6758)
v(10788)=v(10787)+v(10500)*v(6750)+v(10527)*v(6759)
v(10776)=v(10775)+v(10500)*v(6751)+v(10527)*v(6760)
v(10763)=v(10762)+v(10500)*v(6752)+v(10527)*v(6761)
v(10749)=v(10748)+v(10500)*v(6753)+v(10527)*v(6762)
v(10734)=v(10733)+v(10500)*v(6754)+v(10527)*v(6763)
v(10725)=v(10724)+v(10500)*v(6919)+v(10527)*v(6941)
v(10718)=v(10717)+v(10500)*v(6920)+v(10527)*v(6942)
v(10710)=v(10709)+v(10500)*v(6921)+v(10527)*v(6943)
v(10700)=v(10699)+v(10500)*v(6922)+v(10527)*v(6944)
v(10689)=v(10688)+v(10500)*v(6924)+v(10527)*v(6945)
v(10677)=v(10676)+v(10500)*v(6926)+v(10527)*v(6947)
v(10664)=v(10663)+v(10500)*v(6905)+v(10527)*v(6906)
v(10650)=v(10649)+v(10500)*v(6927)+v(10527)*v(6928)
v(10635)=v(10634)+v(10500)*v(6928)+v(10527)*v(6948)
v(10626)=v(10625)+v(10500)*v(6907)+v(10527)*v(6929)
v(10619)=v(10618)+v(10500)*v(6908)+v(10527)*v(6930)
v(10611)=v(10610)+v(10500)*v(6909)+v(10527)*v(6931)
v(10601)=v(10600)+v(10500)*v(6910)+v(10527)*v(6932)
v(10590)=v(10589)+v(10500)*v(6912)+v(10527)*v(6933)
v(10578)=v(10577)+v(10500)*v(6914)+v(10527)*v(6935)
v(10565)=v(10564)+v(10500)*v(6916)+v(10527)*v(6937)
v(10551)=v(10550)+v(10500)*v(6917)+v(10527)*v(6939)
v(10536)=v(10535)+v(10500)*v(6918)+v(10527)*v(6940)
v(7002)=v(17888)*v(6467)-v(7001)+v(7003)*v(9960)
v(7016)=v(6970)+v(7002)
v(7028)=rio1(1,3)*v(6987)+rio1(3,3)*v(7016)+rio1(2,3)*v(7019)
v(11433)=v(6737)*v(7028)
v(11426)=v(6738)*v(7028)
v(11418)=v(6739)*v(7028)
v(11408)=v(6740)*v(7028)
v(11397)=v(6741)*v(7028)
v(11385)=v(6742)*v(7028)
v(11372)=v(6743)*v(7028)
v(11358)=v(6744)*v(7028)
v(11343)=v(6745)*v(7028)
v(11334)=v(6895)*v(7028)
v(11327)=v(6896)*v(7028)
v(11319)=v(6897)*v(7028)
v(11309)=v(6899)*v(7028)
v(11298)=v(6901)*v(7028)
v(11286)=v(6903)*v(7028)
v(11273)=v(6904)*v(7028)
v(11259)=v(6905)*v(7028)
v(11244)=v(6906)*v(7028)
v(11235)=v(6883)*v(7028)
v(11228)=v(6884)*v(7028)
v(11220)=v(6885)*v(7028)
v(11210)=v(6887)*v(7028)
v(11199)=v(6889)*v(7028)
v(11187)=v(6891)*v(7028)
v(11174)=v(6892)*v(7028)
v(11160)=v(6893)*v(7028)
v(11145)=v(6894)*v(7028)
v(7025)=rio1(1,2)*v(6987)+rio1(3,2)*v(7016)+rio1(2,2)*v(7019)
v(11127)=v(6737)*v(7025)
v(11120)=v(6738)*v(7025)
v(11112)=v(6739)*v(7025)
v(11102)=v(6740)*v(7025)
v(11091)=v(6741)*v(7025)
v(11079)=v(6742)*v(7025)
v(11066)=v(6743)*v(7025)
v(11052)=v(6744)*v(7025)
v(11037)=v(6745)*v(7025)
v(11028)=v(6895)*v(7025)
v(11021)=v(6896)*v(7025)
v(11013)=v(6897)*v(7025)
v(11003)=v(6899)*v(7025)
v(10992)=v(6901)*v(7025)
v(10980)=v(6903)*v(7025)
v(10967)=v(6904)*v(7025)
v(10953)=v(6905)*v(7025)
v(10938)=v(6906)*v(7025)
v(10929)=v(6883)*v(7025)
v(10922)=v(6884)*v(7025)
v(10914)=v(6885)*v(7025)
v(10904)=v(6887)*v(7025)
v(10893)=v(6889)*v(7025)
v(10881)=v(6891)*v(7025)
v(10868)=v(6892)*v(7025)
v(10854)=v(6893)*v(7025)
v(10839)=v(6894)*v(7025)
v(7022)=rio1(1,1)*v(6987)+rio1(3,1)*v(7016)+rio1(2,1)*v(7019)
v(10821)=v(6737)*v(7022)
v(10814)=v(6738)*v(7022)
v(10806)=v(6739)*v(7022)
v(10796)=v(6740)*v(7022)
v(10785)=v(6741)*v(7022)
v(10773)=v(6742)*v(7022)
v(10760)=v(6743)*v(7022)
v(10746)=v(6744)*v(7022)
v(10731)=v(6745)*v(7022)
v(10722)=v(6895)*v(7022)
v(10715)=v(6896)*v(7022)
v(10707)=v(6897)*v(7022)
v(10697)=v(6899)*v(7022)
v(10686)=v(6901)*v(7022)
v(10674)=v(6903)*v(7022)
v(10661)=v(6904)*v(7022)
v(10647)=v(6905)*v(7022)
v(10632)=v(6906)*v(7022)
v(10623)=v(6883)*v(7022)
v(10616)=v(6884)*v(7022)
v(10608)=v(6885)*v(7022)
v(10598)=v(6887)*v(7022)
v(10587)=v(6889)*v(7022)
v(10575)=v(6891)*v(7022)
v(10562)=v(6892)*v(7022)
v(10548)=v(6893)*v(7022)
v(10533)=v(6894)*v(7022)
v(7006)=v(6970)-v(7002)
v(11135)=rio1(1,3)*v(7006)
v(17925)=v(11134)+v(11135)
v(11136)=rio1(2,3)*v(10487)+v(17925)
v(11434)=v(11433)+v(10515)*v(6746)+v(11136)*v(6755)
v(11427)=v(11426)+v(10515)*v(6747)+v(11136)*v(6756)
v(11419)=v(11418)+v(10515)*v(6748)+v(11136)*v(6757)
v(11409)=v(11408)+v(10515)*v(6749)+v(11136)*v(6758)
v(11398)=v(11397)+v(10515)*v(6750)+v(11136)*v(6759)
v(11386)=v(11385)+v(10515)*v(6751)+v(11136)*v(6760)
v(11373)=v(11372)+v(10515)*v(6752)+v(11136)*v(6761)
v(11359)=v(11358)+v(10515)*v(6753)+v(11136)*v(6762)
v(11344)=v(11343)+v(10515)*v(6754)+v(11136)*v(6763)
v(11335)=v(11334)+v(10515)*v(6919)+v(11136)*v(6941)
v(11328)=v(11327)+v(10515)*v(6920)+v(11136)*v(6942)
v(11320)=v(11319)+v(10515)*v(6921)+v(11136)*v(6943)
v(11310)=v(11309)+v(10515)*v(6922)+v(11136)*v(6944)
v(11299)=v(11298)+v(10515)*v(6924)+v(11136)*v(6945)
v(11287)=v(11286)+v(10515)*v(6926)+v(11136)*v(6947)
v(11274)=v(11273)+v(10515)*v(6905)+v(11136)*v(6906)
v(11260)=v(11259)+v(10515)*v(6927)+v(11136)*v(6928)
v(11245)=v(11244)+v(10515)*v(6928)+v(11136)*v(6948)
v(11236)=v(11235)+v(10515)*v(6907)+v(11136)*v(6929)
v(11229)=v(11228)+v(10515)*v(6908)+v(11136)*v(6930)
v(11221)=v(11220)+v(10515)*v(6909)+v(11136)*v(6931)
v(11211)=v(11210)+v(10515)*v(6910)+v(11136)*v(6932)
v(11200)=v(11199)+v(10515)*v(6912)+v(11136)*v(6933)
v(11188)=v(11187)+v(10515)*v(6914)+v(11136)*v(6935)
v(11175)=v(11174)+v(10515)*v(6916)+v(11136)*v(6937)
v(11161)=v(11160)+v(10515)*v(6917)+v(11136)*v(6939)
v(11146)=v(11145)+v(10515)*v(6918)+v(11136)*v(6940)
v(10829)=rio1(1,2)*v(7006)
v(17926)=v(10828)+v(10829)
v(10830)=rio1(2,2)*v(10487)+v(17926)
v(11128)=v(11127)+v(10506)*v(6746)+v(10830)*v(6755)
v(11121)=v(11120)+v(10506)*v(6747)+v(10830)*v(6756)
v(11113)=v(11112)+v(10506)*v(6748)+v(10830)*v(6757)
v(11103)=v(11102)+v(10506)*v(6749)+v(10830)*v(6758)
v(11092)=v(11091)+v(10506)*v(6750)+v(10830)*v(6759)
v(11080)=v(11079)+v(10506)*v(6751)+v(10830)*v(6760)
v(11067)=v(11066)+v(10506)*v(6752)+v(10830)*v(6761)
v(11053)=v(11052)+v(10506)*v(6753)+v(10830)*v(6762)
v(11038)=v(11037)+v(10506)*v(6754)+v(10830)*v(6763)
v(11029)=v(11028)+v(10506)*v(6919)+v(10830)*v(6941)
v(11022)=v(11021)+v(10506)*v(6920)+v(10830)*v(6942)
v(11014)=v(11013)+v(10506)*v(6921)+v(10830)*v(6943)
v(11004)=v(11003)+v(10506)*v(6922)+v(10830)*v(6944)
v(10993)=v(10992)+v(10506)*v(6924)+v(10830)*v(6945)
v(10981)=v(10980)+v(10506)*v(6926)+v(10830)*v(6947)
v(10968)=v(10967)+v(10506)*v(6905)+v(10830)*v(6906)
v(10954)=v(10953)+v(10506)*v(6927)+v(10830)*v(6928)
v(10939)=v(10938)+v(10506)*v(6928)+v(10830)*v(6948)
v(10930)=v(10929)+v(10506)*v(6907)+v(10830)*v(6929)
v(10923)=v(10922)+v(10506)*v(6908)+v(10830)*v(6930)
v(10915)=v(10914)+v(10506)*v(6909)+v(10830)*v(6931)
v(10905)=v(10904)+v(10506)*v(6910)+v(10830)*v(6932)
v(10894)=v(10893)+v(10506)*v(6912)+v(10830)*v(6933)
v(10882)=v(10881)+v(10506)*v(6914)+v(10830)*v(6935)
v(10869)=v(10868)+v(10506)*v(6916)+v(10830)*v(6937)
v(10855)=v(10854)+v(10506)*v(6917)+v(10830)*v(6939)
v(10840)=v(10839)+v(10506)*v(6918)+v(10830)*v(6940)
v(10523)=rio1(1,1)*v(7006)
v(17927)=v(10522)+v(10523)
v(10524)=rio1(2,1)*v(10487)+v(17927)
v(10822)=v(10821)+v(10497)*v(6746)+v(10524)*v(6755)
v(10815)=v(10814)+v(10497)*v(6747)+v(10524)*v(6756)
v(10807)=v(10806)+v(10497)*v(6748)+v(10524)*v(6757)
v(10797)=v(10796)+v(10497)*v(6749)+v(10524)*v(6758)
v(10786)=v(10785)+v(10497)*v(6750)+v(10524)*v(6759)
v(10774)=v(10773)+v(10497)*v(6751)+v(10524)*v(6760)
v(10761)=v(10760)+v(10497)*v(6752)+v(10524)*v(6761)
v(10747)=v(10746)+v(10497)*v(6753)+v(10524)*v(6762)
v(10732)=v(10731)+v(10497)*v(6754)+v(10524)*v(6763)
v(10723)=v(10722)+v(10497)*v(6919)+v(10524)*v(6941)
v(10716)=v(10715)+v(10497)*v(6920)+v(10524)*v(6942)
v(10708)=v(10707)+v(10497)*v(6921)+v(10524)*v(6943)
v(10698)=v(10697)+v(10497)*v(6922)+v(10524)*v(6944)
v(10687)=v(10686)+v(10497)*v(6924)+v(10524)*v(6945)
v(10675)=v(10674)+v(10497)*v(6926)+v(10524)*v(6947)
v(10662)=v(10661)+v(10497)*v(6905)+v(10524)*v(6906)
v(10648)=v(10647)+v(10497)*v(6927)+v(10524)*v(6928)
v(10633)=v(10632)+v(10497)*v(6928)+v(10524)*v(6948)
v(10624)=v(10623)+v(10497)*v(6907)+v(10524)*v(6929)
v(10617)=v(10616)+v(10497)*v(6908)+v(10524)*v(6930)
v(10609)=v(10608)+v(10497)*v(6909)+v(10524)*v(6931)
v(10599)=v(10598)+v(10497)*v(6910)+v(10524)*v(6932)
v(10588)=v(10587)+v(10497)*v(6912)+v(10524)*v(6933)
v(10576)=v(10575)+v(10497)*v(6914)+v(10524)*v(6935)
v(10563)=v(10562)+v(10497)*v(6916)+v(10524)*v(6937)
v(10549)=v(10548)+v(10497)*v(6917)+v(10524)*v(6939)
v(10534)=v(10533)+v(10497)*v(6918)+v(10524)*v(6940)
v(6995)=-(v(17909)*v(6959))
v(10381)=v(10079)+v(10379)+v(10380)*v(6990)+v(10119)*v(9957)+v(6995)*v(9970)+v(17914)*(v(6991)*v(9970)+v(9957)*v(9971))
v(10386)=v(10017)-v(10381)
v(10382)=v(10017)+v(10381)
v(10257)=v(10107)+v(10380)*v(6992)+v(10119)*v(9960)+v(6995)*v(9968)+v(17914)*v(9977)
v(10271)=v(10018)-v(10257)
v(10343)=rio1(3,1)*v(10056)+rio1(1,1)*v(10117)+rio1(2,1)*v(10271)
v(10308)=rio1(3,2)*v(10056)+rio1(1,2)*v(10117)+rio1(2,2)*v(10271)
v(10273)=rio1(3,3)*v(10056)+rio1(1,3)*v(10117)+rio1(2,3)*v(10271)
v(10270)=v(10055)+v(10257)
v(10449)=rio1(3,1)*v(10058)+rio1(1,1)*v(10270)+rio1(2,1)*v(10386)
v(10418)=rio1(3,2)*v(10058)+rio1(1,2)*v(10270)+rio1(2,2)*v(10386)
v(10387)=rio1(3,3)*v(10058)+rio1(1,3)*v(10270)+rio1(2,3)*v(10386)
v(10262)=v(10018)+v(10257)
v(10268)=rio1(2,1)*v(10013)+rio1(1,1)*v(10072)+rio1(3,1)*v(10262)
v(10370)=v(10115)*v(6408)+v(10268)*v(6410)+v(10343)*v(6411)
v(10359)=v(10115)*v(6461)+v(10268)*v(6463)+v(10343)*v(6465)
v(10348)=v(10115)*v(6460)+v(10268)*v(6462)+v(10343)*v(6464)
v(10266)=rio1(2,2)*v(10013)+rio1(1,2)*v(10072)+rio1(3,2)*v(10262)
v(10335)=v(10113)*v(6408)+v(10266)*v(6410)+v(10308)*v(6411)
v(10324)=v(10113)*v(6461)+v(10266)*v(6463)+v(10308)*v(6465)
v(10313)=v(10113)*v(6460)+v(10266)*v(6462)+v(10308)*v(6464)
v(10264)=rio1(2,3)*v(10013)+rio1(1,3)*v(10072)+rio1(3,3)*v(10262)
v(10300)=v(10111)*v(6408)+v(10264)*v(6410)+v(10273)*v(6411)
v(10289)=v(10111)*v(6461)+v(10264)*v(6463)+v(10273)*v(6465)
v(10278)=v(10111)*v(6460)+v(10264)*v(6462)+v(10273)*v(6464)
v(10258)=v(10055)-v(10257)
v(10122)=-v(10082)+v(10119)*v(9963)+v(6995)*v(9965)+v(6468)*(v(17915)*v(6993)+v(9974)/v(6469))
v(10137)=v(10019)-v(10122)
v(10218)=rio1(3,1)*v(10008)+rio1(1,1)*v(10075)+rio1(2,1)*v(10137)
v(10179)=rio1(3,2)*v(10008)+rio1(1,2)*v(10075)+rio1(2,2)*v(10137)
v(10140)=rio1(3,3)*v(10008)+rio1(1,3)*v(10075)+rio1(2,3)*v(10137)
v(10125)=v(10019)+v(10122)
v(10134)=rio1(2,1)*v(10043)+rio1(1,1)*v(10103)+rio1(3,1)*v(10125)
v(10248)=v(10100)*v(6408)+v(10134)*v(6410)+v(10218)*v(6411)
v(10236)=v(10100)*v(6461)+v(10134)*v(6463)+v(10218)*v(6465)
v(10224)=v(10100)*v(6460)+v(10134)*v(6462)+v(10218)*v(6464)
v(10131)=rio1(2,2)*v(10043)+rio1(1,2)*v(10103)+rio1(3,2)*v(10125)
v(10209)=v(10097)*v(6408)+v(10131)*v(6410)+v(10179)*v(6411)
v(10197)=v(10097)*v(6461)+v(10131)*v(6463)+v(10179)*v(6465)
v(10185)=v(10097)*v(6460)+v(10131)*v(6462)+v(10179)*v(6464)
v(10128)=rio1(2,3)*v(10043)+rio1(1,3)*v(10103)+rio1(3,3)*v(10125)
v(10170)=v(10094)*v(6408)+v(10128)*v(6410)+v(10140)*v(6411)
v(10158)=v(10094)*v(6461)+v(10128)*v(6463)+v(10140)*v(6465)
v(10146)=v(10094)*v(6460)+v(10128)*v(6462)+v(10140)*v(6464)
v(10124)=v(10042)-v(10122)
v(10385)=rio1(2,1)*v(10047)+rio1(1,1)*v(10124)+rio1(3,1)*v(10382)
v(10384)=rio1(2,2)*v(10047)+rio1(1,2)*v(10124)+rio1(3,2)*v(10382)
v(10383)=rio1(2,3)*v(10047)+rio1(1,3)*v(10124)+rio1(3,3)*v(10382)
v(10123)=v(10042)+v(10122)
v(10261)=rio1(1,1)*v(10021)+rio1(2,1)*v(10123)+rio1(3,1)*v(10258)
v(10473)=v(10261)*v(6408)+v(10385)*v(6410)+v(10449)*v(6411)
v(10463)=v(10261)*v(6461)+v(10385)*v(6463)+v(10449)*v(6465)
v(10453)=v(10261)*v(6460)+v(10385)*v(6462)+v(10449)*v(6464)
v(10260)=rio1(1,2)*v(10021)+rio1(2,2)*v(10123)+rio1(3,2)*v(10258)
v(10442)=v(10260)*v(6408)+v(10384)*v(6410)+v(10418)*v(6411)
v(10432)=v(10260)*v(6461)+v(10384)*v(6463)+v(10418)*v(6465)
v(10422)=v(10260)*v(6460)+v(10384)*v(6462)+v(10418)*v(6464)
v(10259)=rio1(1,3)*v(10021)+rio1(2,3)*v(10123)+rio1(3,3)*v(10258)
v(10411)=v(10259)*v(6408)+v(10383)*v(6410)+v(10387)*v(6411)
v(10401)=v(10259)*v(6461)+v(10383)*v(6463)+v(10387)*v(6465)
v(10391)=v(10259)*v(6460)+v(10383)*v(6462)+v(10387)*v(6464)
v(6997)=v(10484)+v(6995)*v(9963)
v(7018)=v(6981)+v(6997)
v(7012)=v(6981)-v(6997)
v(10511)=rio1(1,3)*v(7012)
v(17929)=v(10510)+v(10511)
v(10512)=rio1(3,3)*v(10489)+v(17929)
v(10502)=rio1(1,2)*v(7012)
v(17930)=v(10501)+v(10502)
v(10503)=rio1(3,2)*v(10489)+v(17930)
v(10493)=rio1(1,1)*v(7012)
v(17931)=v(10492)+v(10493)
v(10494)=rio1(3,1)*v(10489)+v(17931)
v(7010)=v(6974)+v(6997)
v(7038)=v(17916)+rio1(3,3)*v(7010)
v(7035)=v(17917)+rio1(3,2)*v(7010)
v(7032)=v(17918)+rio1(3,1)*v(7010)
v(7000)=v(6974)-v(6997)
v(7119)=v(17919)+rio1(2,3)*v(7000)
v(10178)=v(11345)+v(6754)*v(7038)+v(6763)*v(7119)
v(10177)=v(11360)+v(6753)*v(7038)+v(6762)*v(7119)
v(10176)=v(11374)+v(6752)*v(7038)+v(6761)*v(7119)
v(10175)=v(11387)+v(6751)*v(7038)+v(6760)*v(7119)
v(10174)=v(11399)+v(6750)*v(7038)+v(6759)*v(7119)
v(10173)=v(11410)+v(6749)*v(7038)+v(6758)*v(7119)
v(10169)=v(11420)+v(6748)*v(7038)+v(6757)*v(7119)
v(10168)=v(11428)+v(6747)*v(7038)+v(6756)*v(7119)
v(10167)=v(11435)+v(6746)*v(7038)+v(6755)*v(7119)
v(10166)=v(11246)+v(6928)*v(7038)+v(6948)*v(7119)
v(10165)=v(11261)+v(6927)*v(7038)+v(6928)*v(7119)
v(10164)=v(11275)+v(6905)*v(7038)+v(6906)*v(7119)
v(10163)=v(11288)+v(6926)*v(7038)+v(6947)*v(7119)
v(10162)=v(11300)+v(6924)*v(7038)+v(6945)*v(7119)
v(10161)=v(11311)+v(6922)*v(7038)+v(6944)*v(7119)
v(10157)=v(11321)+v(6921)*v(7038)+v(6943)*v(7119)
v(10156)=v(11329)+v(6920)*v(7038)+v(6942)*v(7119)
v(10155)=v(11336)+v(6919)*v(7038)+v(6941)*v(7119)
v(10154)=v(11147)+v(6918)*v(7038)+v(6940)*v(7119)
v(10153)=v(11162)+v(6917)*v(7038)+v(6939)*v(7119)
v(10152)=v(11176)+v(6916)*v(7038)+v(6937)*v(7119)
v(10151)=v(11189)+v(6914)*v(7038)+v(6935)*v(7119)
v(10150)=v(11201)+v(6912)*v(7038)+v(6933)*v(7119)
v(10149)=v(11212)+v(6910)*v(7038)+v(6932)*v(7119)
v(10145)=v(11222)+v(6909)*v(7038)+v(6931)*v(7119)
v(10144)=v(11230)+v(6908)*v(7038)+v(6930)*v(7119)
v(10143)=v(11237)+v(6907)*v(7038)+v(6929)*v(7119)
v(7149)=v(6460)*v(7029)+v(6462)*v(7038)+v(6464)*v(7119)
v(7137)=v(6461)*v(7029)+v(6463)*v(7038)+v(6465)*v(7119)
v(7125)=v(6408)*v(7029)+v(6410)*v(7038)+v(6411)*v(7119)
v(7080)=v(17920)+rio1(2,2)*v(7000)
v(10217)=v(11039)+v(6754)*v(7035)+v(6763)*v(7080)
v(10216)=v(11054)+v(6753)*v(7035)+v(6762)*v(7080)
v(10215)=v(11068)+v(6752)*v(7035)+v(6761)*v(7080)
v(10214)=v(11081)+v(6751)*v(7035)+v(6760)*v(7080)
v(10213)=v(11093)+v(6750)*v(7035)+v(6759)*v(7080)
v(10212)=v(11104)+v(6749)*v(7035)+v(6758)*v(7080)
v(10208)=v(11114)+v(6748)*v(7035)+v(6757)*v(7080)
v(10207)=v(11122)+v(6747)*v(7035)+v(6756)*v(7080)
v(10206)=v(11129)+v(6746)*v(7035)+v(6755)*v(7080)
v(10205)=v(10940)+v(6928)*v(7035)+v(6948)*v(7080)
v(10204)=v(10955)+v(6927)*v(7035)+v(6928)*v(7080)
v(10203)=v(10969)+v(6905)*v(7035)+v(6906)*v(7080)
v(10202)=v(10982)+v(6926)*v(7035)+v(6947)*v(7080)
v(10201)=v(10994)+v(6924)*v(7035)+v(6945)*v(7080)
v(10200)=v(11005)+v(6922)*v(7035)+v(6944)*v(7080)
v(10196)=v(11015)+v(6921)*v(7035)+v(6943)*v(7080)
v(10195)=v(11023)+v(6920)*v(7035)+v(6942)*v(7080)
v(10194)=v(11030)+v(6919)*v(7035)+v(6941)*v(7080)
v(10193)=v(10841)+v(6918)*v(7035)+v(6940)*v(7080)
v(10192)=v(10856)+v(6917)*v(7035)+v(6939)*v(7080)
v(10191)=v(10870)+v(6916)*v(7035)+v(6937)*v(7080)
v(10190)=v(10883)+v(6914)*v(7035)+v(6935)*v(7080)
v(10189)=v(10895)+v(6912)*v(7035)+v(6933)*v(7080)
v(10188)=v(10906)+v(6910)*v(7035)+v(6932)*v(7080)
v(10184)=v(10916)+v(6909)*v(7035)+v(6931)*v(7080)
v(10183)=v(10924)+v(6908)*v(7035)+v(6930)*v(7080)
v(10182)=v(10931)+v(6907)*v(7035)+v(6929)*v(7080)
v(7110)=v(6460)*v(7026)+v(6462)*v(7035)+v(6464)*v(7080)
v(7098)=v(6461)*v(7026)+v(6463)*v(7035)+v(6465)*v(7080)
v(7086)=v(6408)*v(7026)+v(6410)*v(7035)+v(6411)*v(7080)
v(7041)=v(17921)+rio1(2,1)*v(7000)
v(10256)=v(10733)+v(6754)*v(7032)+v(6763)*v(7041)
v(10255)=v(10748)+v(6753)*v(7032)+v(6762)*v(7041)
v(10254)=v(10762)+v(6752)*v(7032)+v(6761)*v(7041)
v(10253)=v(10775)+v(6751)*v(7032)+v(6760)*v(7041)
v(10252)=v(10787)+v(6750)*v(7032)+v(6759)*v(7041)
v(10251)=v(10798)+v(6749)*v(7032)+v(6758)*v(7041)
v(10247)=v(10808)+v(6748)*v(7032)+v(6757)*v(7041)
v(10246)=v(10816)+v(6747)*v(7032)+v(6756)*v(7041)
v(10245)=v(10823)+v(6746)*v(7032)+v(6755)*v(7041)
v(10244)=v(10634)+v(6928)*v(7032)+v(6948)*v(7041)
v(10243)=v(10649)+v(6927)*v(7032)+v(6928)*v(7041)
v(10242)=v(10663)+v(6905)*v(7032)+v(6906)*v(7041)
v(10241)=v(10676)+v(6926)*v(7032)+v(6947)*v(7041)
v(10240)=v(10688)+v(6924)*v(7032)+v(6945)*v(7041)
v(10239)=v(10699)+v(6922)*v(7032)+v(6944)*v(7041)
v(10235)=v(10709)+v(6921)*v(7032)+v(6943)*v(7041)
v(10234)=v(10717)+v(6920)*v(7032)+v(6942)*v(7041)
v(10233)=v(10724)+v(6919)*v(7032)+v(6941)*v(7041)
v(10232)=v(10535)+v(6918)*v(7032)+v(6940)*v(7041)
v(10231)=v(10550)+v(6917)*v(7032)+v(6939)*v(7041)
v(10230)=v(10564)+v(6916)*v(7032)+v(6937)*v(7041)
v(10229)=v(10577)+v(6914)*v(7032)+v(6935)*v(7041)
v(10228)=v(10589)+v(6912)*v(7032)+v(6933)*v(7041)
v(10227)=v(10600)+v(6910)*v(7032)+v(6932)*v(7041)
v(10223)=v(10610)+v(6909)*v(7032)+v(6931)*v(7041)
v(10222)=v(10618)+v(6908)*v(7032)+v(6930)*v(7041)
v(10221)=v(10625)+v(6907)*v(7032)+v(6929)*v(7041)
v(7071)=v(6460)*v(7023)+v(6462)*v(7032)+v(6464)*v(7041)
v(7059)=v(6461)*v(7023)+v(6463)*v(7032)+v(6465)*v(7041)
v(7047)=v(6408)*v(7023)+v(6410)*v(7032)+v(6411)*v(7041)
v(6996)=v(10482)+v(6995)*v(9960)
v(7015)=v(6969)-v(6996)
v(7027)=rio1(1,3)*v(6985)+rio1(3,3)*v(7015)+rio1(2,3)*v(7018)
v(11431)=v(6737)*v(7027)
v(11424)=v(6738)*v(7027)
v(11416)=v(6739)*v(7027)
v(11406)=v(6740)*v(7027)
v(11395)=v(6741)*v(7027)
v(11383)=v(6742)*v(7027)
v(11370)=v(6743)*v(7027)
v(11356)=v(6744)*v(7027)
v(11341)=v(6745)*v(7027)
v(11332)=v(6895)*v(7027)
v(11325)=v(6896)*v(7027)
v(11317)=v(6897)*v(7027)
v(11307)=v(6899)*v(7027)
v(11296)=v(6901)*v(7027)
v(11284)=v(6903)*v(7027)
v(11271)=v(6904)*v(7027)
v(11257)=v(6905)*v(7027)
v(11242)=v(6906)*v(7027)
v(11233)=v(6883)*v(7027)
v(11226)=v(6884)*v(7027)
v(11218)=v(6885)*v(7027)
v(11208)=v(6887)*v(7027)
v(11197)=v(6889)*v(7027)
v(11185)=v(6891)*v(7027)
v(11172)=v(6892)*v(7027)
v(11158)=v(6893)*v(7027)
v(11143)=v(6894)*v(7027)
v(7024)=rio1(1,2)*v(6985)+rio1(3,2)*v(7015)+rio1(2,2)*v(7018)
v(11125)=v(6737)*v(7024)
v(11118)=v(6738)*v(7024)
v(11110)=v(6739)*v(7024)
v(11100)=v(6740)*v(7024)
v(11089)=v(6741)*v(7024)
v(11077)=v(6742)*v(7024)
v(11064)=v(6743)*v(7024)
v(11050)=v(6744)*v(7024)
v(11035)=v(6745)*v(7024)
v(11026)=v(6895)*v(7024)
v(11019)=v(6896)*v(7024)
v(11011)=v(6897)*v(7024)
v(11001)=v(6899)*v(7024)
v(10990)=v(6901)*v(7024)
v(10978)=v(6903)*v(7024)
v(10965)=v(6904)*v(7024)
v(10951)=v(6905)*v(7024)
v(10936)=v(6906)*v(7024)
v(10927)=v(6883)*v(7024)
v(10920)=v(6884)*v(7024)
v(10912)=v(6885)*v(7024)
v(10902)=v(6887)*v(7024)
v(10891)=v(6889)*v(7024)
v(10879)=v(6891)*v(7024)
v(10866)=v(6892)*v(7024)
v(10852)=v(6893)*v(7024)
v(10837)=v(6894)*v(7024)
v(7021)=rio1(1,1)*v(6985)+rio1(3,1)*v(7015)+rio1(2,1)*v(7018)
v(10819)=v(6737)*v(7021)
v(10812)=v(6738)*v(7021)
v(10804)=v(6739)*v(7021)
v(10794)=v(6740)*v(7021)
v(10783)=v(6741)*v(7021)
v(10771)=v(6742)*v(7021)
v(10758)=v(6743)*v(7021)
v(10744)=v(6744)*v(7021)
v(10729)=v(6745)*v(7021)
v(10720)=v(6895)*v(7021)
v(10713)=v(6896)*v(7021)
v(10705)=v(6897)*v(7021)
v(10695)=v(6899)*v(7021)
v(10684)=v(6901)*v(7021)
v(10672)=v(6903)*v(7021)
v(10659)=v(6904)*v(7021)
v(10645)=v(6905)*v(7021)
v(10630)=v(6906)*v(7021)
v(10621)=v(6883)*v(7021)
v(10614)=v(6884)*v(7021)
v(10606)=v(6885)*v(7021)
v(10596)=v(6887)*v(7021)
v(10585)=v(6889)*v(7021)
v(10573)=v(6891)*v(7021)
v(10560)=v(6892)*v(7021)
v(10546)=v(6893)*v(7021)
v(10531)=v(6894)*v(7021)
v(7009)=v(6973)+v(6996)
v(7037)=v(17922)+rio1(3,3)*v(7009)
v(7034)=v(17923)+rio1(3,2)*v(7009)
v(7031)=v(17924)+rio1(3,1)*v(7009)
v(7005)=v(6969)+v(6996)
v(11132)=rio1(1,3)*v(7005)
v(17932)=v(11131)+v(11132)
v(11133)=rio1(2,3)*v(10486)+v(17932)
v(11432)=v(11431)+v(10512)*v(6746)+v(11133)*v(6755)
v(11425)=v(11424)+v(10512)*v(6747)+v(11133)*v(6756)
v(11417)=v(11416)+v(10512)*v(6748)+v(11133)*v(6757)
v(11407)=v(11406)+v(10512)*v(6749)+v(11133)*v(6758)
v(11396)=v(11395)+v(10512)*v(6750)+v(11133)*v(6759)
v(11384)=v(11383)+v(10512)*v(6751)+v(11133)*v(6760)
v(11371)=v(11370)+v(10512)*v(6752)+v(11133)*v(6761)
v(11357)=v(11356)+v(10512)*v(6753)+v(11133)*v(6762)
v(11342)=v(11341)+v(10512)*v(6754)+v(11133)*v(6763)
v(11333)=v(11332)+v(10512)*v(6919)+v(11133)*v(6941)
v(11326)=v(11325)+v(10512)*v(6920)+v(11133)*v(6942)
v(11318)=v(11317)+v(10512)*v(6921)+v(11133)*v(6943)
v(11308)=v(11307)+v(10512)*v(6922)+v(11133)*v(6944)
v(11297)=v(11296)+v(10512)*v(6924)+v(11133)*v(6945)
v(11285)=v(11284)+v(10512)*v(6926)+v(11133)*v(6947)
v(11272)=v(11271)+v(10512)*v(6905)+v(11133)*v(6906)
v(11258)=v(11257)+v(10512)*v(6927)+v(11133)*v(6928)
v(11243)=v(11242)+v(10512)*v(6928)+v(11133)*v(6948)
v(11234)=v(11233)+v(10512)*v(6907)+v(11133)*v(6929)
v(11227)=v(11226)+v(10512)*v(6908)+v(11133)*v(6930)
v(11219)=v(11218)+v(10512)*v(6909)+v(11133)*v(6931)
v(11209)=v(11208)+v(10512)*v(6910)+v(11133)*v(6932)
v(11198)=v(11197)+v(10512)*v(6912)+v(11133)*v(6933)
v(11186)=v(11185)+v(10512)*v(6914)+v(11133)*v(6935)
v(11173)=v(11172)+v(10512)*v(6916)+v(11133)*v(6937)
v(11159)=v(11158)+v(10512)*v(6917)+v(11133)*v(6939)
v(11144)=v(11143)+v(10512)*v(6918)+v(11133)*v(6940)
v(10826)=rio1(1,2)*v(7005)
v(17933)=v(10825)+v(10826)
v(10827)=rio1(2,2)*v(10486)+v(17933)
v(11126)=v(11125)+v(10503)*v(6746)+v(10827)*v(6755)
v(11119)=v(11118)+v(10503)*v(6747)+v(10827)*v(6756)
v(11111)=v(11110)+v(10503)*v(6748)+v(10827)*v(6757)
v(11101)=v(11100)+v(10503)*v(6749)+v(10827)*v(6758)
v(11090)=v(11089)+v(10503)*v(6750)+v(10827)*v(6759)
v(11078)=v(11077)+v(10503)*v(6751)+v(10827)*v(6760)
v(11065)=v(11064)+v(10503)*v(6752)+v(10827)*v(6761)
v(11051)=v(11050)+v(10503)*v(6753)+v(10827)*v(6762)
v(11036)=v(11035)+v(10503)*v(6754)+v(10827)*v(6763)
v(11027)=v(11026)+v(10503)*v(6919)+v(10827)*v(6941)
v(11020)=v(11019)+v(10503)*v(6920)+v(10827)*v(6942)
v(11012)=v(11011)+v(10503)*v(6921)+v(10827)*v(6943)
v(11002)=v(11001)+v(10503)*v(6922)+v(10827)*v(6944)
v(10991)=v(10990)+v(10503)*v(6924)+v(10827)*v(6945)
v(10979)=v(10978)+v(10503)*v(6926)+v(10827)*v(6947)
v(10966)=v(10965)+v(10503)*v(6905)+v(10827)*v(6906)
v(10952)=v(10951)+v(10503)*v(6927)+v(10827)*v(6928)
v(10937)=v(10936)+v(10503)*v(6928)+v(10827)*v(6948)
v(10928)=v(10927)+v(10503)*v(6907)+v(10827)*v(6929)
v(10921)=v(10920)+v(10503)*v(6908)+v(10827)*v(6930)
v(10913)=v(10912)+v(10503)*v(6909)+v(10827)*v(6931)
v(10903)=v(10902)+v(10503)*v(6910)+v(10827)*v(6932)
v(10892)=v(10891)+v(10503)*v(6912)+v(10827)*v(6933)
v(10880)=v(10879)+v(10503)*v(6914)+v(10827)*v(6935)
v(10867)=v(10866)+v(10503)*v(6916)+v(10827)*v(6937)
v(10853)=v(10852)+v(10503)*v(6917)+v(10827)*v(6939)
v(10838)=v(10837)+v(10503)*v(6918)+v(10827)*v(6940)
v(10520)=rio1(1,1)*v(7005)
v(17934)=v(10519)+v(10520)
v(10521)=rio1(2,1)*v(10486)+v(17934)
v(10820)=v(10819)+v(10494)*v(6746)+v(10521)*v(6755)
v(10813)=v(10812)+v(10494)*v(6747)+v(10521)*v(6756)
v(10805)=v(10804)+v(10494)*v(6748)+v(10521)*v(6757)
v(10795)=v(10794)+v(10494)*v(6749)+v(10521)*v(6758)
v(10784)=v(10783)+v(10494)*v(6750)+v(10521)*v(6759)
v(10772)=v(10771)+v(10494)*v(6751)+v(10521)*v(6760)
v(10759)=v(10758)+v(10494)*v(6752)+v(10521)*v(6761)
v(10745)=v(10744)+v(10494)*v(6753)+v(10521)*v(6762)
v(10730)=v(10729)+v(10494)*v(6754)+v(10521)*v(6763)
v(10721)=v(10720)+v(10494)*v(6919)+v(10521)*v(6941)
v(10714)=v(10713)+v(10494)*v(6920)+v(10521)*v(6942)
v(10706)=v(10705)+v(10494)*v(6921)+v(10521)*v(6943)
v(10696)=v(10695)+v(10494)*v(6922)+v(10521)*v(6944)
v(10685)=v(10684)+v(10494)*v(6924)+v(10521)*v(6945)
v(10673)=v(10672)+v(10494)*v(6926)+v(10521)*v(6947)
v(10660)=v(10659)+v(10494)*v(6905)+v(10521)*v(6906)
v(10646)=v(10645)+v(10494)*v(6927)+v(10521)*v(6928)
v(10631)=v(10630)+v(10494)*v(6928)+v(10521)*v(6948)
v(10622)=v(10621)+v(10494)*v(6907)+v(10521)*v(6929)
v(10615)=v(10614)+v(10494)*v(6908)+v(10521)*v(6930)
v(10607)=v(10606)+v(10494)*v(6909)+v(10521)*v(6931)
v(10597)=v(10596)+v(10494)*v(6910)+v(10521)*v(6932)
v(10586)=v(10585)+v(10494)*v(6912)+v(10521)*v(6933)
v(10574)=v(10573)+v(10494)*v(6914)+v(10521)*v(6935)
v(10561)=v(10560)+v(10494)*v(6916)+v(10521)*v(6937)
v(10547)=v(10546)+v(10494)*v(6917)+v(10521)*v(6939)
v(10532)=v(10531)+v(10494)*v(6918)+v(10521)*v(6940)
v(6999)=v(6973)-v(6996)
v(7118)=v(17925)+rio1(2,3)*v(6999)
v(10307)=v(11343)+v(6754)*v(7037)+v(6763)*v(7118)
v(10306)=v(11358)+v(6753)*v(7037)+v(6762)*v(7118)
v(10305)=v(11372)+v(6752)*v(7037)+v(6761)*v(7118)
v(10304)=v(11385)+v(6751)*v(7037)+v(6760)*v(7118)
v(10303)=v(11397)+v(6750)*v(7037)+v(6759)*v(7118)
v(10302)=v(11408)+v(6749)*v(7037)+v(6758)*v(7118)
v(10299)=v(11418)+v(6748)*v(7037)+v(6757)*v(7118)
v(10298)=v(11426)+v(6747)*v(7037)+v(6756)*v(7118)
v(10297)=v(11433)+v(6746)*v(7037)+v(6755)*v(7118)
v(10296)=v(11244)+v(6928)*v(7037)+v(6948)*v(7118)
v(10295)=v(11259)+v(6927)*v(7037)+v(6928)*v(7118)
v(10294)=v(11273)+v(6905)*v(7037)+v(6906)*v(7118)
v(10293)=v(11286)+v(6926)*v(7037)+v(6947)*v(7118)
v(10292)=v(11298)+v(6924)*v(7037)+v(6945)*v(7118)
v(10291)=v(11309)+v(6922)*v(7037)+v(6944)*v(7118)
v(10288)=v(11319)+v(6921)*v(7037)+v(6943)*v(7118)
v(10287)=v(11327)+v(6920)*v(7037)+v(6942)*v(7118)
v(10286)=v(11334)+v(6919)*v(7037)+v(6941)*v(7118)
v(10285)=v(11145)+v(6918)*v(7037)+v(6940)*v(7118)
v(10284)=v(11160)+v(6917)*v(7037)+v(6939)*v(7118)
v(10283)=v(11174)+v(6916)*v(7037)+v(6937)*v(7118)
v(10282)=v(11187)+v(6914)*v(7037)+v(6935)*v(7118)
v(10281)=v(11199)+v(6912)*v(7037)+v(6933)*v(7118)
v(10280)=v(11210)+v(6910)*v(7037)+v(6932)*v(7118)
v(10277)=v(11220)+v(6909)*v(7037)+v(6931)*v(7118)
v(10276)=v(11228)+v(6908)*v(7037)+v(6930)*v(7118)
v(10275)=v(11235)+v(6907)*v(7037)+v(6929)*v(7118)
v(7148)=v(6460)*v(7028)+v(6462)*v(7037)+v(6464)*v(7118)
v(7136)=v(6461)*v(7028)+v(6463)*v(7037)+v(6465)*v(7118)
v(7124)=v(6408)*v(7028)+v(6410)*v(7037)+v(6411)*v(7118)
v(7079)=v(17926)+rio1(2,2)*v(6999)
v(10342)=v(11037)+v(6754)*v(7034)+v(6763)*v(7079)
v(10341)=v(11052)+v(6753)*v(7034)+v(6762)*v(7079)
v(10340)=v(11066)+v(6752)*v(7034)+v(6761)*v(7079)
v(10339)=v(11079)+v(6751)*v(7034)+v(6760)*v(7079)
v(10338)=v(11091)+v(6750)*v(7034)+v(6759)*v(7079)
v(10337)=v(11102)+v(6749)*v(7034)+v(6758)*v(7079)
v(10334)=v(11112)+v(6748)*v(7034)+v(6757)*v(7079)
v(10333)=v(11120)+v(6747)*v(7034)+v(6756)*v(7079)
v(10332)=v(11127)+v(6746)*v(7034)+v(6755)*v(7079)
v(10331)=v(10938)+v(6928)*v(7034)+v(6948)*v(7079)
v(10330)=v(10953)+v(6927)*v(7034)+v(6928)*v(7079)
v(10329)=v(10967)+v(6905)*v(7034)+v(6906)*v(7079)
v(10328)=v(10980)+v(6926)*v(7034)+v(6947)*v(7079)
v(10327)=v(10992)+v(6924)*v(7034)+v(6945)*v(7079)
v(10326)=v(11003)+v(6922)*v(7034)+v(6944)*v(7079)
v(10323)=v(11013)+v(6921)*v(7034)+v(6943)*v(7079)
v(10322)=v(11021)+v(6920)*v(7034)+v(6942)*v(7079)
v(10321)=v(11028)+v(6919)*v(7034)+v(6941)*v(7079)
v(10320)=v(10839)+v(6918)*v(7034)+v(6940)*v(7079)
v(10319)=v(10854)+v(6917)*v(7034)+v(6939)*v(7079)
v(10318)=v(10868)+v(6916)*v(7034)+v(6937)*v(7079)
v(10317)=v(10881)+v(6914)*v(7034)+v(6935)*v(7079)
v(10316)=v(10893)+v(6912)*v(7034)+v(6933)*v(7079)
v(10315)=v(10904)+v(6910)*v(7034)+v(6932)*v(7079)
v(10312)=v(10914)+v(6909)*v(7034)+v(6931)*v(7079)
v(10311)=v(10922)+v(6908)*v(7034)+v(6930)*v(7079)
v(10310)=v(10929)+v(6907)*v(7034)+v(6929)*v(7079)
v(7109)=v(6460)*v(7025)+v(6462)*v(7034)+v(6464)*v(7079)
v(7097)=v(6461)*v(7025)+v(6463)*v(7034)+v(6465)*v(7079)
v(7085)=v(6408)*v(7025)+v(6410)*v(7034)+v(6411)*v(7079)
v(7040)=v(17927)+rio1(2,1)*v(6999)
v(10377)=v(10731)+v(6754)*v(7031)+v(6763)*v(7040)
v(10376)=v(10746)+v(6753)*v(7031)+v(6762)*v(7040)
v(10375)=v(10760)+v(6752)*v(7031)+v(6761)*v(7040)
v(10374)=v(10773)+v(6751)*v(7031)+v(6760)*v(7040)
v(10373)=v(10785)+v(6750)*v(7031)+v(6759)*v(7040)
v(10372)=v(10796)+v(6749)*v(7031)+v(6758)*v(7040)
v(10369)=v(10806)+v(6748)*v(7031)+v(6757)*v(7040)
v(10368)=v(10814)+v(6747)*v(7031)+v(6756)*v(7040)
v(10367)=v(10821)+v(6746)*v(7031)+v(6755)*v(7040)
v(10366)=v(10632)+v(6928)*v(7031)+v(6948)*v(7040)
v(10365)=v(10647)+v(6927)*v(7031)+v(6928)*v(7040)
v(10364)=v(10661)+v(6905)*v(7031)+v(6906)*v(7040)
v(10363)=v(10674)+v(6926)*v(7031)+v(6947)*v(7040)
v(10362)=v(10686)+v(6924)*v(7031)+v(6945)*v(7040)
v(10361)=v(10697)+v(6922)*v(7031)+v(6944)*v(7040)
v(10358)=v(10707)+v(6921)*v(7031)+v(6943)*v(7040)
v(10357)=v(10715)+v(6920)*v(7031)+v(6942)*v(7040)
v(10356)=v(10722)+v(6919)*v(7031)+v(6941)*v(7040)
v(10355)=v(10533)+v(6918)*v(7031)+v(6940)*v(7040)
v(10354)=v(10548)+v(6917)*v(7031)+v(6939)*v(7040)
v(10353)=v(10562)+v(6916)*v(7031)+v(6937)*v(7040)
v(10352)=v(10575)+v(6914)*v(7031)+v(6935)*v(7040)
v(10351)=v(10587)+v(6912)*v(7031)+v(6933)*v(7040)
v(10350)=v(10598)+v(6910)*v(7031)+v(6932)*v(7040)
v(10347)=v(10608)+v(6909)*v(7031)+v(6931)*v(7040)
v(10346)=v(10616)+v(6908)*v(7031)+v(6930)*v(7040)
v(10345)=v(10623)+v(6907)*v(7031)+v(6929)*v(7040)
v(7070)=v(6460)*v(7022)+v(6462)*v(7031)+v(6464)*v(7040)
v(7058)=v(6461)*v(7022)+v(6463)*v(7031)+v(6465)*v(7040)
v(7046)=v(6408)*v(7022)+v(6410)*v(7031)+v(6411)*v(7040)
v(6994)=v(17928)+v(6995)*v(9957)
v(7008)=v(6970)+v(6994)
v(7036)=v(17929)+rio1(3,3)*v(7008)
v(7033)=v(17930)+rio1(3,2)*v(7008)
v(7030)=v(17931)+rio1(3,1)*v(7008)
v(6998)=v(6970)-v(6994)
v(7117)=v(17932)+rio1(2,3)*v(6998)
v(10417)=v(11341)+v(6754)*v(7036)+v(6763)*v(7117)
v(10416)=v(11356)+v(6753)*v(7036)+v(6762)*v(7117)
v(10415)=v(11370)+v(6752)*v(7036)+v(6761)*v(7117)
v(10414)=v(11383)+v(6751)*v(7036)+v(6760)*v(7117)
v(10413)=v(11395)+v(6750)*v(7036)+v(6759)*v(7117)
v(10412)=v(11406)+v(6749)*v(7036)+v(6758)*v(7117)
v(10410)=v(11416)+v(6748)*v(7036)+v(6757)*v(7117)
v(10409)=v(11424)+v(6747)*v(7036)+v(6756)*v(7117)
v(10408)=v(11431)+v(6746)*v(7036)+v(6755)*v(7117)
v(10407)=v(11242)+v(6928)*v(7036)+v(6948)*v(7117)
v(10406)=v(11257)+v(6927)*v(7036)+v(6928)*v(7117)
v(10405)=v(11271)+v(6905)*v(7036)+v(6906)*v(7117)
v(10404)=v(11284)+v(6926)*v(7036)+v(6947)*v(7117)
v(10403)=v(11296)+v(6924)*v(7036)+v(6945)*v(7117)
v(10402)=v(11307)+v(6922)*v(7036)+v(6944)*v(7117)
v(10400)=v(11317)+v(6921)*v(7036)+v(6943)*v(7117)
v(10399)=v(11325)+v(6920)*v(7036)+v(6942)*v(7117)
v(10398)=v(11332)+v(6919)*v(7036)+v(6941)*v(7117)
v(10397)=v(11143)+v(6918)*v(7036)+v(6940)*v(7117)
v(10396)=v(11158)+v(6917)*v(7036)+v(6939)*v(7117)
v(10395)=v(11172)+v(6916)*v(7036)+v(6937)*v(7117)
v(10394)=v(11185)+v(6914)*v(7036)+v(6935)*v(7117)
v(10393)=v(11197)+v(6912)*v(7036)+v(6933)*v(7117)
v(10392)=v(11208)+v(6910)*v(7036)+v(6932)*v(7117)
v(10390)=v(11218)+v(6909)*v(7036)+v(6931)*v(7117)
v(10389)=v(11226)+v(6908)*v(7036)+v(6930)*v(7117)
v(10388)=v(11233)+v(6907)*v(7036)+v(6929)*v(7117)
v(7147)=v(6460)*v(7027)+v(6462)*v(7036)+v(6464)*v(7117)
v(7135)=v(6461)*v(7027)+v(6463)*v(7036)+v(6465)*v(7117)
v(7123)=v(6408)*v(7027)+v(6410)*v(7036)+v(6411)*v(7117)
v(7078)=v(17933)+rio1(2,2)*v(6998)
v(10448)=v(11035)+v(6754)*v(7033)+v(6763)*v(7078)
v(10447)=v(11050)+v(6753)*v(7033)+v(6762)*v(7078)
v(10446)=v(11064)+v(6752)*v(7033)+v(6761)*v(7078)
v(10445)=v(11077)+v(6751)*v(7033)+v(6760)*v(7078)
v(10444)=v(11089)+v(6750)*v(7033)+v(6759)*v(7078)
v(10443)=v(11100)+v(6749)*v(7033)+v(6758)*v(7078)
v(10441)=v(11110)+v(6748)*v(7033)+v(6757)*v(7078)
v(10440)=v(11118)+v(6747)*v(7033)+v(6756)*v(7078)
v(10439)=v(11125)+v(6746)*v(7033)+v(6755)*v(7078)
v(10438)=v(10936)+v(6928)*v(7033)+v(6948)*v(7078)
v(10437)=v(10951)+v(6927)*v(7033)+v(6928)*v(7078)
v(10436)=v(10965)+v(6905)*v(7033)+v(6906)*v(7078)
v(10435)=v(10978)+v(6926)*v(7033)+v(6947)*v(7078)
v(10434)=v(10990)+v(6924)*v(7033)+v(6945)*v(7078)
v(10433)=v(11001)+v(6922)*v(7033)+v(6944)*v(7078)
v(10431)=v(11011)+v(6921)*v(7033)+v(6943)*v(7078)
v(10430)=v(11019)+v(6920)*v(7033)+v(6942)*v(7078)
v(10429)=v(11026)+v(6919)*v(7033)+v(6941)*v(7078)
v(10428)=v(10837)+v(6918)*v(7033)+v(6940)*v(7078)
v(10427)=v(10852)+v(6917)*v(7033)+v(6939)*v(7078)
v(10426)=v(10866)+v(6916)*v(7033)+v(6937)*v(7078)
v(10425)=v(10879)+v(6914)*v(7033)+v(6935)*v(7078)
v(10424)=v(10891)+v(6912)*v(7033)+v(6933)*v(7078)
v(10423)=v(10902)+v(6910)*v(7033)+v(6932)*v(7078)
v(10421)=v(10912)+v(6909)*v(7033)+v(6931)*v(7078)
v(10420)=v(10920)+v(6908)*v(7033)+v(6930)*v(7078)
v(10419)=v(10927)+v(6907)*v(7033)+v(6929)*v(7078)
v(7108)=v(6460)*v(7024)+v(6462)*v(7033)+v(6464)*v(7078)
v(7096)=v(6461)*v(7024)+v(6463)*v(7033)+v(6465)*v(7078)
v(7084)=v(6408)*v(7024)+v(6410)*v(7033)+v(6411)*v(7078)
v(7039)=v(17934)+rio1(2,1)*v(6998)
v(10479)=v(10729)+v(6754)*v(7030)+v(6763)*v(7039)
v(10478)=v(10744)+v(6753)*v(7030)+v(6762)*v(7039)
v(10477)=v(10758)+v(6752)*v(7030)+v(6761)*v(7039)
v(10476)=v(10771)+v(6751)*v(7030)+v(6760)*v(7039)
v(10475)=v(10783)+v(6750)*v(7030)+v(6759)*v(7039)
v(10474)=v(10794)+v(6749)*v(7030)+v(6758)*v(7039)
v(10472)=v(10804)+v(6748)*v(7030)+v(6757)*v(7039)
v(10471)=v(10812)+v(6747)*v(7030)+v(6756)*v(7039)
v(10470)=v(10819)+v(6746)*v(7030)+v(6755)*v(7039)
v(10469)=v(10630)+v(6928)*v(7030)+v(6948)*v(7039)
v(10468)=v(10645)+v(6927)*v(7030)+v(6928)*v(7039)
v(10467)=v(10659)+v(6905)*v(7030)+v(6906)*v(7039)
v(10466)=v(10672)+v(6926)*v(7030)+v(6947)*v(7039)
v(10465)=v(10684)+v(6924)*v(7030)+v(6945)*v(7039)
v(10464)=v(10695)+v(6922)*v(7030)+v(6944)*v(7039)
v(10462)=v(10705)+v(6921)*v(7030)+v(6943)*v(7039)
v(10461)=v(10713)+v(6920)*v(7030)+v(6942)*v(7039)
v(10460)=v(10720)+v(6919)*v(7030)+v(6941)*v(7039)
v(10459)=v(10531)+v(6918)*v(7030)+v(6940)*v(7039)
v(10458)=v(10546)+v(6917)*v(7030)+v(6939)*v(7039)
v(10457)=v(10560)+v(6916)*v(7030)+v(6937)*v(7039)
v(10456)=v(10573)+v(6914)*v(7030)+v(6935)*v(7039)
v(10455)=v(10585)+v(6912)*v(7030)+v(6933)*v(7039)
v(10454)=v(10596)+v(6910)*v(7030)+v(6932)*v(7039)
v(10452)=v(10606)+v(6909)*v(7030)+v(6931)*v(7039)
v(10451)=v(10614)+v(6908)*v(7030)+v(6930)*v(7039)
v(10450)=v(10621)+v(6907)*v(7030)+v(6929)*v(7039)
v(7069)=v(6460)*v(7021)+v(6462)*v(7030)+v(6464)*v(7039)
v(7057)=v(6461)*v(7021)+v(6463)*v(7030)+v(6465)*v(7039)
v(7045)=v(6408)*v(7021)+v(6410)*v(7030)+v(6411)*v(7039)
v(6496)=v(6489)-v(9971)
v(6495)=v(6490)-v(9972)
v(6486)=v(6489)+v(9971)
v(6485)=v(6480)-v(9973)
v(6477)=v(6490)+v(9972)
v(6476)=v(6480)+v(9973)
v(6474)=rio1(1,1)*v(6475)+rio1(2,1)*v(6476)+rio1(3,1)*v(6477)
v(6478)=rio1(1,2)*v(6475)+rio1(2,2)*v(6476)+rio1(3,2)*v(6477)
v(6479)=rio1(1,3)*v(6475)+rio1(2,3)*v(6476)+rio1(3,3)*v(6477)
v(6483)=rio1(2,1)*v(6484)+rio1(1,1)*v(6485)+rio1(3,1)*v(6486)
v(6487)=rio1(2,2)*v(6484)+rio1(1,2)*v(6485)+rio1(3,2)*v(6486)
v(6488)=rio1(2,3)*v(6484)+rio1(1,3)*v(6485)+rio1(3,3)*v(6486)
v(6493)=rio1(3,1)*v(6494)+rio1(1,1)*v(6495)+rio1(2,1)*v(6496)
v(10818)=v(6493)*v(8444)+v(6483)*v(8453)+v(6474)*v(8460)
v(10811)=v(6493)*v(8443)+v(6483)*v(8449)+v(6474)*v(8548)
v(10810)=v(6493)*v(8442)+v(6483)*v(8448)+v(6474)*v(8461)
v(10803)=v(6493)*v(8441)+v(6483)*v(8485)+v(6474)*v(8547)
v(10802)=v(6493)*v(8440)+v(6483)*v(8450)+v(6474)*v(8546)
v(10801)=v(6493)*v(8439)+v(6483)*v(8454)+v(6474)*v(8462)
v(10800)=v(6493)*v(8399)+v(6483)*v(8418)+v(6474)*v(8430)
v(10793)=v(6493)*v(8398)+v(6483)*v(8417)+v(6474)*v(8426)
v(10792)=v(6493)*v(8396)+v(6483)*v(8415)+v(6474)*v(8425)
v(10791)=v(6493)*v(8394)+v(6483)*v(8413)+v(6474)*v(8424)
v(10790)=v(6493)*v(8393)+v(6483)*v(8410)+v(6474)*v(8544)
v(10789)=v(6493)*v(8392)+v(6483)*v(8409)+v(6474)*v(8431)
v(10782)=v(6493)*v(8391)+v(6483)*v(8408)+v(6474)*v(8543)
v(10781)=v(6493)*v(8389)+v(6483)*v(8407)+v(6474)*v(8542)
v(10780)=v(6493)*v(8388)+v(6483)*v(8406)+v(6474)*v(8463)
v(10779)=v(6493)*v(8387)+v(6483)*v(8484)+v(6474)*v(8541)
v(10778)=v(6493)*v(8386)+v(6483)*v(8411)+v(6474)*v(8540)
v(10777)=v(6493)*v(8385)+v(6483)*v(8419)+v(6474)*v(8432)
v(10770)=v(6493)*v(8384)+v(6483)*v(8483)+v(6474)*v(8538)
v(10769)=v(6493)*v(8383)+v(6483)*v(8451)+v(6474)*v(8537)
v(10768)=v(6493)*v(8382)+v(6483)*v(8455)+v(6474)*v(8464)
v(10767)=v(6493)*v(8295)+v(6483)*v(8341)+v(6474)*v(8372)
v(10766)=v(6493)*v(8294)+v(6483)*v(8340)+v(6474)*v(8368)
v(10765)=v(6493)*v(8292)+v(6483)*v(8338)+v(6474)*v(8367)
v(10764)=v(6493)*v(8290)+v(6483)*v(8336)+v(6474)*v(8366)
v(10757)=v(6493)*v(8289)+v(6483)*v(8335)+v(6474)*v(8362)
v(10756)=v(6493)*v(8287)+v(6483)*v(8333)+v(6474)*v(8361)
v(10755)=v(6493)*v(8285)+v(6483)*v(8331)+v(6474)*v(8360)
v(10754)=v(6493)*v(8284)+v(6483)*v(8314)+v(6474)*v(8523)
v(10753)=v(6493)*v(8283)+v(6483)*v(8313)+v(6474)*v(8373)
v(10752)=v(6493)*v(8282)+v(6483)*v(8312)+v(6474)*v(8522)
v(10751)=v(6493)*v(8280)+v(6483)*v(8311)+v(6474)*v(8521)
v(10750)=v(6493)*v(8279)+v(6483)*v(8310)+v(6474)*v(8433)
v(10743)=v(6493)*v(8278)+v(6483)*v(8309)+v(6474)*v(8520)
v(10742)=v(6493)*v(8276)+v(6483)*v(8308)+v(6474)*v(8519)
v(10741)=v(6493)*v(8275)+v(6483)*v(8307)+v(6474)*v(8465)
v(10740)=v(6493)*v(8274)+v(6483)*v(8469)+v(6474)*v(8494)
v(10739)=v(6493)*v(8273)+v(6483)*v(8315)+v(6474)*v(8493)
v(10738)=v(6493)*v(8272)+v(6483)*v(8342)+v(6474)*v(8374)
v(10737)=v(6493)*v(8271)+v(6483)*v(8468)+v(6474)*v(8491)
v(10736)=v(6493)*v(8270)+v(6483)*v(8412)+v(6474)*v(8490)
v(10735)=v(6493)*v(8269)+v(6483)*v(8420)+v(6474)*v(8434)
v(10728)=v(6493)*v(8268)+v(6483)*v(8467)+v(6474)*v(8488)
v(10727)=v(6493)*v(8267)+v(6483)*v(8452)+v(6474)*v(8487)
v(10726)=v(6493)*v(8266)+v(6483)*v(8456)+v(6474)*v(8466)
v(10719)=v(6493)*v(9509)+v(6483)*v(9554)+v(6474)*v(9604)
v(10712)=v(6493)*v(9384)+v(6483)*v(9419)+v(6474)*v(9602)
v(10711)=v(6493)*v(9382)+v(6483)*v(9417)+v(6474)*v(9601)
v(10704)=v(6493)*v(9269)+v(6483)*v(9414)+v(6474)*v(9576)
v(10703)=v(6493)*v(9267)+v(6483)*v(9413)+v(6474)*v(9575)
v(10702)=v(6493)*v(9266)+v(6483)*v(9411)+v(6474)*v(9574)
v(10701)=v(6493)*v(9507)+v(6483)*v(9552)+v(6474)*v(9572)
v(10694)=v(6493)*v(9271)+v(6483)*v(9416)+v(6474)*v(9571)
v(10693)=v(6493)*v(9386)+v(6483)*v(9421)+v(6474)*v(9570)
v(10692)=v(6493)*v(9506)+v(6483)*v(9551)+v(6474)*v(9569)
v(10691)=v(6493)*v(9381)+v(6483)*v(9410)+v(6474)*v(9560)
v(10690)=v(6493)*v(9380)+v(6483)*v(9409)+v(6474)*v(9559)
v(10683)=v(6493)*v(9273)+v(6483)*v(9407)+v(6474)*v(9557)
v(10682)=v(6493)*v(9378)+v(6483)*v(9406)+v(6474)*v(9556)
v(10681)=v(6493)*v(9376)+v(6483)*v(9404)+v(6474)*v(9555)
v(10680)=v(6493)*v(9265)+v(6483)*v(9394)+v(6474)*v(9516)
v(10679)=v(6493)*v(9264)+v(6483)*v(9393)+v(6474)*v(9515)
v(10678)=v(6493)*v(9262)+v(6483)*v(9391)+v(6474)*v(9514)
v(10671)=v(6493)*v(9260)+v(6483)*v(9389)+v(6474)*v(9512)
v(10670)=v(6493)*v(9258)+v(6483)*v(9388)+v(6474)*v(9511)
v(10669)=v(6493)*v(9257)+v(6483)*v(9387)+v(6474)*v(9510)
v(10668)=v(6493)*v(9150)+v(6483)*v(9207)+v(6474)*v(9224)
v(10667)=v(6493)*v(9149)+v(6483)*v(9206)+v(6474)*v(9223)
v(10666)=v(6493)*v(9148)+v(6483)*v(9204)+v(6474)*v(9221)
v(10665)=v(6493)*v(9147)+v(6483)*v(9203)+v(6474)*v(9219)
v(10658)=v(6493)*v(9145)+v(6483)*v(9201)+v(6474)*v(9217)
v(10657)=v(6493)*v(9144)+v(6483)*v(9200)+v(6474)*v(9216)
v(10656)=v(6493)*v(9143)+v(6483)*v(9199)+v(6474)*v(9215)
v(10655)=v(6493)*v(9142)+v(6474)*v(9197)+v(6483)*v(9198)
v(10654)=v(6493)*v(9141)+v(6483)*v(9197)+v(6474)*v(9207)
v(10653)=v(6493)*v(9140)+v(6483)*v(9196)+v(6474)*v(9206)
v(10652)=v(6493)*v(9139)+v(6483)*v(9194)+v(6474)*v(9204)
v(10651)=v(6493)*v(9137)+v(6483)*v(9192)+v(6474)*v(9203)
v(10644)=v(6493)*v(9135)+v(6483)*v(9190)+v(6474)*v(9201)
v(10643)=v(6493)*v(9134)+v(6483)*v(9189)+v(6474)*v(9200)
v(10642)=v(6493)*v(9133)+v(6483)*v(9188)+v(6474)*v(9199)
v(10641)=v(6474)*v(9130)+v(6483)*v(9131)+v(6493)*v(9132)
v(10640)=v(6493)*v(9131)+v(6474)*v(9141)+v(6483)*v(9142)
v(10639)=v(6493)*v(9130)+v(6483)*v(9141)+v(6474)*v(9150)
v(10638)=v(6493)*v(9129)+v(6483)*v(9140)+v(6474)*v(9149)
v(10637)=v(6493)*v(9127)+v(6483)*v(9139)+v(6474)*v(9148)
v(10636)=v(6493)*v(9125)+v(6483)*v(9137)+v(6474)*v(9147)
v(10629)=v(6493)*v(9123)+v(6483)*v(9135)+v(6474)*v(9145)
v(10628)=v(6493)*v(9122)+v(6483)*v(9134)+v(6474)*v(9144)
v(10627)=v(6493)*v(9121)+v(6483)*v(9133)+v(6474)*v(9143)
v(10620)=v(6493)*v(9366)+v(6483)*v(9497)+v(6474)*v(9740)
v(10613)=v(6493)*v(9363)+v(6483)*v(9494)+v(6474)*v(9737)
v(10612)=v(6493)*v(9360)+v(6483)*v(9491)+v(6474)*v(9735)
v(10605)=v(6493)*v(9358)+v(6483)*v(9489)+v(6474)*v(9710)
v(10604)=v(6493)*v(9355)+v(6483)*v(9487)+v(6474)*v(9708)
v(10603)=v(6493)*v(9353)+v(6483)*v(9485)+v(6474)*v(9707)
v(10602)=v(6493)*v(9351)+v(6483)*v(9483)+v(6474)*v(9705)
v(10595)=v(6493)*v(9349)+v(6483)*v(9481)+v(6474)*v(9703)
v(10594)=v(6493)*v(9347)+v(6483)*v(9480)+v(6474)*v(9702)
v(10593)=v(6493)*v(9345)+v(6483)*v(9478)+v(6474)*v(9701)
v(10592)=v(6493)*v(9343)+v(6483)*v(9476)+v(6474)*v(9699)
v(10591)=v(6493)*v(9341)+v(6483)*v(9474)+v(6474)*v(9697)
v(10584)=v(6493)*v(9340)+v(6483)*v(9473)+v(6474)*v(9696)
v(10583)=v(6493)*v(9338)+v(6483)*v(9472)+v(6474)*v(9695)
v(10582)=v(6493)*v(9336)+v(6483)*v(9470)+v(6474)*v(9694)
v(10581)=v(6493)*v(9334)+v(6483)*v(9468)+v(6474)*v(9666)
v(10580)=v(6493)*v(9332)+v(6483)*v(9466)+v(6474)*v(9664)
v(10579)=v(6493)*v(9331)+v(6483)*v(9465)+v(6474)*v(9663)
v(10572)=v(6493)*v(9330)+v(6483)*v(9464)+v(6474)*v(9662)
v(10571)=v(6493)*v(9328)+v(6483)*v(9463)+v(6474)*v(9661)
v(10570)=v(6493)*v(9326)+v(6483)*v(9461)+v(6474)*v(9660)
v(10569)=v(6493)*v(9324)+v(6483)*v(9459)+v(6474)*v(9658)
v(10568)=v(6493)*v(9322)+v(6483)*v(9457)+v(6474)*v(9656)
v(10567)=v(6493)*v(9321)+v(6483)*v(9456)+v(6474)*v(9655)
v(10566)=v(6493)*v(9320)+v(6483)*v(9455)+v(6474)*v(9654)
v(10559)=v(6493)*v(9319)+v(6483)*v(9454)+v(6474)*v(9653)
v(10558)=v(6493)*v(9318)+v(6483)*v(9453)+v(6474)*v(9652)
v(10557)=v(6493)*v(9317)+v(6483)*v(9452)+v(6474)*v(9651)
v(10556)=v(6493)*v(9303)+v(6483)*v(9439)+v(6474)*v(9650)
v(10555)=v(6493)*v(9301)+v(6483)*v(9437)+v(6474)*v(9649)
v(10554)=v(6493)*v(9300)+v(6483)*v(9436)+v(6474)*v(9648)
v(10553)=v(6493)*v(9299)+v(6483)*v(9435)+v(6474)*v(9647)
v(10552)=v(6493)*v(9298)+v(6483)*v(9434)+v(6474)*v(9646)
v(10545)=v(6493)*v(9297)+v(6483)*v(9433)+v(6474)*v(9645)
v(10544)=v(6493)*v(9296)+v(6483)*v(9432)+v(6474)*v(9644)
v(10543)=v(6493)*v(9295)+v(6483)*v(9431)+v(6474)*v(9643)
v(10542)=v(6493)*v(9283)+v(6483)*v(9430)+v(6474)*v(9613)
v(10541)=v(6493)*v(9281)+v(6483)*v(9429)+v(6474)*v(9612)
v(10540)=v(6493)*v(9280)+v(6483)*v(9428)+v(6474)*v(9611)
v(10539)=v(6493)*v(9279)+v(6483)*v(9427)+v(6474)*v(9610)
v(10538)=v(6493)*v(9278)+v(6483)*v(9426)+v(6474)*v(9609)
v(10537)=v(6493)*v(9277)+v(6483)*v(9425)+v(6474)*v(9608)
v(10530)=v(6493)*v(9276)+v(6483)*v(9424)+v(6474)*v(9607)
v(10529)=v(6493)*v(9275)+v(6483)*v(9423)+v(6474)*v(9606)
v(10528)=v(6493)*v(9274)+v(6483)*v(9422)+v(6474)*v(9605)
v(7077)=v(6474)*v(6894)+v(6483)*v(6918)+v(6493)*v(6940)
v(7076)=v(6474)*v(6893)+v(6483)*v(6917)+v(6493)*v(6939)
v(7075)=v(6474)*v(6892)+v(6483)*v(6916)+v(6493)*v(6937)
v(7074)=v(6474)*v(6891)+v(6483)*v(6914)+v(6493)*v(6935)
v(7073)=v(6474)*v(6889)+v(6483)*v(6912)+v(6493)*v(6933)
v(7072)=v(6474)*v(6887)+v(6483)*v(6910)+v(6493)*v(6932)
v(7068)=v(6474)*v(6885)+v(6483)*v(6909)+v(6493)*v(6931)
v(7067)=v(6474)*v(6884)+v(6483)*v(6908)+v(6493)*v(6930)
v(7066)=v(6474)*v(6883)+v(6483)*v(6907)+v(6493)*v(6929)
v(7065)=v(6474)*v(6906)+v(6483)*v(6928)+v(6493)*v(6948)
v(7064)=v(6474)*v(6905)+v(6483)*v(6927)+v(6493)*v(6928)
v(7063)=v(6474)*v(6904)+v(6483)*v(6905)+v(6493)*v(6906)
v(7062)=v(6474)*v(6903)+v(6483)*v(6926)+v(6493)*v(6947)
v(7061)=v(6474)*v(6901)+v(6483)*v(6924)+v(6493)*v(6945)
v(7060)=v(6474)*v(6899)+v(6483)*v(6922)+v(6493)*v(6944)
v(7056)=v(6474)*v(6897)+v(6483)*v(6921)+v(6493)*v(6943)
v(7055)=v(6474)*v(6896)+v(6483)*v(6920)+v(6493)*v(6942)
v(7054)=v(6474)*v(6895)+v(6483)*v(6919)+v(6493)*v(6941)
v(7053)=v(6474)*v(6745)+v(6483)*v(6754)+v(6493)*v(6763)
v(7052)=v(6474)*v(6744)+v(6483)*v(6753)+v(6493)*v(6762)
v(7051)=v(6474)*v(6743)+v(6483)*v(6752)+v(6493)*v(6761)
v(7050)=v(6474)*v(6742)+v(6483)*v(6751)+v(6493)*v(6760)
v(7049)=v(6474)*v(6741)+v(6483)*v(6750)+v(6493)*v(6759)
v(7048)=v(6474)*v(6740)+v(6483)*v(6749)+v(6493)*v(6758)
v(7044)=v(6474)*v(6739)+v(6483)*v(6748)+v(6493)*v(6757)
v(7043)=v(6474)*v(6738)+v(6483)*v(6747)+v(6493)*v(6756)
v(7042)=v(6474)*v(6737)+v(6483)*v(6746)+v(6493)*v(6755)
v(6639)=v(6408)*v(6474)+v(6410)*v(6483)+v(6411)*v(6493)
v(6633)=v(6461)*v(6474)+v(6463)*v(6483)+v(6465)*v(6493)
v(6627)=v(6460)*v(6474)+v(6462)*v(6483)+v(6464)*v(6493)
v(6497)=rio1(3,2)*v(6494)+rio1(1,2)*v(6495)+rio1(2,2)*v(6496)
v(11124)=v(6497)*v(8444)+v(6487)*v(8453)+v(6478)*v(8460)
v(11117)=v(6497)*v(8443)+v(6487)*v(8449)+v(6478)*v(8548)
v(11116)=v(6497)*v(8442)+v(6487)*v(8448)+v(6478)*v(8461)
v(11109)=v(6497)*v(8441)+v(6487)*v(8485)+v(6478)*v(8547)
v(11108)=v(6497)*v(8440)+v(6487)*v(8450)+v(6478)*v(8546)
v(11107)=v(6497)*v(8439)+v(6487)*v(8454)+v(6478)*v(8462)
v(11106)=v(6497)*v(8399)+v(6487)*v(8418)+v(6478)*v(8430)
v(11099)=v(6497)*v(8398)+v(6487)*v(8417)+v(6478)*v(8426)
v(11098)=v(6497)*v(8396)+v(6487)*v(8415)+v(6478)*v(8425)
v(11097)=v(6497)*v(8394)+v(6487)*v(8413)+v(6478)*v(8424)
v(11096)=v(6497)*v(8393)+v(6487)*v(8410)+v(6478)*v(8544)
v(11095)=v(6497)*v(8392)+v(6487)*v(8409)+v(6478)*v(8431)
v(11088)=v(6497)*v(8391)+v(6487)*v(8408)+v(6478)*v(8543)
v(11087)=v(6497)*v(8389)+v(6487)*v(8407)+v(6478)*v(8542)
v(11086)=v(6497)*v(8388)+v(6487)*v(8406)+v(6478)*v(8463)
v(11085)=v(6497)*v(8387)+v(6487)*v(8484)+v(6478)*v(8541)
v(11084)=v(6497)*v(8386)+v(6487)*v(8411)+v(6478)*v(8540)
v(11083)=v(6497)*v(8385)+v(6487)*v(8419)+v(6478)*v(8432)
v(11076)=v(6497)*v(8384)+v(6487)*v(8483)+v(6478)*v(8538)
v(11075)=v(6497)*v(8383)+v(6487)*v(8451)+v(6478)*v(8537)
v(11074)=v(6497)*v(8382)+v(6487)*v(8455)+v(6478)*v(8464)
v(11073)=v(6497)*v(8295)+v(6487)*v(8341)+v(6478)*v(8372)
v(11072)=v(6497)*v(8294)+v(6487)*v(8340)+v(6478)*v(8368)
v(11071)=v(6497)*v(8292)+v(6487)*v(8338)+v(6478)*v(8367)
v(11070)=v(6497)*v(8290)+v(6487)*v(8336)+v(6478)*v(8366)
v(11063)=v(6497)*v(8289)+v(6487)*v(8335)+v(6478)*v(8362)
v(11062)=v(6497)*v(8287)+v(6487)*v(8333)+v(6478)*v(8361)
v(11061)=v(6497)*v(8285)+v(6487)*v(8331)+v(6478)*v(8360)
v(11060)=v(6497)*v(8284)+v(6487)*v(8314)+v(6478)*v(8523)
v(11059)=v(6497)*v(8283)+v(6487)*v(8313)+v(6478)*v(8373)
v(11058)=v(6497)*v(8282)+v(6487)*v(8312)+v(6478)*v(8522)
v(11057)=v(6497)*v(8280)+v(6487)*v(8311)+v(6478)*v(8521)
v(11056)=v(6497)*v(8279)+v(6487)*v(8310)+v(6478)*v(8433)
v(11049)=v(6497)*v(8278)+v(6487)*v(8309)+v(6478)*v(8520)
v(11048)=v(6497)*v(8276)+v(6487)*v(8308)+v(6478)*v(8519)
v(11047)=v(6497)*v(8275)+v(6487)*v(8307)+v(6478)*v(8465)
v(11046)=v(6497)*v(8274)+v(6487)*v(8469)+v(6478)*v(8494)
v(11045)=v(6497)*v(8273)+v(6487)*v(8315)+v(6478)*v(8493)
v(11044)=v(6497)*v(8272)+v(6487)*v(8342)+v(6478)*v(8374)
v(11043)=v(6497)*v(8271)+v(6487)*v(8468)+v(6478)*v(8491)
v(11042)=v(6497)*v(8270)+v(6487)*v(8412)+v(6478)*v(8490)
v(11041)=v(6497)*v(8269)+v(6487)*v(8420)+v(6478)*v(8434)
v(11034)=v(6497)*v(8268)+v(6487)*v(8467)+v(6478)*v(8488)
v(11033)=v(6497)*v(8267)+v(6487)*v(8452)+v(6478)*v(8487)
v(11032)=v(6497)*v(8266)+v(6487)*v(8456)+v(6478)*v(8466)
v(11025)=v(6497)*v(9509)+v(6487)*v(9554)+v(6478)*v(9604)
v(11018)=v(6497)*v(9384)+v(6487)*v(9419)+v(6478)*v(9602)
v(11017)=v(6497)*v(9382)+v(6487)*v(9417)+v(6478)*v(9601)
v(11010)=v(6497)*v(9269)+v(6487)*v(9414)+v(6478)*v(9576)
v(11009)=v(6497)*v(9267)+v(6487)*v(9413)+v(6478)*v(9575)
v(11008)=v(6497)*v(9266)+v(6487)*v(9411)+v(6478)*v(9574)
v(11007)=v(6497)*v(9507)+v(6487)*v(9552)+v(6478)*v(9572)
v(11000)=v(6497)*v(9271)+v(6487)*v(9416)+v(6478)*v(9571)
v(10999)=v(6497)*v(9386)+v(6487)*v(9421)+v(6478)*v(9570)
v(10998)=v(6497)*v(9506)+v(6487)*v(9551)+v(6478)*v(9569)
v(10997)=v(6497)*v(9381)+v(6487)*v(9410)+v(6478)*v(9560)
v(10996)=v(6497)*v(9380)+v(6487)*v(9409)+v(6478)*v(9559)
v(10989)=v(6497)*v(9273)+v(6487)*v(9407)+v(6478)*v(9557)
v(10988)=v(6497)*v(9378)+v(6487)*v(9406)+v(6478)*v(9556)
v(10987)=v(6497)*v(9376)+v(6487)*v(9404)+v(6478)*v(9555)
v(10986)=v(6497)*v(9265)+v(6487)*v(9394)+v(6478)*v(9516)
v(10985)=v(6497)*v(9264)+v(6487)*v(9393)+v(6478)*v(9515)
v(10984)=v(6497)*v(9262)+v(6487)*v(9391)+v(6478)*v(9514)
v(10977)=v(6497)*v(9260)+v(6487)*v(9389)+v(6478)*v(9512)
v(10976)=v(6497)*v(9258)+v(6487)*v(9388)+v(6478)*v(9511)
v(10975)=v(6497)*v(9257)+v(6487)*v(9387)+v(6478)*v(9510)
v(10974)=v(6497)*v(9150)+v(6487)*v(9207)+v(6478)*v(9224)
v(10973)=v(6497)*v(9149)+v(6487)*v(9206)+v(6478)*v(9223)
v(10972)=v(6497)*v(9148)+v(6487)*v(9204)+v(6478)*v(9221)
v(10971)=v(6497)*v(9147)+v(6487)*v(9203)+v(6478)*v(9219)
v(10964)=v(6497)*v(9145)+v(6487)*v(9201)+v(6478)*v(9217)
v(10963)=v(6497)*v(9144)+v(6487)*v(9200)+v(6478)*v(9216)
v(10962)=v(6497)*v(9143)+v(6487)*v(9199)+v(6478)*v(9215)
v(10961)=v(6497)*v(9142)+v(6478)*v(9197)+v(6487)*v(9198)
v(10960)=v(6497)*v(9141)+v(6487)*v(9197)+v(6478)*v(9207)
v(10959)=v(6497)*v(9140)+v(6487)*v(9196)+v(6478)*v(9206)
v(10958)=v(6497)*v(9139)+v(6487)*v(9194)+v(6478)*v(9204)
v(10957)=v(6497)*v(9137)+v(6487)*v(9192)+v(6478)*v(9203)
v(10950)=v(6497)*v(9135)+v(6487)*v(9190)+v(6478)*v(9201)
v(10949)=v(6497)*v(9134)+v(6487)*v(9189)+v(6478)*v(9200)
v(10948)=v(6497)*v(9133)+v(6487)*v(9188)+v(6478)*v(9199)
v(10947)=v(6478)*v(9130)+v(6487)*v(9131)+v(6497)*v(9132)
v(10946)=v(6497)*v(9131)+v(6478)*v(9141)+v(6487)*v(9142)
v(10945)=v(6497)*v(9130)+v(6487)*v(9141)+v(6478)*v(9150)
v(10944)=v(6497)*v(9129)+v(6487)*v(9140)+v(6478)*v(9149)
v(10943)=v(6497)*v(9127)+v(6487)*v(9139)+v(6478)*v(9148)
v(10942)=v(6497)*v(9125)+v(6487)*v(9137)+v(6478)*v(9147)
v(10935)=v(6497)*v(9123)+v(6487)*v(9135)+v(6478)*v(9145)
v(10934)=v(6497)*v(9122)+v(6487)*v(9134)+v(6478)*v(9144)
v(10933)=v(6497)*v(9121)+v(6487)*v(9133)+v(6478)*v(9143)
v(10926)=v(6497)*v(9366)+v(6487)*v(9497)+v(6478)*v(9740)
v(10919)=v(6497)*v(9363)+v(6487)*v(9494)+v(6478)*v(9737)
v(10918)=v(6497)*v(9360)+v(6487)*v(9491)+v(6478)*v(9735)
v(10911)=v(6497)*v(9358)+v(6487)*v(9489)+v(6478)*v(9710)
v(10910)=v(6497)*v(9355)+v(6487)*v(9487)+v(6478)*v(9708)
v(10909)=v(6497)*v(9353)+v(6487)*v(9485)+v(6478)*v(9707)
v(10908)=v(6497)*v(9351)+v(6487)*v(9483)+v(6478)*v(9705)
v(10901)=v(6497)*v(9349)+v(6487)*v(9481)+v(6478)*v(9703)
v(10900)=v(6497)*v(9347)+v(6487)*v(9480)+v(6478)*v(9702)
v(10899)=v(6497)*v(9345)+v(6487)*v(9478)+v(6478)*v(9701)
v(10898)=v(6497)*v(9343)+v(6487)*v(9476)+v(6478)*v(9699)
v(10897)=v(6497)*v(9341)+v(6487)*v(9474)+v(6478)*v(9697)
v(10890)=v(6497)*v(9340)+v(6487)*v(9473)+v(6478)*v(9696)
v(10889)=v(6497)*v(9338)+v(6487)*v(9472)+v(6478)*v(9695)
v(10888)=v(6497)*v(9336)+v(6487)*v(9470)+v(6478)*v(9694)
v(10887)=v(6497)*v(9334)+v(6487)*v(9468)+v(6478)*v(9666)
v(10886)=v(6497)*v(9332)+v(6487)*v(9466)+v(6478)*v(9664)
v(10885)=v(6497)*v(9331)+v(6487)*v(9465)+v(6478)*v(9663)
v(10878)=v(6497)*v(9330)+v(6487)*v(9464)+v(6478)*v(9662)
v(10877)=v(6497)*v(9328)+v(6487)*v(9463)+v(6478)*v(9661)
v(10876)=v(6497)*v(9326)+v(6487)*v(9461)+v(6478)*v(9660)
v(10875)=v(6497)*v(9324)+v(6487)*v(9459)+v(6478)*v(9658)
v(10874)=v(6497)*v(9322)+v(6487)*v(9457)+v(6478)*v(9656)
v(10873)=v(6497)*v(9321)+v(6487)*v(9456)+v(6478)*v(9655)
v(10872)=v(6497)*v(9320)+v(6487)*v(9455)+v(6478)*v(9654)
v(10865)=v(6497)*v(9319)+v(6487)*v(9454)+v(6478)*v(9653)
v(10864)=v(6497)*v(9318)+v(6487)*v(9453)+v(6478)*v(9652)
v(10863)=v(6497)*v(9317)+v(6487)*v(9452)+v(6478)*v(9651)
v(10862)=v(6497)*v(9303)+v(6487)*v(9439)+v(6478)*v(9650)
v(10861)=v(6497)*v(9301)+v(6487)*v(9437)+v(6478)*v(9649)
v(10860)=v(6497)*v(9300)+v(6487)*v(9436)+v(6478)*v(9648)
v(10859)=v(6497)*v(9299)+v(6487)*v(9435)+v(6478)*v(9647)
v(10858)=v(6497)*v(9298)+v(6487)*v(9434)+v(6478)*v(9646)
v(10851)=v(6497)*v(9297)+v(6487)*v(9433)+v(6478)*v(9645)
v(10850)=v(6497)*v(9296)+v(6487)*v(9432)+v(6478)*v(9644)
v(10849)=v(6497)*v(9295)+v(6487)*v(9431)+v(6478)*v(9643)
v(10848)=v(6497)*v(9283)+v(6487)*v(9430)+v(6478)*v(9613)
v(10847)=v(6497)*v(9281)+v(6487)*v(9429)+v(6478)*v(9612)
v(10846)=v(6497)*v(9280)+v(6487)*v(9428)+v(6478)*v(9611)
v(10845)=v(6497)*v(9279)+v(6487)*v(9427)+v(6478)*v(9610)
v(10844)=v(6497)*v(9278)+v(6487)*v(9426)+v(6478)*v(9609)
v(10843)=v(6497)*v(9277)+v(6487)*v(9425)+v(6478)*v(9608)
v(10836)=v(6497)*v(9276)+v(6487)*v(9424)+v(6478)*v(9607)
v(10835)=v(6497)*v(9275)+v(6487)*v(9423)+v(6478)*v(9606)
v(10834)=v(6497)*v(9274)+v(6487)*v(9422)+v(6478)*v(9605)
v(7116)=v(6478)*v(6894)+v(6487)*v(6918)+v(6497)*v(6940)
v(7115)=v(6478)*v(6893)+v(6487)*v(6917)+v(6497)*v(6939)
v(7114)=v(6478)*v(6892)+v(6487)*v(6916)+v(6497)*v(6937)
v(7113)=v(6478)*v(6891)+v(6487)*v(6914)+v(6497)*v(6935)
v(7112)=v(6478)*v(6889)+v(6487)*v(6912)+v(6497)*v(6933)
v(7111)=v(6478)*v(6887)+v(6487)*v(6910)+v(6497)*v(6932)
v(7107)=v(6478)*v(6885)+v(6487)*v(6909)+v(6497)*v(6931)
v(7106)=v(6478)*v(6884)+v(6487)*v(6908)+v(6497)*v(6930)
v(7105)=v(6478)*v(6883)+v(6487)*v(6907)+v(6497)*v(6929)
v(7104)=v(6478)*v(6906)+v(6487)*v(6928)+v(6497)*v(6948)
v(7103)=v(6478)*v(6905)+v(6487)*v(6927)+v(6497)*v(6928)
v(7102)=v(6478)*v(6904)+v(6487)*v(6905)+v(6497)*v(6906)
v(7101)=v(6478)*v(6903)+v(6487)*v(6926)+v(6497)*v(6947)
v(7100)=v(6478)*v(6901)+v(6487)*v(6924)+v(6497)*v(6945)
v(7099)=v(6478)*v(6899)+v(6487)*v(6922)+v(6497)*v(6944)
v(7095)=v(6478)*v(6897)+v(6487)*v(6921)+v(6497)*v(6943)
v(7094)=v(6478)*v(6896)+v(6487)*v(6920)+v(6497)*v(6942)
v(7093)=v(6478)*v(6895)+v(6487)*v(6919)+v(6497)*v(6941)
v(7092)=v(6478)*v(6745)+v(6487)*v(6754)+v(6497)*v(6763)
v(7091)=v(6478)*v(6744)+v(6487)*v(6753)+v(6497)*v(6762)
v(7090)=v(6478)*v(6743)+v(6487)*v(6752)+v(6497)*v(6761)
v(7089)=v(6478)*v(6742)+v(6487)*v(6751)+v(6497)*v(6760)
v(7088)=v(6478)*v(6741)+v(6487)*v(6750)+v(6497)*v(6759)
v(7087)=v(6478)*v(6740)+v(6487)*v(6749)+v(6497)*v(6758)
v(7083)=v(6478)*v(6739)+v(6487)*v(6748)+v(6497)*v(6757)
v(7082)=v(6478)*v(6738)+v(6487)*v(6747)+v(6497)*v(6756)
v(7081)=v(6478)*v(6737)+v(6487)*v(6746)+v(6497)*v(6755)
v(6640)=v(6408)*v(6478)+v(6410)*v(6487)+v(6411)*v(6497)
v(6634)=v(6461)*v(6478)+v(6463)*v(6487)+v(6465)*v(6497)
v(6628)=v(6460)*v(6478)+v(6462)*v(6487)+v(6464)*v(6497)
v(6498)=rio1(3,3)*v(6494)+rio1(1,3)*v(6495)+rio1(2,3)*v(6496)
v(11430)=v(6498)*v(8444)+v(6488)*v(8453)+v(6479)*v(8460)
v(11423)=v(6498)*v(8443)+v(6488)*v(8449)+v(6479)*v(8548)
v(11422)=v(6498)*v(8442)+v(6488)*v(8448)+v(6479)*v(8461)
v(11415)=v(6498)*v(8441)+v(6488)*v(8485)+v(6479)*v(8547)
v(11414)=v(6498)*v(8440)+v(6488)*v(8450)+v(6479)*v(8546)
v(11413)=v(6498)*v(8439)+v(6488)*v(8454)+v(6479)*v(8462)
v(11412)=v(6498)*v(8399)+v(6488)*v(8418)+v(6479)*v(8430)
v(11405)=v(6498)*v(8398)+v(6488)*v(8417)+v(6479)*v(8426)
v(11404)=v(6498)*v(8396)+v(6488)*v(8415)+v(6479)*v(8425)
v(11403)=v(6498)*v(8394)+v(6488)*v(8413)+v(6479)*v(8424)
v(11402)=v(6498)*v(8393)+v(6488)*v(8410)+v(6479)*v(8544)
v(11401)=v(6498)*v(8392)+v(6488)*v(8409)+v(6479)*v(8431)
v(11394)=v(6498)*v(8391)+v(6488)*v(8408)+v(6479)*v(8543)
v(11393)=v(6498)*v(8389)+v(6488)*v(8407)+v(6479)*v(8542)
v(11392)=v(6498)*v(8388)+v(6488)*v(8406)+v(6479)*v(8463)
v(11391)=v(6498)*v(8387)+v(6488)*v(8484)+v(6479)*v(8541)
v(11390)=v(6498)*v(8386)+v(6488)*v(8411)+v(6479)*v(8540)
v(11389)=v(6498)*v(8385)+v(6488)*v(8419)+v(6479)*v(8432)
v(11382)=v(6498)*v(8384)+v(6488)*v(8483)+v(6479)*v(8538)
v(11381)=v(6498)*v(8383)+v(6488)*v(8451)+v(6479)*v(8537)
v(11380)=v(6498)*v(8382)+v(6488)*v(8455)+v(6479)*v(8464)
v(11379)=v(6498)*v(8295)+v(6488)*v(8341)+v(6479)*v(8372)
v(11378)=v(6498)*v(8294)+v(6488)*v(8340)+v(6479)*v(8368)
v(11377)=v(6498)*v(8292)+v(6488)*v(8338)+v(6479)*v(8367)
v(11376)=v(6498)*v(8290)+v(6488)*v(8336)+v(6479)*v(8366)
v(11369)=v(6498)*v(8289)+v(6488)*v(8335)+v(6479)*v(8362)
v(11368)=v(6498)*v(8287)+v(6488)*v(8333)+v(6479)*v(8361)
v(11367)=v(6498)*v(8285)+v(6488)*v(8331)+v(6479)*v(8360)
v(11366)=v(6498)*v(8284)+v(6488)*v(8314)+v(6479)*v(8523)
v(11365)=v(6498)*v(8283)+v(6488)*v(8313)+v(6479)*v(8373)
v(11364)=v(6498)*v(8282)+v(6488)*v(8312)+v(6479)*v(8522)
v(11363)=v(6498)*v(8280)+v(6488)*v(8311)+v(6479)*v(8521)
v(11362)=v(6498)*v(8279)+v(6488)*v(8310)+v(6479)*v(8433)
v(11355)=v(6498)*v(8278)+v(6488)*v(8309)+v(6479)*v(8520)
v(11354)=v(6498)*v(8276)+v(6488)*v(8308)+v(6479)*v(8519)
v(11353)=v(6498)*v(8275)+v(6488)*v(8307)+v(6479)*v(8465)
v(11352)=v(6498)*v(8274)+v(6488)*v(8469)+v(6479)*v(8494)
v(11351)=v(6498)*v(8273)+v(6488)*v(8315)+v(6479)*v(8493)
v(11350)=v(6498)*v(8272)+v(6488)*v(8342)+v(6479)*v(8374)
v(11349)=v(6498)*v(8271)+v(6488)*v(8468)+v(6479)*v(8491)
v(11348)=v(6498)*v(8270)+v(6488)*v(8412)+v(6479)*v(8490)
v(11347)=v(6498)*v(8269)+v(6488)*v(8420)+v(6479)*v(8434)
v(11340)=v(6498)*v(8268)+v(6488)*v(8467)+v(6479)*v(8488)
v(11339)=v(6498)*v(8267)+v(6488)*v(8452)+v(6479)*v(8487)
v(11338)=v(6498)*v(8266)+v(6488)*v(8456)+v(6479)*v(8466)
v(11331)=v(6498)*v(9509)+v(6488)*v(9554)+v(6479)*v(9604)
v(11324)=v(6498)*v(9384)+v(6488)*v(9419)+v(6479)*v(9602)
v(11323)=v(6498)*v(9382)+v(6488)*v(9417)+v(6479)*v(9601)
v(11316)=v(6498)*v(9269)+v(6488)*v(9414)+v(6479)*v(9576)
v(11315)=v(6498)*v(9267)+v(6488)*v(9413)+v(6479)*v(9575)
v(11314)=v(6498)*v(9266)+v(6488)*v(9411)+v(6479)*v(9574)
v(11313)=v(6498)*v(9507)+v(6488)*v(9552)+v(6479)*v(9572)
v(11306)=v(6498)*v(9271)+v(6488)*v(9416)+v(6479)*v(9571)
v(11305)=v(6498)*v(9386)+v(6488)*v(9421)+v(6479)*v(9570)
v(11304)=v(6498)*v(9506)+v(6488)*v(9551)+v(6479)*v(9569)
v(11303)=v(6498)*v(9381)+v(6488)*v(9410)+v(6479)*v(9560)
v(11302)=v(6498)*v(9380)+v(6488)*v(9409)+v(6479)*v(9559)
v(11295)=v(6498)*v(9273)+v(6488)*v(9407)+v(6479)*v(9557)
v(11294)=v(6498)*v(9378)+v(6488)*v(9406)+v(6479)*v(9556)
v(11293)=v(6498)*v(9376)+v(6488)*v(9404)+v(6479)*v(9555)
v(11292)=v(6498)*v(9265)+v(6488)*v(9394)+v(6479)*v(9516)
v(11291)=v(6498)*v(9264)+v(6488)*v(9393)+v(6479)*v(9515)
v(11290)=v(6498)*v(9262)+v(6488)*v(9391)+v(6479)*v(9514)
v(11283)=v(6498)*v(9260)+v(6488)*v(9389)+v(6479)*v(9512)
v(11282)=v(6498)*v(9258)+v(6488)*v(9388)+v(6479)*v(9511)
v(11281)=v(6498)*v(9257)+v(6488)*v(9387)+v(6479)*v(9510)
v(11280)=v(6498)*v(9150)+v(6488)*v(9207)+v(6479)*v(9224)
v(11279)=v(6498)*v(9149)+v(6488)*v(9206)+v(6479)*v(9223)
v(11278)=v(6498)*v(9148)+v(6488)*v(9204)+v(6479)*v(9221)
v(11277)=v(6498)*v(9147)+v(6488)*v(9203)+v(6479)*v(9219)
v(11270)=v(6498)*v(9145)+v(6488)*v(9201)+v(6479)*v(9217)
v(11269)=v(6498)*v(9144)+v(6488)*v(9200)+v(6479)*v(9216)
v(11268)=v(6498)*v(9143)+v(6488)*v(9199)+v(6479)*v(9215)
v(11267)=v(6498)*v(9142)+v(6479)*v(9197)+v(6488)*v(9198)
v(11266)=v(6498)*v(9141)+v(6488)*v(9197)+v(6479)*v(9207)
v(11265)=v(6498)*v(9140)+v(6488)*v(9196)+v(6479)*v(9206)
v(11264)=v(6498)*v(9139)+v(6488)*v(9194)+v(6479)*v(9204)
v(11263)=v(6498)*v(9137)+v(6488)*v(9192)+v(6479)*v(9203)
v(11256)=v(6498)*v(9135)+v(6488)*v(9190)+v(6479)*v(9201)
v(11255)=v(6498)*v(9134)+v(6488)*v(9189)+v(6479)*v(9200)
v(11254)=v(6498)*v(9133)+v(6488)*v(9188)+v(6479)*v(9199)
v(11253)=v(6479)*v(9130)+v(6488)*v(9131)+v(6498)*v(9132)
v(11252)=v(6498)*v(9131)+v(6479)*v(9141)+v(6488)*v(9142)
v(11251)=v(6498)*v(9130)+v(6488)*v(9141)+v(6479)*v(9150)
v(11250)=v(6498)*v(9129)+v(6488)*v(9140)+v(6479)*v(9149)
v(11249)=v(6498)*v(9127)+v(6488)*v(9139)+v(6479)*v(9148)
v(11248)=v(6498)*v(9125)+v(6488)*v(9137)+v(6479)*v(9147)
v(11241)=v(6498)*v(9123)+v(6488)*v(9135)+v(6479)*v(9145)
v(11240)=v(6498)*v(9122)+v(6488)*v(9134)+v(6479)*v(9144)
v(11239)=v(6498)*v(9121)+v(6488)*v(9133)+v(6479)*v(9143)
v(11232)=v(6498)*v(9366)+v(6488)*v(9497)+v(6479)*v(9740)
v(11225)=v(6498)*v(9363)+v(6488)*v(9494)+v(6479)*v(9737)
v(11224)=v(6498)*v(9360)+v(6488)*v(9491)+v(6479)*v(9735)
v(11217)=v(6498)*v(9358)+v(6488)*v(9489)+v(6479)*v(9710)
v(11216)=v(6498)*v(9355)+v(6488)*v(9487)+v(6479)*v(9708)
v(11215)=v(6498)*v(9353)+v(6488)*v(9485)+v(6479)*v(9707)
v(11214)=v(6498)*v(9351)+v(6488)*v(9483)+v(6479)*v(9705)
v(11207)=v(6498)*v(9349)+v(6488)*v(9481)+v(6479)*v(9703)
v(11206)=v(6498)*v(9347)+v(6488)*v(9480)+v(6479)*v(9702)
v(11205)=v(6498)*v(9345)+v(6488)*v(9478)+v(6479)*v(9701)
v(11204)=v(6498)*v(9343)+v(6488)*v(9476)+v(6479)*v(9699)
v(11203)=v(6498)*v(9341)+v(6488)*v(9474)+v(6479)*v(9697)
v(11196)=v(6498)*v(9340)+v(6488)*v(9473)+v(6479)*v(9696)
v(11195)=v(6498)*v(9338)+v(6488)*v(9472)+v(6479)*v(9695)
v(11194)=v(6498)*v(9336)+v(6488)*v(9470)+v(6479)*v(9694)
v(11193)=v(6498)*v(9334)+v(6488)*v(9468)+v(6479)*v(9666)
v(11192)=v(6498)*v(9332)+v(6488)*v(9466)+v(6479)*v(9664)
v(11191)=v(6498)*v(9331)+v(6488)*v(9465)+v(6479)*v(9663)
v(11184)=v(6498)*v(9330)+v(6488)*v(9464)+v(6479)*v(9662)
v(11183)=v(6498)*v(9328)+v(6488)*v(9463)+v(6479)*v(9661)
v(11182)=v(6498)*v(9326)+v(6488)*v(9461)+v(6479)*v(9660)
v(11181)=v(6498)*v(9324)+v(6488)*v(9459)+v(6479)*v(9658)
v(11180)=v(6498)*v(9322)+v(6488)*v(9457)+v(6479)*v(9656)
v(11179)=v(6498)*v(9321)+v(6488)*v(9456)+v(6479)*v(9655)
v(11178)=v(6498)*v(9320)+v(6488)*v(9455)+v(6479)*v(9654)
v(11171)=v(6498)*v(9319)+v(6488)*v(9454)+v(6479)*v(9653)
v(11170)=v(6498)*v(9318)+v(6488)*v(9453)+v(6479)*v(9652)
v(11169)=v(6498)*v(9317)+v(6488)*v(9452)+v(6479)*v(9651)
v(11168)=v(6498)*v(9303)+v(6488)*v(9439)+v(6479)*v(9650)
v(11167)=v(6498)*v(9301)+v(6488)*v(9437)+v(6479)*v(9649)
v(11166)=v(6498)*v(9300)+v(6488)*v(9436)+v(6479)*v(9648)
v(11165)=v(6498)*v(9299)+v(6488)*v(9435)+v(6479)*v(9647)
v(11164)=v(6498)*v(9298)+v(6488)*v(9434)+v(6479)*v(9646)
v(11157)=v(6498)*v(9297)+v(6488)*v(9433)+v(6479)*v(9645)
v(11156)=v(6498)*v(9296)+v(6488)*v(9432)+v(6479)*v(9644)
v(11155)=v(6498)*v(9295)+v(6488)*v(9431)+v(6479)*v(9643)
v(11154)=v(6498)*v(9283)+v(6488)*v(9430)+v(6479)*v(9613)
v(11153)=v(6498)*v(9281)+v(6488)*v(9429)+v(6479)*v(9612)
v(11152)=v(6498)*v(9280)+v(6488)*v(9428)+v(6479)*v(9611)
v(11151)=v(6498)*v(9279)+v(6488)*v(9427)+v(6479)*v(9610)
v(11150)=v(6498)*v(9278)+v(6488)*v(9426)+v(6479)*v(9609)
v(11149)=v(6498)*v(9277)+v(6488)*v(9425)+v(6479)*v(9608)
v(11142)=v(6498)*v(9276)+v(6488)*v(9424)+v(6479)*v(9607)
v(11141)=v(6498)*v(9275)+v(6488)*v(9423)+v(6479)*v(9606)
v(11140)=v(6498)*v(9274)+v(6488)*v(9422)+v(6479)*v(9605)
v(7155)=v(6479)*v(6894)+v(6488)*v(6918)+v(6498)*v(6940)
v(7154)=v(6479)*v(6893)+v(6488)*v(6917)+v(6498)*v(6939)
v(7153)=v(6479)*v(6892)+v(6488)*v(6916)+v(6498)*v(6937)
v(7152)=v(6479)*v(6891)+v(6488)*v(6914)+v(6498)*v(6935)
v(7151)=v(6479)*v(6889)+v(6488)*v(6912)+v(6498)*v(6933)
v(7150)=v(6479)*v(6887)+v(6488)*v(6910)+v(6498)*v(6932)
v(7146)=v(6479)*v(6885)+v(6488)*v(6909)+v(6498)*v(6931)
v(7145)=v(6479)*v(6884)+v(6488)*v(6908)+v(6498)*v(6930)
v(7144)=v(6479)*v(6883)+v(6488)*v(6907)+v(6498)*v(6929)
v(7143)=v(6479)*v(6906)+v(6488)*v(6928)+v(6498)*v(6948)
v(7142)=v(6479)*v(6905)+v(6488)*v(6927)+v(6498)*v(6928)
v(7141)=v(6479)*v(6904)+v(6488)*v(6905)+v(6498)*v(6906)
v(7140)=v(6479)*v(6903)+v(6488)*v(6926)+v(6498)*v(6947)
v(7139)=v(6479)*v(6901)+v(6488)*v(6924)+v(6498)*v(6945)
v(7138)=v(6479)*v(6899)+v(6488)*v(6922)+v(6498)*v(6944)
v(7134)=v(6479)*v(6897)+v(6488)*v(6921)+v(6498)*v(6943)
v(7133)=v(6479)*v(6896)+v(6488)*v(6920)+v(6498)*v(6942)
v(7132)=v(6479)*v(6895)+v(6488)*v(6919)+v(6498)*v(6941)
v(7131)=v(6479)*v(6745)+v(6488)*v(6754)+v(6498)*v(6763)
v(7130)=v(6479)*v(6744)+v(6488)*v(6753)+v(6498)*v(6762)
v(7129)=v(6479)*v(6743)+v(6488)*v(6752)+v(6498)*v(6761)
v(7128)=v(6479)*v(6742)+v(6488)*v(6751)+v(6498)*v(6760)
v(7127)=v(6479)*v(6741)+v(6488)*v(6750)+v(6498)*v(6759)
v(7126)=v(6479)*v(6740)+v(6488)*v(6749)+v(6498)*v(6758)
v(7122)=v(6479)*v(6739)+v(6488)*v(6748)+v(6498)*v(6757)
v(7121)=v(6479)*v(6738)+v(6488)*v(6747)+v(6498)*v(6756)
v(7120)=v(6479)*v(6737)+v(6488)*v(6746)+v(6498)*v(6755)
v(6641)=v(6408)*v(6479)+v(6410)*v(6488)+v(6411)*v(6498)
v(6635)=v(6461)*v(6479)+v(6463)*v(6488)+v(6465)*v(6498)
v(6629)=v(6460)*v(6479)+v(6462)*v(6488)+v(6464)*v(6498)
v(6508)=-ug(12)+ugo(12)
v(7156)=(-2d0)*v(6508)
v(6513)=(v(6508)*v(6508))
v(6509)=ug(11)-ugo(11)
v(17960)=-(v(6508)*v(6509))
v(7157)=2d0*v(6509)
v(6514)=(v(6509)*v(6509))
v(7191)=-v(6513)-v(6514)
v(6510)=-ug(10)+ugo(10)
v(17957)=-(v(6509)*v(6510))
v(17955)=v(6508)*v(6510)
v(7158)=(-2d0)*v(6510)
v(6523)=(v(6510)*v(6510))
v(17936)=v(6513)+v(6514)+v(6523)
v(17940)=sqrt(v(17936))
v(17938)=1d0/v(17940)
v(17935)=v(17938)/2d0
v(11443)=v(17935)*v(7156)
v(17966)=-(v(11443)*v(6508))
v(11465)=v(11443)/2d0
v(11440)=v(17935)*v(7157)
v(11464)=v(11440)/2d0
v(11438)=v(17936)
v(11444)=-(v(11443)/v(11438))
v(11442)=-(v(11440)/v(11438))
v(17939)=v(11442)/2d0
v(11446)=v(17939)*v(7156)
v(11437)=v(17935)*v(7158)
v(11463)=v(11437)/2d0
v(11439)=-(v(11437)/v(11438))
v(17937)=v(11439)/2d0
v(11448)=v(17937)*v(7157)
v(11445)=v(17937)*v(7156)
v(7183)=-v(6513)-v(6523)
v(7172)=-v(6514)-v(6523)
v(7159)=v(17938)
v(11450)=v(17937)*v(7158)+v(7159)
v(11449)=v(17939)*v(7157)+v(7159)
v(11447)=(v(11444)*v(7156))/2d0+v(7159)
v(6511)=v(17940)
v(17970)=v(6510)/v(6511)
v(17969)=v(6509)/v(6511)
v(17967)=v(6508)/v(6511)
v(17942)=dsin(v(6511))
v(11459)=1d0/v(6511)**3
v(17941)=(-2d0)*v(11459)
v(11462)=v(11443)*v(17941)
v(11461)=v(11440)*v(17941)
v(11460)=v(11437)*v(17941)
v(11453)=-(v(11443)*v(17942))
v(11452)=v(11440)*v(17942)
v(11451)=-(v(11437)*v(17942))
v(7198)=dcos(v(6511))
v(11457)=v(11440)*v(11451)+v(11448)*v(7198)
v(11456)=v(11443)*v(11453)+v(11447)*v(7198)
v(11454)=v(11443)*v(11451)+v(11445)*v(7198)
v(7200)=v(11443)*v(7198)
v(17943)=v(7159)*v(7200)
v(11964)=v(17943)*v(6510)
v(11562)=v(17943)
v(7199)=v(11440)*v(7198)
v(17944)=v(7159)*v(7199)
v(11962)=v(17944)*v(6510)
v(11587)=-v(17944)
v(7197)=v(11437)*v(7198)
v(17945)=v(7159)*v(7197)
v(11960)=v(17945)*v(6510)
v(11859)=-v(17945)
v(7166)=1d0/v(6511)**2
v(17971)=-(v(11437)*v(7166))
v(17947)=2d0*v(7166)
v(17946)=-(v(6509)*v(7166))
v(11860)=v(17971)*v(6510)
v(11585)=v(17946)*v(7199)
v(11565)=v(17966)*v(7166)
v(17968)=2d0*v(11565)
v(11542)=v(17946)*v(7200)
v(7164)=v(6511)/2d0
v(11466)=dcos(v(7164))
v(11472)=v(11466)*v(17947)
v(7165)=dsin(v(7164))
v(17949)=(v(7165)*v(7165))
v(17959)=-(v(17947)*v(17949))
v(17948)=v(11466)*v(11472)+v(17959)
v(11470)=v(17942)
v(11483)=v(11462)*v(11470)
v(11481)=v(11461)*v(11470)
v(11478)=v(11460)*v(11470)
v(11473)=v(11481)+v(11464)*v(17948)
v(11471)=v(11478)+v(11463)*v(17948)
v(7169)=v(11470)*v(7166)
v(11563)=v(11443)*v(7169)
v(11560)=v(11440)*v(7169)
v(11558)=v(11437)*v(7169)
v(11559)=v(11558)+v(11859)
v(7163)=v(17949)
v(11480)=(12d0*v(7163))/v(6511)**4
v(11482)=v(11440)*v(11480)+v(11481)
v(17952)=v(11473)+v(11482)
v(11479)=v(11478)+v(11437)*v(11480)
v(17951)=v(11471)+v(11479)
v(7168)=(-4d0)*v(11459)*v(7163)
v(17950)=v(7168)+v(7169)
v(11500)=v(11450)*v(17950)+v(11437)*v(17951)
v(11501)=v(11500)*v(7191)
v(11492)=v(11449)*v(17950)+v(11440)*v(17952)
v(17953)=v(11492)*v(6508)
v(11498)=v(17953)*v(6510)
v(11494)=v(11492)*v(7183)
v(11491)=v(11448)*v(17950)+v(11440)*v(17951)
v(11487)=v(11443)*(v(11443)*v(11480)+2d0*v(11483)+v(11465)*v(17948))+v(11447)*v(17950)
v(11490)=v(11487)*v(7172)
v(11486)=v(11446)*v(17950)+v(11443)*v(17952)
v(11485)=v(11445)*v(17950)+v(11443)*v(17951)
v(7171)=v(11563)+v(11443)*v(7168)
v(11530)=-(v(6508)*v(7171))
v(11521)=v(6509)*v(7171)
v(17954)=2d0*v(11521)
v(11532)=v(17954)-v(17953)*v(6509)
v(11529)=v(17954)+v(11487)*v(17960)
v(11516)=-(v(6510)*v(7171))
v(17956)=2d0*v(11516)
v(11535)=v(11500)*v(17955)+v(17956)
v(11534)=v(11487)*v(17955)+v(17956)
v(11508)=-(v(7156)*v(7171))
v(11504)=-v(17956)
v(11523)=2d0*v(11504)+v(11485)*v(7183)
v(11505)=v(11504)+v(11485)*v(7191)
v(11495)=-v(17954)
v(11507)=2d0*v(11495)+v(11486)*v(7191)
v(11496)=v(11495)+v(11486)*v(7183)
v(11489)=v(11495)+v(11486)*v(7172)
v(11488)=v(11504)+v(11485)*v(7172)
v(7175)=v(7171)*v(7172)
v(12617)=rio2(3,3)*v(7175)
v(12311)=rio2(3,2)*v(7175)
v(12005)=rio2(3,1)*v(7175)
v(7170)=v(11560)+v(11440)*v(7168)
v(11519)=v(6509)*v(7170)
v(11515)=-(v(6510)*v(7170))
v(17958)=2d0*v(11515)
v(11522)=v(11500)*v(17957)+v(17958)
v(11518)=v(11492)*v(17957)+v(17958)
v(11512)=-(v(7157)*v(7170))
v(11502)=-v(17958)
v(11536)=2d0*v(11502)+v(11491)*v(7172)
v(11503)=v(11502)+v(11491)*v(7191)
v(11499)=v(11515)+v(11486)*v(17955)
v(11497)=v(11521)+v(11491)*v(17955)
v(11493)=v(11502)+v(11491)*v(7183)
v(7185)=v(7170)*v(7183)
v(11993)=rio2(2,3)*v(7185)
v(11984)=rio2(2,2)*v(7185)
v(11975)=rio2(2,1)*v(7185)
v(7177)=-(v(11515)*v(6508))
v(7167)=v(11558)+v(11437)*v(7168)
v(17964)=-(v(6510)*v(7167))
v(11526)=-(v(7158)*v(7167))
v(7192)=v(7167)*v(7191)
v(6512)=-v(17959)
v(11528)=v(11519)+v(11530)+v(11486)*v(17960)+v(6512)
v(11514)=v(17964)+v(6512)
v(11533)=v(11514)+v(11530)+v(11485)*v(17955)
v(11517)=v(11514)+v(11519)+v(11491)*v(17957)
v(11510)=(-2d0)*v(6512)
v(11525)=v(11510)+v(11526)
v(17961)=v(11525)+v(11526)
v(11538)=v(17961)+v(11500)*v(7172)
v(11527)=v(17961)+v(11500)*v(7183)
v(11511)=v(11510)+v(11512)
v(17962)=v(11511)+v(11512)
v(11537)=v(17962)+v(11492)*v(7172)
v(11513)=v(17962)+v(11492)*v(7191)
v(11506)=v(11508)+v(11510)
v(17963)=v(11506)+v(11508)
v(11524)=v(17963)+v(11487)*v(7183)
v(11509)=v(17963)+v(11487)*v(7191)
v(7195)=-(v(6512)*v(7156))
v(7196)=v(7171)*v(7191)+v(7195)
v(7193)=-(v(6512)*v(7157))
v(7194)=v(7170)*v(7191)+v(7193)
v(7189)=-(v(6510)*v(6512))
v(7190)=v(11515)*v(6509)+v(7189)
v(7187)=v(6509)*v(6512)
v(7188)=v(17964)*v(6509)+v(7187)
v(7186)=v(7171)*v(7183)+v(7195)
v(11996)=rio2(2,3)*v(7186)
v(11987)=rio2(2,2)*v(7186)
v(11978)=rio2(2,1)*v(7186)
v(7182)=-(v(6512)*v(7158))
v(7184)=v(7182)+v(7167)*v(7183)
v(11990)=rio2(2,3)*v(7184)
v(11981)=rio2(2,2)*v(7184)
v(11972)=rio2(2,1)*v(7184)
v(7181)=-(v(11521)*v(6508))+v(7187)
v(7179)=-(v(6508)*v(6512))
v(7180)=-(v(11519)*v(6508))+v(7179)
v(7178)=-(v(11516)*v(6508))+v(7189)
v(7176)=-(v(17964)*v(6508))+v(7179)
v(7174)=v(7170)*v(7172)+v(7193)
v(12614)=rio2(3,3)*v(7174)
v(12308)=rio2(3,2)*v(7174)
v(12002)=rio2(3,1)*v(7174)
v(7173)=v(7167)*v(7172)+v(7182)
v(12611)=rio2(3,3)*v(7173)
v(12305)=rio2(3,2)*v(7173)
v(11999)=rio2(3,1)*v(7173)
v(6536)=1d0+v(6512)*v(7172)
v(6532)=-(v(6510)*v(7179))
v(6531)=v(6509)*v(7179)
v(6526)=1d0+v(6512)*v(7183)
v(6522)=-(v(6510)*v(7187))
v(6517)=1d0+v(6512)*v(7191)
v(6515)=v(17942)
v(17965)=v(6510)*v(6515)
v(11965)=v(11964)+v(11444)*v(17965)
v(11971)=v(11965)+v(7181)
v(11968)=-v(11965)+v(7181)
v(11963)=v(11962)+v(11442)*v(17965)
v(11970)=v(11963)+v(7180)
v(11967)=-v(11963)+v(7180)
v(11599)=-(v(11471)*v(6510))+v(7169)
v(11570)=v(17966)*v(6515)
v(11569)=-(v(6508)*v(7169))
v(11571)=(-2d0)*v(11562)+2d0*v(11563)+v(11447)*v(11569)+v(11462)*v(11570)+v(11456)*v(17967)+v(17968)*v(7200)
v(11584)=v(11499)-v(11571)
v(11573)=v(11499)+v(11571)
v(11567)=v(11559)+v(11445)*v(11569)+v(11460)*v(11570)+v(11454)*v(17967)+v(17968)*v(7197)
v(11619)=v(11529)-v(11567)
v(11607)=v(11529)+v(11567)
v(11616)=rio2(2,1)*v(11524)+rio2(1,1)*v(11584)+rio2(3,1)*v(11607)
v(11613)=rio2(2,2)*v(11524)+rio2(1,2)*v(11584)+rio2(3,2)*v(11607)
v(11610)=rio2(2,3)*v(11524)+rio2(1,3)*v(11584)+rio2(3,3)*v(11607)
v(11583)=v(11497)-v(11567)
v(11572)=v(11497)+v(11567)
v(11540)=v(11585)-v(11481)*v(6509)-v(7169)
v(11539)=-(v(11471)*v(6509))
v(7210)=-(v(6509)*v(7169))
v(11588)=-v(11560)+v(11440)*(v(11540)+v(11585))-2d0*v(11587)+v(17969)*(-(v(11440)*v(11452))+v(11449)*v(7198))+v(11449&
&)*v(7210)
v(11598)=v(11498)-v(11588)
v(11590)=v(11498)+v(11588)
v(11586)=v(11440)*v(11539)-v(11559)+v(11437)*v(11585)+v(11457)*v(17969)+v(11448)*v(7210)
v(11752)=v(11532)+v(11586)
v(11824)=rio2(3,1)*v(11537)+rio2(1,1)*v(11598)+rio2(2,1)*v(11752)
v(11789)=rio2(3,2)*v(11537)+rio2(1,2)*v(11598)+rio2(2,2)*v(11752)
v(11754)=rio2(3,3)*v(11537)+rio2(1,3)*v(11598)+rio2(2,3)*v(11752)
v(11743)=v(11532)-v(11586)
v(11597)=v(11497)-v(11586)
v(11589)=v(11497)+v(11586)
v(11545)=v(11456)*v(17969)+v(11443)*(2d0*v(11542)-v(11483)*v(6509))+v(11447)*v(7210)
v(11557)=v(11534)-v(11545)
v(11700)=rio2(3,1)*v(11490)+rio2(1,1)*v(11557)+rio2(2,1)*v(11619)
v(11661)=rio2(3,2)*v(11490)+rio2(1,2)*v(11557)+rio2(2,2)*v(11619)
v(11622)=rio2(3,3)*v(11490)+rio2(1,3)*v(11557)+rio2(2,3)*v(11619)
v(11554)=v(11498)+v(11545)
v(11551)=v(11534)+v(11545)
v(11582)=rio2(1,1)*v(11509)+rio2(3,1)*v(11551)+rio2(2,1)*v(11573)
v(11733)=v(11582)*v(6408)+v(11616)*v(6410)+v(11700)*v(6411)
v(11721)=v(11582)*v(6461)+v(11616)*v(6463)+v(11700)*v(6465)
v(11709)=v(11582)*v(6460)+v(11616)*v(6462)+v(11700)*v(6464)
v(11579)=rio2(1,2)*v(11509)+rio2(3,2)*v(11551)+rio2(2,2)*v(11573)
v(11694)=v(11579)*v(6408)+v(11613)*v(6410)+v(11661)*v(6411)
v(11682)=v(11579)*v(6461)+v(11613)*v(6463)+v(11661)*v(6465)
v(11670)=v(11579)*v(6460)+v(11613)*v(6462)+v(11661)*v(6464)
v(11576)=rio2(1,3)*v(11509)+rio2(3,3)*v(11551)+rio2(2,3)*v(11573)
v(11655)=v(11576)*v(6408)+v(11610)*v(6410)+v(11622)*v(6411)
v(11643)=v(11576)*v(6461)+v(11610)*v(6463)+v(11622)*v(6465)
v(11631)=v(11576)*v(6460)+v(11610)*v(6462)+v(11622)*v(6464)
v(11548)=v(11498)-v(11545)
v(11544)=v(11443)*v(11540)+v(11440)*v(11542)+v(11562)+v(17969)*(-(v(11443)*v(11452))+v(11446)*v(7198))+v(11446)*v(7210)
v(11556)=v(11499)-v(11544)
v(11553)=v(11518)+v(11544)
v(11749)=rio2(2,1)*v(11494)+rio2(1,1)*v(11553)+rio2(3,1)*v(11743)
v(11747)=rio2(2,2)*v(11494)+rio2(1,2)*v(11553)+rio2(3,2)*v(11743)
v(11745)=rio2(2,3)*v(11494)+rio2(1,3)*v(11553)+rio2(3,3)*v(11743)
v(11550)=v(11499)+v(11544)
v(11581)=rio2(1,1)*v(11507)+rio2(2,1)*v(11548)+rio2(3,1)*v(11550)
v(11578)=rio2(1,2)*v(11507)+rio2(2,2)*v(11548)+rio2(3,2)*v(11550)
v(11575)=rio2(1,3)*v(11507)+rio2(2,3)*v(11548)+rio2(3,3)*v(11550)
v(11547)=v(11518)-v(11544)
v(11596)=rio2(1,1)*v(11513)+rio2(2,1)*v(11547)+rio2(3,1)*v(11590)
v(11854)=v(11596)*v(6408)+v(11749)*v(6410)+v(11824)*v(6411)
v(11843)=v(11596)*v(6461)+v(11749)*v(6463)+v(11824)*v(6465)
v(11832)=v(11596)*v(6460)+v(11749)*v(6462)+v(11824)*v(6464)
v(11594)=rio2(1,2)*v(11513)+rio2(2,2)*v(11547)+rio2(3,2)*v(11590)
v(11819)=v(11594)*v(6408)+v(11747)*v(6410)+v(11789)*v(6411)
v(11808)=v(11594)*v(6461)+v(11747)*v(6463)+v(11789)*v(6465)
v(11797)=v(11594)*v(6460)+v(11747)*v(6462)+v(11789)*v(6464)
v(11592)=rio2(1,3)*v(11513)+rio2(2,3)*v(11547)+rio2(3,3)*v(11590)
v(11784)=v(11592)*v(6408)+v(11745)*v(6410)+v(11754)*v(6411)
v(11773)=v(11592)*v(6461)+v(11745)*v(6463)+v(11754)*v(6465)
v(11762)=v(11592)*v(6460)+v(11745)*v(6462)+v(11754)*v(6464)
v(11543)=v(11443)*v(11539)+v(11437)*v(11542)+v(11454)*v(17969)+v(11445)*v(7210)
v(11618)=v(11528)+v(11543)
v(11699)=rio2(3,1)*v(11489)+rio2(1,1)*v(11556)+rio2(2,1)*v(11618)
v(11660)=rio2(3,2)*v(11489)+rio2(1,2)*v(11556)+rio2(2,2)*v(11618)
v(11621)=rio2(3,3)*v(11489)+rio2(1,3)*v(11556)+rio2(2,3)*v(11618)
v(11606)=v(11528)-v(11543)
v(11615)=rio2(2,1)*v(11496)+rio2(1,1)*v(11554)+rio2(3,1)*v(11606)
v(11732)=v(11581)*v(6408)+v(11615)*v(6410)+v(11699)*v(6411)
v(11720)=v(11581)*v(6461)+v(11615)*v(6463)+v(11699)*v(6465)
v(11708)=v(11581)*v(6460)+v(11615)*v(6462)+v(11699)*v(6464)
v(11612)=rio2(2,2)*v(11496)+rio2(1,2)*v(11554)+rio2(3,2)*v(11606)
v(11693)=v(11578)*v(6408)+v(11612)*v(6410)+v(11660)*v(6411)
v(11681)=v(11578)*v(6461)+v(11612)*v(6463)+v(11660)*v(6465)
v(11669)=v(11578)*v(6460)+v(11612)*v(6462)+v(11660)*v(6464)
v(11609)=rio2(2,3)*v(11496)+rio2(1,3)*v(11554)+rio2(3,3)*v(11606)
v(11654)=v(11575)*v(6408)+v(11609)*v(6410)+v(11621)*v(6411)
v(11642)=v(11575)*v(6461)+v(11609)*v(6463)+v(11621)*v(6465)
v(11630)=v(11575)*v(6460)+v(11609)*v(6462)+v(11621)*v(6464)
v(11555)=v(11533)-v(11543)
v(11552)=v(11517)+v(11543)
v(11549)=v(11533)+v(11543)
v(11580)=rio2(1,1)*v(11505)+rio2(3,1)*v(11549)+rio2(2,1)*v(11572)
v(11577)=rio2(1,2)*v(11505)+rio2(3,2)*v(11549)+rio2(2,2)*v(11572)
v(11574)=rio2(1,3)*v(11505)+rio2(3,3)*v(11549)+rio2(2,3)*v(11572)
v(11546)=v(11517)-v(11543)
v(11595)=rio2(1,1)*v(11503)+rio2(2,1)*v(11546)+rio2(3,1)*v(11589)
v(11593)=rio2(1,2)*v(11503)+rio2(2,2)*v(11546)+rio2(3,2)*v(11589)
v(11591)=rio2(1,3)*v(11503)+rio2(2,3)*v(11546)+rio2(3,3)*v(11589)
v(7211)=v(17943)*v(6509)+v(11443)*v(7210)
v(7226)=v(7190)-v(7211)
v(7224)=v(7178)+v(7211)
v(7220)=v(7190)+v(7211)
v(11994)=rio2(1,3)*v(7220)
v(17978)=v(11993)+v(11994)
v(11995)=rio2(3,3)*v(11970)+v(17978)
v(11985)=rio2(1,2)*v(7220)
v(17979)=v(11984)+v(11985)
v(11986)=rio2(3,2)*v(11970)+v(17979)
v(11976)=rio2(1,1)*v(7220)
v(17980)=v(11975)+v(11976)
v(11977)=rio2(3,1)*v(11970)+v(17980)
v(7214)=v(7178)-v(7211)
v(12618)=rio2(1,3)*v(7214)
v(17975)=v(12617)+v(12618)
v(12619)=rio2(2,3)*v(11968)+v(17975)
v(12312)=rio2(1,2)*v(7214)
v(17976)=v(12311)+v(12312)
v(12313)=rio2(2,2)*v(11968)+v(17976)
v(12006)=rio2(1,1)*v(7214)
v(17977)=v(12005)+v(12006)
v(12007)=rio2(2,1)*v(11968)+v(17977)
v(7208)=-(v(6515)/v(6511))
v(17984)=v(11960)+v(7208)
v(11961)=v(11439)*v(17965)+v(17984)
v(11969)=v(11961)+v(7177)
v(11966)=-v(11961)+v(7177)
v(7218)=v(17943)*v(6508)+v(11565)*v(6515)+v(7208)
v(7227)=v(7177)+v(7218)
v(7236)=rio2(1,3)*v(7196)+rio2(3,3)*v(7224)+rio2(2,3)*v(7227)
v(12915)=v(6737)*v(7236)
v(12908)=v(6738)*v(7236)
v(12900)=v(6739)*v(7236)
v(12891)=v(6740)*v(7236)
v(12881)=v(6741)*v(7236)
v(12870)=v(6742)*v(7236)
v(12857)=v(6743)*v(7236)
v(12843)=v(6744)*v(7236)
v(12828)=v(6745)*v(7236)
v(12816)=v(6895)*v(7236)
v(12809)=v(6896)*v(7236)
v(12801)=v(6897)*v(7236)
v(12792)=v(6899)*v(7236)
v(12782)=v(6901)*v(7236)
v(12771)=v(6903)*v(7236)
v(12758)=v(6904)*v(7236)
v(12744)=v(6905)*v(7236)
v(12729)=v(6906)*v(7236)
v(12717)=v(6883)*v(7236)
v(12710)=v(6884)*v(7236)
v(12702)=v(6885)*v(7236)
v(12693)=v(6887)*v(7236)
v(12683)=v(6889)*v(7236)
v(12672)=v(6891)*v(7236)
v(12659)=v(6892)*v(7236)
v(12645)=v(6893)*v(7236)
v(12630)=v(6894)*v(7236)
v(7233)=rio2(1,2)*v(7196)+rio2(3,2)*v(7224)+rio2(2,2)*v(7227)
v(12609)=v(6737)*v(7233)
v(12602)=v(6738)*v(7233)
v(12594)=v(6739)*v(7233)
v(12585)=v(6740)*v(7233)
v(12575)=v(6741)*v(7233)
v(12564)=v(6742)*v(7233)
v(12551)=v(6743)*v(7233)
v(12537)=v(6744)*v(7233)
v(12522)=v(6745)*v(7233)
v(12510)=v(6895)*v(7233)
v(12503)=v(6896)*v(7233)
v(12495)=v(6897)*v(7233)
v(12486)=v(6899)*v(7233)
v(12476)=v(6901)*v(7233)
v(12465)=v(6903)*v(7233)
v(12452)=v(6904)*v(7233)
v(12438)=v(6905)*v(7233)
v(12423)=v(6906)*v(7233)
v(12411)=v(6883)*v(7233)
v(12404)=v(6884)*v(7233)
v(12396)=v(6885)*v(7233)
v(12387)=v(6887)*v(7233)
v(12377)=v(6889)*v(7233)
v(12366)=v(6891)*v(7233)
v(12353)=v(6892)*v(7233)
v(12339)=v(6893)*v(7233)
v(12324)=v(6894)*v(7233)
v(7230)=rio2(1,1)*v(7196)+rio2(3,1)*v(7224)+rio2(2,1)*v(7227)
v(12303)=v(6737)*v(7230)
v(12296)=v(6738)*v(7230)
v(12288)=v(6739)*v(7230)
v(12279)=v(6740)*v(7230)
v(12269)=v(6741)*v(7230)
v(12258)=v(6742)*v(7230)
v(12245)=v(6743)*v(7230)
v(12231)=v(6744)*v(7230)
v(12216)=v(6745)*v(7230)
v(12204)=v(6895)*v(7230)
v(12197)=v(6896)*v(7230)
v(12189)=v(6897)*v(7230)
v(12180)=v(6899)*v(7230)
v(12170)=v(6901)*v(7230)
v(12159)=v(6903)*v(7230)
v(12146)=v(6904)*v(7230)
v(12132)=v(6905)*v(7230)
v(12117)=v(6906)*v(7230)
v(12105)=v(6883)*v(7230)
v(12098)=v(6884)*v(7230)
v(12090)=v(6885)*v(7230)
v(12081)=v(6887)*v(7230)
v(12071)=v(6889)*v(7230)
v(12060)=v(6891)*v(7230)
v(12047)=v(6892)*v(7230)
v(12033)=v(6893)*v(7230)
v(12018)=v(6894)*v(7230)
v(7221)=v(7177)-v(7218)
v(11997)=rio2(1,3)*v(7221)
v(17972)=v(11996)+v(11997)
v(11998)=rio2(3,3)*v(11971)+v(17972)
v(12916)=v(12915)+v(11998)*v(6746)+v(12619)*v(6755)
v(12909)=v(12908)+v(11998)*v(6747)+v(12619)*v(6756)
v(12901)=v(12900)+v(11998)*v(6748)+v(12619)*v(6757)
v(12892)=v(12891)+v(11998)*v(6749)+v(12619)*v(6758)
v(12882)=v(12881)+v(11998)*v(6750)+v(12619)*v(6759)
v(12871)=v(12870)+v(11998)*v(6751)+v(12619)*v(6760)
v(12858)=v(12857)+v(11998)*v(6752)+v(12619)*v(6761)
v(12844)=v(12843)+v(11998)*v(6753)+v(12619)*v(6762)
v(12829)=v(12828)+v(11998)*v(6754)+v(12619)*v(6763)
v(12817)=v(12816)+v(11998)*v(6919)+v(12619)*v(6941)
v(12810)=v(12809)+v(11998)*v(6920)+v(12619)*v(6942)
v(12802)=v(12801)+v(11998)*v(6921)+v(12619)*v(6943)
v(12793)=v(12792)+v(11998)*v(6922)+v(12619)*v(6944)
v(12783)=v(12782)+v(11998)*v(6924)+v(12619)*v(6945)
v(12772)=v(12771)+v(11998)*v(6926)+v(12619)*v(6947)
v(12759)=v(12758)+v(11998)*v(6905)+v(12619)*v(6906)
v(12745)=v(12744)+v(11998)*v(6927)+v(12619)*v(6928)
v(12730)=v(12729)+v(11998)*v(6928)+v(12619)*v(6948)
v(12718)=v(12717)+v(11998)*v(6907)+v(12619)*v(6929)
v(12711)=v(12710)+v(11998)*v(6908)+v(12619)*v(6930)
v(12703)=v(12702)+v(11998)*v(6909)+v(12619)*v(6931)
v(12694)=v(12693)+v(11998)*v(6910)+v(12619)*v(6932)
v(12684)=v(12683)+v(11998)*v(6912)+v(12619)*v(6933)
v(12673)=v(12672)+v(11998)*v(6914)+v(12619)*v(6935)
v(12660)=v(12659)+v(11998)*v(6916)+v(12619)*v(6937)
v(12646)=v(12645)+v(11998)*v(6917)+v(12619)*v(6939)
v(12631)=v(12630)+v(11998)*v(6918)+v(12619)*v(6940)
v(11988)=rio2(1,2)*v(7221)
v(17973)=v(11987)+v(11988)
v(11989)=rio2(3,2)*v(11971)+v(17973)
v(12610)=v(12609)+v(11989)*v(6746)+v(12313)*v(6755)
v(12603)=v(12602)+v(11989)*v(6747)+v(12313)*v(6756)
v(12595)=v(12594)+v(11989)*v(6748)+v(12313)*v(6757)
v(12586)=v(12585)+v(11989)*v(6749)+v(12313)*v(6758)
v(12576)=v(12575)+v(11989)*v(6750)+v(12313)*v(6759)
v(12565)=v(12564)+v(11989)*v(6751)+v(12313)*v(6760)
v(12552)=v(12551)+v(11989)*v(6752)+v(12313)*v(6761)
v(12538)=v(12537)+v(11989)*v(6753)+v(12313)*v(6762)
v(12523)=v(12522)+v(11989)*v(6754)+v(12313)*v(6763)
v(12511)=v(12510)+v(11989)*v(6919)+v(12313)*v(6941)
v(12504)=v(12503)+v(11989)*v(6920)+v(12313)*v(6942)
v(12496)=v(12495)+v(11989)*v(6921)+v(12313)*v(6943)
v(12487)=v(12486)+v(11989)*v(6922)+v(12313)*v(6944)
v(12477)=v(12476)+v(11989)*v(6924)+v(12313)*v(6945)
v(12466)=v(12465)+v(11989)*v(6926)+v(12313)*v(6947)
v(12453)=v(12452)+v(11989)*v(6905)+v(12313)*v(6906)
v(12439)=v(12438)+v(11989)*v(6927)+v(12313)*v(6928)
v(12424)=v(12423)+v(11989)*v(6928)+v(12313)*v(6948)
v(12412)=v(12411)+v(11989)*v(6907)+v(12313)*v(6929)
v(12405)=v(12404)+v(11989)*v(6908)+v(12313)*v(6930)
v(12397)=v(12396)+v(11989)*v(6909)+v(12313)*v(6931)
v(12388)=v(12387)+v(11989)*v(6910)+v(12313)*v(6932)
v(12378)=v(12377)+v(11989)*v(6912)+v(12313)*v(6933)
v(12367)=v(12366)+v(11989)*v(6914)+v(12313)*v(6935)
v(12354)=v(12353)+v(11989)*v(6916)+v(12313)*v(6937)
v(12340)=v(12339)+v(11989)*v(6917)+v(12313)*v(6939)
v(12325)=v(12324)+v(11989)*v(6918)+v(12313)*v(6940)
v(11979)=rio2(1,1)*v(7221)
v(17974)=v(11978)+v(11979)
v(11980)=rio2(3,1)*v(11971)+v(17974)
v(12304)=v(12303)+v(11980)*v(6746)+v(12007)*v(6755)
v(12297)=v(12296)+v(11980)*v(6747)+v(12007)*v(6756)
v(12289)=v(12288)+v(11980)*v(6748)+v(12007)*v(6757)
v(12280)=v(12279)+v(11980)*v(6749)+v(12007)*v(6758)
v(12270)=v(12269)+v(11980)*v(6750)+v(12007)*v(6759)
v(12259)=v(12258)+v(11980)*v(6751)+v(12007)*v(6760)
v(12246)=v(12245)+v(11980)*v(6752)+v(12007)*v(6761)
v(12232)=v(12231)+v(11980)*v(6753)+v(12007)*v(6762)
v(12217)=v(12216)+v(11980)*v(6754)+v(12007)*v(6763)
v(12205)=v(12204)+v(11980)*v(6919)+v(12007)*v(6941)
v(12198)=v(12197)+v(11980)*v(6920)+v(12007)*v(6942)
v(12190)=v(12189)+v(11980)*v(6921)+v(12007)*v(6943)
v(12181)=v(12180)+v(11980)*v(6922)+v(12007)*v(6944)
v(12171)=v(12170)+v(11980)*v(6924)+v(12007)*v(6945)
v(12160)=v(12159)+v(11980)*v(6926)+v(12007)*v(6947)
v(12147)=v(12146)+v(11980)*v(6905)+v(12007)*v(6906)
v(12133)=v(12132)+v(11980)*v(6927)+v(12007)*v(6928)
v(12118)=v(12117)+v(11980)*v(6928)+v(12007)*v(6948)
v(12106)=v(12105)+v(11980)*v(6907)+v(12007)*v(6929)
v(12099)=v(12098)+v(11980)*v(6908)+v(12007)*v(6930)
v(12091)=v(12090)+v(11980)*v(6909)+v(12007)*v(6931)
v(12082)=v(12081)+v(11980)*v(6910)+v(12007)*v(6932)
v(12072)=v(12071)+v(11980)*v(6912)+v(12007)*v(6933)
v(12061)=v(12060)+v(11980)*v(6914)+v(12007)*v(6935)
v(12048)=v(12047)+v(11980)*v(6916)+v(12007)*v(6937)
v(12034)=v(12033)+v(11980)*v(6917)+v(12007)*v(6939)
v(12019)=v(12018)+v(11980)*v(6918)+v(12007)*v(6940)
v(7209)=v(17944)*v(6509)-v(7208)+v(11440)*v(7210)
v(7223)=v(7177)+v(7209)
v(7235)=rio2(1,3)*v(7194)+rio2(3,3)*v(7223)+rio2(2,3)*v(7226)
v(12913)=v(6737)*v(7235)
v(12906)=v(6738)*v(7235)
v(12898)=v(6739)*v(7235)
v(12889)=v(6740)*v(7235)
v(12879)=v(6741)*v(7235)
v(12868)=v(6742)*v(7235)
v(12855)=v(6743)*v(7235)
v(12841)=v(6744)*v(7235)
v(12826)=v(6745)*v(7235)
v(12814)=v(6895)*v(7235)
v(12807)=v(6896)*v(7235)
v(12799)=v(6897)*v(7235)
v(12790)=v(6899)*v(7235)
v(12780)=v(6901)*v(7235)
v(12769)=v(6903)*v(7235)
v(12756)=v(6904)*v(7235)
v(12742)=v(6905)*v(7235)
v(12727)=v(6906)*v(7235)
v(12715)=v(6883)*v(7235)
v(12708)=v(6884)*v(7235)
v(12700)=v(6885)*v(7235)
v(12691)=v(6887)*v(7235)
v(12681)=v(6889)*v(7235)
v(12670)=v(6891)*v(7235)
v(12657)=v(6892)*v(7235)
v(12643)=v(6893)*v(7235)
v(12628)=v(6894)*v(7235)
v(7232)=rio2(1,2)*v(7194)+rio2(3,2)*v(7223)+rio2(2,2)*v(7226)
v(12607)=v(6737)*v(7232)
v(12600)=v(6738)*v(7232)
v(12592)=v(6739)*v(7232)
v(12583)=v(6740)*v(7232)
v(12573)=v(6741)*v(7232)
v(12562)=v(6742)*v(7232)
v(12549)=v(6743)*v(7232)
v(12535)=v(6744)*v(7232)
v(12520)=v(6745)*v(7232)
v(12508)=v(6895)*v(7232)
v(12501)=v(6896)*v(7232)
v(12493)=v(6897)*v(7232)
v(12484)=v(6899)*v(7232)
v(12474)=v(6901)*v(7232)
v(12463)=v(6903)*v(7232)
v(12450)=v(6904)*v(7232)
v(12436)=v(6905)*v(7232)
v(12421)=v(6906)*v(7232)
v(12409)=v(6883)*v(7232)
v(12402)=v(6884)*v(7232)
v(12394)=v(6885)*v(7232)
v(12385)=v(6887)*v(7232)
v(12375)=v(6889)*v(7232)
v(12364)=v(6891)*v(7232)
v(12351)=v(6892)*v(7232)
v(12337)=v(6893)*v(7232)
v(12322)=v(6894)*v(7232)
v(7229)=rio2(1,1)*v(7194)+rio2(3,1)*v(7223)+rio2(2,1)*v(7226)
v(12301)=v(6737)*v(7229)
v(12294)=v(6738)*v(7229)
v(12286)=v(6739)*v(7229)
v(12277)=v(6740)*v(7229)
v(12267)=v(6741)*v(7229)
v(12256)=v(6742)*v(7229)
v(12243)=v(6743)*v(7229)
v(12229)=v(6744)*v(7229)
v(12214)=v(6745)*v(7229)
v(12202)=v(6895)*v(7229)
v(12195)=v(6896)*v(7229)
v(12187)=v(6897)*v(7229)
v(12178)=v(6899)*v(7229)
v(12168)=v(6901)*v(7229)
v(12157)=v(6903)*v(7229)
v(12144)=v(6904)*v(7229)
v(12130)=v(6905)*v(7229)
v(12115)=v(6906)*v(7229)
v(12103)=v(6883)*v(7229)
v(12096)=v(6884)*v(7229)
v(12088)=v(6885)*v(7229)
v(12079)=v(6887)*v(7229)
v(12069)=v(6889)*v(7229)
v(12058)=v(6891)*v(7229)
v(12045)=v(6892)*v(7229)
v(12031)=v(6893)*v(7229)
v(12016)=v(6894)*v(7229)
v(7213)=v(7177)-v(7209)
v(12615)=rio2(1,3)*v(7213)
v(17981)=v(12614)+v(12615)
v(12616)=rio2(2,3)*v(11967)+v(17981)
v(12914)=v(12913)+v(11995)*v(6746)+v(12616)*v(6755)
v(12907)=v(12906)+v(11995)*v(6747)+v(12616)*v(6756)
v(12899)=v(12898)+v(11995)*v(6748)+v(12616)*v(6757)
v(12890)=v(12889)+v(11995)*v(6749)+v(12616)*v(6758)
v(12880)=v(12879)+v(11995)*v(6750)+v(12616)*v(6759)
v(12869)=v(12868)+v(11995)*v(6751)+v(12616)*v(6760)
v(12856)=v(12855)+v(11995)*v(6752)+v(12616)*v(6761)
v(12842)=v(12841)+v(11995)*v(6753)+v(12616)*v(6762)
v(12827)=v(12826)+v(11995)*v(6754)+v(12616)*v(6763)
v(12815)=v(12814)+v(11995)*v(6919)+v(12616)*v(6941)
v(12808)=v(12807)+v(11995)*v(6920)+v(12616)*v(6942)
v(12800)=v(12799)+v(11995)*v(6921)+v(12616)*v(6943)
v(12791)=v(12790)+v(11995)*v(6922)+v(12616)*v(6944)
v(12781)=v(12780)+v(11995)*v(6924)+v(12616)*v(6945)
v(12770)=v(12769)+v(11995)*v(6926)+v(12616)*v(6947)
v(12757)=v(12756)+v(11995)*v(6905)+v(12616)*v(6906)
v(12743)=v(12742)+v(11995)*v(6927)+v(12616)*v(6928)
v(12728)=v(12727)+v(11995)*v(6928)+v(12616)*v(6948)
v(12716)=v(12715)+v(11995)*v(6907)+v(12616)*v(6929)
v(12709)=v(12708)+v(11995)*v(6908)+v(12616)*v(6930)
v(12701)=v(12700)+v(11995)*v(6909)+v(12616)*v(6931)
v(12692)=v(12691)+v(11995)*v(6910)+v(12616)*v(6932)
v(12682)=v(12681)+v(11995)*v(6912)+v(12616)*v(6933)
v(12671)=v(12670)+v(11995)*v(6914)+v(12616)*v(6935)
v(12658)=v(12657)+v(11995)*v(6916)+v(12616)*v(6937)
v(12644)=v(12643)+v(11995)*v(6917)+v(12616)*v(6939)
v(12629)=v(12628)+v(11995)*v(6918)+v(12616)*v(6940)
v(12309)=rio2(1,2)*v(7213)
v(17982)=v(12308)+v(12309)
v(12310)=rio2(2,2)*v(11967)+v(17982)
v(12608)=v(12607)+v(11986)*v(6746)+v(12310)*v(6755)
v(12601)=v(12600)+v(11986)*v(6747)+v(12310)*v(6756)
v(12593)=v(12592)+v(11986)*v(6748)+v(12310)*v(6757)
v(12584)=v(12583)+v(11986)*v(6749)+v(12310)*v(6758)
v(12574)=v(12573)+v(11986)*v(6750)+v(12310)*v(6759)
v(12563)=v(12562)+v(11986)*v(6751)+v(12310)*v(6760)
v(12550)=v(12549)+v(11986)*v(6752)+v(12310)*v(6761)
v(12536)=v(12535)+v(11986)*v(6753)+v(12310)*v(6762)
v(12521)=v(12520)+v(11986)*v(6754)+v(12310)*v(6763)
v(12509)=v(12508)+v(11986)*v(6919)+v(12310)*v(6941)
v(12502)=v(12501)+v(11986)*v(6920)+v(12310)*v(6942)
v(12494)=v(12493)+v(11986)*v(6921)+v(12310)*v(6943)
v(12485)=v(12484)+v(11986)*v(6922)+v(12310)*v(6944)
v(12475)=v(12474)+v(11986)*v(6924)+v(12310)*v(6945)
v(12464)=v(12463)+v(11986)*v(6926)+v(12310)*v(6947)
v(12451)=v(12450)+v(11986)*v(6905)+v(12310)*v(6906)
v(12437)=v(12436)+v(11986)*v(6927)+v(12310)*v(6928)
v(12422)=v(12421)+v(11986)*v(6928)+v(12310)*v(6948)
v(12410)=v(12409)+v(11986)*v(6907)+v(12310)*v(6929)
v(12403)=v(12402)+v(11986)*v(6908)+v(12310)*v(6930)
v(12395)=v(12394)+v(11986)*v(6909)+v(12310)*v(6931)
v(12386)=v(12385)+v(11986)*v(6910)+v(12310)*v(6932)
v(12376)=v(12375)+v(11986)*v(6912)+v(12310)*v(6933)
v(12365)=v(12364)+v(11986)*v(6914)+v(12310)*v(6935)
v(12352)=v(12351)+v(11986)*v(6916)+v(12310)*v(6937)
v(12338)=v(12337)+v(11986)*v(6917)+v(12310)*v(6939)
v(12323)=v(12322)+v(11986)*v(6918)+v(12310)*v(6940)
v(12003)=rio2(1,1)*v(7213)
v(17983)=v(12002)+v(12003)
v(12004)=rio2(2,1)*v(11967)+v(17983)
v(12302)=v(12301)+v(11977)*v(6746)+v(12004)*v(6755)
v(12295)=v(12294)+v(11977)*v(6747)+v(12004)*v(6756)
v(12287)=v(12286)+v(11977)*v(6748)+v(12004)*v(6757)
v(12278)=v(12277)+v(11977)*v(6749)+v(12004)*v(6758)
v(12268)=v(12267)+v(11977)*v(6750)+v(12004)*v(6759)
v(12257)=v(12256)+v(11977)*v(6751)+v(12004)*v(6760)
v(12244)=v(12243)+v(11977)*v(6752)+v(12004)*v(6761)
v(12230)=v(12229)+v(11977)*v(6753)+v(12004)*v(6762)
v(12215)=v(12214)+v(11977)*v(6754)+v(12004)*v(6763)
v(12203)=v(12202)+v(11977)*v(6919)+v(12004)*v(6941)
v(12196)=v(12195)+v(11977)*v(6920)+v(12004)*v(6942)
v(12188)=v(12187)+v(11977)*v(6921)+v(12004)*v(6943)
v(12179)=v(12178)+v(11977)*v(6922)+v(12004)*v(6944)
v(12169)=v(12168)+v(11977)*v(6924)+v(12004)*v(6945)
v(12158)=v(12157)+v(11977)*v(6926)+v(12004)*v(6947)
v(12145)=v(12144)+v(11977)*v(6905)+v(12004)*v(6906)
v(12131)=v(12130)+v(11977)*v(6927)+v(12004)*v(6928)
v(12116)=v(12115)+v(11977)*v(6928)+v(12004)*v(6948)
v(12104)=v(12103)+v(11977)*v(6907)+v(12004)*v(6929)
v(12097)=v(12096)+v(11977)*v(6908)+v(12004)*v(6930)
v(12089)=v(12088)+v(11977)*v(6909)+v(12004)*v(6931)
v(12080)=v(12079)+v(11977)*v(6910)+v(12004)*v(6932)
v(12070)=v(12069)+v(11977)*v(6912)+v(12004)*v(6933)
v(12059)=v(12058)+v(11977)*v(6914)+v(12004)*v(6935)
v(12046)=v(12045)+v(11977)*v(6916)+v(12004)*v(6937)
v(12032)=v(12031)+v(11977)*v(6917)+v(12004)*v(6939)
v(12017)=v(12016)+v(11977)*v(6918)+v(12004)*v(6940)
v(7202)=-(v(17965)*v(7166))
v(11861)=v(11559)+v(11437)*v(11599)+v(11859)+v(11860)*v(7197)+v(17970)*(v(11437)*v(11451)+v(11450)*v(7198))+v(11450)*v&
&(7202)
v(11866)=v(11497)-v(11861)
v(11862)=v(11497)+v(11861)
v(11737)=v(11587)+v(11440)*v(11599)+v(11457)*v(17970)+v(11860)*v(7199)+v(11448)*v(7202)
v(11751)=v(11498)-v(11737)
v(11823)=rio2(3,1)*v(11536)+rio2(1,1)*v(11597)+rio2(2,1)*v(11751)
v(11788)=rio2(3,2)*v(11536)+rio2(1,2)*v(11597)+rio2(2,2)*v(11751)
v(11753)=rio2(3,3)*v(11536)+rio2(1,3)*v(11597)+rio2(2,3)*v(11751)
v(11750)=v(11535)+v(11737)
v(11929)=rio2(3,1)*v(11538)+rio2(1,1)*v(11750)+rio2(2,1)*v(11866)
v(11898)=rio2(3,2)*v(11538)+rio2(1,2)*v(11750)+rio2(2,2)*v(11866)
v(11867)=rio2(3,3)*v(11538)+rio2(1,3)*v(11750)+rio2(2,3)*v(11866)
v(11742)=v(11498)+v(11737)
v(11748)=rio2(2,1)*v(11493)+rio2(1,1)*v(11552)+rio2(3,1)*v(11742)
v(11853)=v(11595)*v(6408)+v(11748)*v(6410)+v(11823)*v(6411)
v(11842)=v(11595)*v(6461)+v(11748)*v(6463)+v(11823)*v(6465)
v(11831)=v(11595)*v(6460)+v(11748)*v(6462)+v(11823)*v(6464)
v(11746)=rio2(2,2)*v(11493)+rio2(1,2)*v(11552)+rio2(3,2)*v(11742)
v(11818)=v(11593)*v(6408)+v(11746)*v(6410)+v(11788)*v(6411)
v(11807)=v(11593)*v(6461)+v(11746)*v(6463)+v(11788)*v(6465)
v(11796)=v(11593)*v(6460)+v(11746)*v(6462)+v(11788)*v(6464)
v(11744)=rio2(2,3)*v(11493)+rio2(1,3)*v(11552)+rio2(3,3)*v(11742)
v(11783)=v(11591)*v(6408)+v(11744)*v(6410)+v(11753)*v(6411)
v(11772)=v(11591)*v(6461)+v(11744)*v(6463)+v(11753)*v(6465)
v(11761)=v(11591)*v(6460)+v(11744)*v(6462)+v(11753)*v(6464)
v(11738)=v(11535)-v(11737)
v(11602)=-v(11562)+v(11443)*v(11599)+v(6510)*(v(11454)/v(6511)+v(17971)*v(7200))+v(11445)*v(7202)
v(11617)=v(11499)-v(11602)
v(11698)=rio2(3,1)*v(11488)+rio2(1,1)*v(11555)+rio2(2,1)*v(11617)
v(11659)=rio2(3,2)*v(11488)+rio2(1,2)*v(11555)+rio2(2,2)*v(11617)
v(11620)=rio2(3,3)*v(11488)+rio2(1,3)*v(11555)+rio2(2,3)*v(11617)
v(11605)=v(11499)+v(11602)
v(11614)=rio2(2,1)*v(11523)+rio2(1,1)*v(11583)+rio2(3,1)*v(11605)
v(11731)=v(11580)*v(6408)+v(11614)*v(6410)+v(11698)*v(6411)
v(11719)=v(11580)*v(6461)+v(11614)*v(6463)+v(11698)*v(6465)
v(11707)=v(11580)*v(6460)+v(11614)*v(6462)+v(11698)*v(6464)
v(11611)=rio2(2,2)*v(11523)+rio2(1,2)*v(11583)+rio2(3,2)*v(11605)
v(11692)=v(11577)*v(6408)+v(11611)*v(6410)+v(11659)*v(6411)
v(11680)=v(11577)*v(6461)+v(11611)*v(6463)+v(11659)*v(6465)
v(11668)=v(11577)*v(6460)+v(11611)*v(6462)+v(11659)*v(6464)
v(11608)=rio2(2,3)*v(11523)+rio2(1,3)*v(11583)+rio2(3,3)*v(11605)
v(11653)=v(11574)*v(6408)+v(11608)*v(6410)+v(11620)*v(6411)
v(11641)=v(11574)*v(6461)+v(11608)*v(6463)+v(11620)*v(6465)
v(11629)=v(11574)*v(6460)+v(11608)*v(6462)+v(11620)*v(6464)
v(11604)=v(11522)-v(11602)
v(11865)=rio2(2,1)*v(11527)+rio2(1,1)*v(11604)+rio2(3,1)*v(11862)
v(11864)=rio2(2,2)*v(11527)+rio2(1,2)*v(11604)+rio2(3,2)*v(11862)
v(11863)=rio2(2,3)*v(11527)+rio2(1,3)*v(11604)+rio2(3,3)*v(11862)
v(11603)=v(11522)+v(11602)
v(11741)=rio2(1,1)*v(11501)+rio2(2,1)*v(11603)+rio2(3,1)*v(11738)
v(11956)=v(11741)*v(6408)+v(11865)*v(6410)+v(11929)*v(6411)
v(11946)=v(11741)*v(6461)+v(11865)*v(6463)+v(11929)*v(6465)
v(11936)=v(11741)*v(6460)+v(11865)*v(6462)+v(11929)*v(6464)
v(11740)=rio2(1,2)*v(11501)+rio2(2,2)*v(11603)+rio2(3,2)*v(11738)
v(11925)=v(11740)*v(6408)+v(11864)*v(6410)+v(11898)*v(6411)
v(11915)=v(11740)*v(6461)+v(11864)*v(6463)+v(11898)*v(6465)
v(11905)=v(11740)*v(6460)+v(11864)*v(6462)+v(11898)*v(6464)
v(11739)=rio2(1,3)*v(11501)+rio2(2,3)*v(11603)+rio2(3,3)*v(11738)
v(11894)=v(11739)*v(6408)+v(11863)*v(6410)+v(11867)*v(6411)
v(11884)=v(11739)*v(6461)+v(11863)*v(6463)+v(11867)*v(6465)
v(11874)=v(11739)*v(6460)+v(11863)*v(6462)+v(11867)*v(6464)
v(7204)=v(11964)+v(11443)*v(7202)
v(7225)=v(7188)+v(7204)
v(7219)=v(7188)-v(7204)
v(11991)=rio2(1,3)*v(7219)
v(17985)=v(11990)+v(11991)
v(11992)=rio2(3,3)*v(11969)+v(17985)
v(11982)=rio2(1,2)*v(7219)
v(17986)=v(11981)+v(11982)
v(11983)=rio2(3,2)*v(11969)+v(17986)
v(11973)=rio2(1,1)*v(7219)
v(17987)=v(11972)+v(11973)
v(11974)=rio2(3,1)*v(11969)+v(17987)
v(7217)=v(7181)+v(7204)
v(7245)=v(17972)+rio2(3,3)*v(7217)
v(7242)=v(17973)+rio2(3,2)*v(7217)
v(7239)=v(17974)+rio2(3,1)*v(7217)
v(7207)=v(7181)-v(7204)
v(7326)=v(17975)+rio2(2,3)*v(7207)
v(11658)=v(12828)+v(6754)*v(7245)+v(6763)*v(7326)
v(11657)=v(12843)+v(6753)*v(7245)+v(6762)*v(7326)
v(11656)=v(12857)+v(6752)*v(7245)+v(6761)*v(7326)
v(11652)=v(12870)+v(6751)*v(7245)+v(6760)*v(7326)
v(11651)=v(12881)+v(6750)*v(7245)+v(6759)*v(7326)
v(11650)=v(12891)+v(6749)*v(7245)+v(6758)*v(7326)
v(11649)=v(12900)+v(6748)*v(7245)+v(6757)*v(7326)
v(11648)=v(12908)+v(6747)*v(7245)+v(6756)*v(7326)
v(11647)=v(12915)+v(6746)*v(7245)+v(6755)*v(7326)
v(11646)=v(12729)+v(6928)*v(7245)+v(6948)*v(7326)
v(11645)=v(12744)+v(6927)*v(7245)+v(6928)*v(7326)
v(11644)=v(12758)+v(6905)*v(7245)+v(6906)*v(7326)
v(11640)=v(12771)+v(6926)*v(7245)+v(6947)*v(7326)
v(11639)=v(12782)+v(6924)*v(7245)+v(6945)*v(7326)
v(11638)=v(12792)+v(6922)*v(7245)+v(6944)*v(7326)
v(11637)=v(12801)+v(6921)*v(7245)+v(6943)*v(7326)
v(11636)=v(12809)+v(6920)*v(7245)+v(6942)*v(7326)
v(11635)=v(12816)+v(6919)*v(7245)+v(6941)*v(7326)
v(11634)=v(12630)+v(6918)*v(7245)+v(6940)*v(7326)
v(11633)=v(12645)+v(6917)*v(7245)+v(6939)*v(7326)
v(11632)=v(12659)+v(6916)*v(7245)+v(6937)*v(7326)
v(11628)=v(12672)+v(6914)*v(7245)+v(6935)*v(7326)
v(11627)=v(12683)+v(6912)*v(7245)+v(6933)*v(7326)
v(11626)=v(12693)+v(6910)*v(7245)+v(6932)*v(7326)
v(11625)=v(12702)+v(6909)*v(7245)+v(6931)*v(7326)
v(11624)=v(12710)+v(6908)*v(7245)+v(6930)*v(7326)
v(11623)=v(12717)+v(6907)*v(7245)+v(6929)*v(7326)
v(7359)=v(6460)*v(7236)+v(6462)*v(7245)+v(6464)*v(7326)
v(7347)=v(6461)*v(7236)+v(6463)*v(7245)+v(6465)*v(7326)
v(7335)=v(6408)*v(7236)+v(6410)*v(7245)+v(6411)*v(7326)
v(7287)=v(17976)+rio2(2,2)*v(7207)
v(11697)=v(12522)+v(6754)*v(7242)+v(6763)*v(7287)
v(11696)=v(12537)+v(6753)*v(7242)+v(6762)*v(7287)
v(11695)=v(12551)+v(6752)*v(7242)+v(6761)*v(7287)
v(11691)=v(12564)+v(6751)*v(7242)+v(6760)*v(7287)
v(11690)=v(12575)+v(6750)*v(7242)+v(6759)*v(7287)
v(11689)=v(12585)+v(6749)*v(7242)+v(6758)*v(7287)
v(11688)=v(12594)+v(6748)*v(7242)+v(6757)*v(7287)
v(11687)=v(12602)+v(6747)*v(7242)+v(6756)*v(7287)
v(11686)=v(12609)+v(6746)*v(7242)+v(6755)*v(7287)
v(11685)=v(12423)+v(6928)*v(7242)+v(6948)*v(7287)
v(11684)=v(12438)+v(6927)*v(7242)+v(6928)*v(7287)
v(11683)=v(12452)+v(6905)*v(7242)+v(6906)*v(7287)
v(11679)=v(12465)+v(6926)*v(7242)+v(6947)*v(7287)
v(11678)=v(12476)+v(6924)*v(7242)+v(6945)*v(7287)
v(11677)=v(12486)+v(6922)*v(7242)+v(6944)*v(7287)
v(11676)=v(12495)+v(6921)*v(7242)+v(6943)*v(7287)
v(11675)=v(12503)+v(6920)*v(7242)+v(6942)*v(7287)
v(11674)=v(12510)+v(6919)*v(7242)+v(6941)*v(7287)
v(11673)=v(12324)+v(6918)*v(7242)+v(6940)*v(7287)
v(11672)=v(12339)+v(6917)*v(7242)+v(6939)*v(7287)
v(11671)=v(12353)+v(6916)*v(7242)+v(6937)*v(7287)
v(11667)=v(12366)+v(6914)*v(7242)+v(6935)*v(7287)
v(11666)=v(12377)+v(6912)*v(7242)+v(6933)*v(7287)
v(11665)=v(12387)+v(6910)*v(7242)+v(6932)*v(7287)
v(11664)=v(12396)+v(6909)*v(7242)+v(6931)*v(7287)
v(11663)=v(12404)+v(6908)*v(7242)+v(6930)*v(7287)
v(11662)=v(12411)+v(6907)*v(7242)+v(6929)*v(7287)
v(7320)=v(6460)*v(7233)+v(6462)*v(7242)+v(6464)*v(7287)
v(7308)=v(6461)*v(7233)+v(6463)*v(7242)+v(6465)*v(7287)
v(7296)=v(6408)*v(7233)+v(6410)*v(7242)+v(6411)*v(7287)
v(7248)=v(17977)+rio2(2,1)*v(7207)
v(11736)=v(12216)+v(6754)*v(7239)+v(6763)*v(7248)
v(11735)=v(12231)+v(6753)*v(7239)+v(6762)*v(7248)
v(11734)=v(12245)+v(6752)*v(7239)+v(6761)*v(7248)
v(11730)=v(12258)+v(6751)*v(7239)+v(6760)*v(7248)
v(11729)=v(12269)+v(6750)*v(7239)+v(6759)*v(7248)
v(11728)=v(12279)+v(6749)*v(7239)+v(6758)*v(7248)
v(11727)=v(12288)+v(6748)*v(7239)+v(6757)*v(7248)
v(11726)=v(12296)+v(6747)*v(7239)+v(6756)*v(7248)
v(11725)=v(12303)+v(6746)*v(7239)+v(6755)*v(7248)
v(11724)=v(12117)+v(6928)*v(7239)+v(6948)*v(7248)
v(11723)=v(12132)+v(6927)*v(7239)+v(6928)*v(7248)
v(11722)=v(12146)+v(6905)*v(7239)+v(6906)*v(7248)
v(11718)=v(12159)+v(6926)*v(7239)+v(6947)*v(7248)
v(11717)=v(12170)+v(6924)*v(7239)+v(6945)*v(7248)
v(11716)=v(12180)+v(6922)*v(7239)+v(6944)*v(7248)
v(11715)=v(12189)+v(6921)*v(7239)+v(6943)*v(7248)
v(11714)=v(12197)+v(6920)*v(7239)+v(6942)*v(7248)
v(11713)=v(12204)+v(6919)*v(7239)+v(6941)*v(7248)
v(11712)=v(12018)+v(6918)*v(7239)+v(6940)*v(7248)
v(11711)=v(12033)+v(6917)*v(7239)+v(6939)*v(7248)
v(11710)=v(12047)+v(6916)*v(7239)+v(6937)*v(7248)
v(11706)=v(12060)+v(6914)*v(7239)+v(6935)*v(7248)
v(11705)=v(12071)+v(6912)*v(7239)+v(6933)*v(7248)
v(11704)=v(12081)+v(6910)*v(7239)+v(6932)*v(7248)
v(11703)=v(12090)+v(6909)*v(7239)+v(6931)*v(7248)
v(11702)=v(12098)+v(6908)*v(7239)+v(6930)*v(7248)
v(11701)=v(12105)+v(6907)*v(7239)+v(6929)*v(7248)
v(7281)=v(6460)*v(7230)+v(6462)*v(7239)+v(6464)*v(7248)
v(7269)=v(6461)*v(7230)+v(6463)*v(7239)+v(6465)*v(7248)
v(7257)=v(6408)*v(7230)+v(6410)*v(7239)+v(6411)*v(7248)
v(7203)=v(11962)+v(11440)*v(7202)
v(7222)=v(7176)-v(7203)
v(7234)=rio2(1,3)*v(7192)+rio2(3,3)*v(7222)+rio2(2,3)*v(7225)
v(12911)=v(6737)*v(7234)
v(12904)=v(6738)*v(7234)
v(12896)=v(6739)*v(7234)
v(12887)=v(6740)*v(7234)
v(12877)=v(6741)*v(7234)
v(12866)=v(6742)*v(7234)
v(12853)=v(6743)*v(7234)
v(12839)=v(6744)*v(7234)
v(12824)=v(6745)*v(7234)
v(12812)=v(6895)*v(7234)
v(12805)=v(6896)*v(7234)
v(12797)=v(6897)*v(7234)
v(12788)=v(6899)*v(7234)
v(12778)=v(6901)*v(7234)
v(12767)=v(6903)*v(7234)
v(12754)=v(6904)*v(7234)
v(12740)=v(6905)*v(7234)
v(12725)=v(6906)*v(7234)
v(12713)=v(6883)*v(7234)
v(12706)=v(6884)*v(7234)
v(12698)=v(6885)*v(7234)
v(12689)=v(6887)*v(7234)
v(12679)=v(6889)*v(7234)
v(12668)=v(6891)*v(7234)
v(12655)=v(6892)*v(7234)
v(12641)=v(6893)*v(7234)
v(12626)=v(6894)*v(7234)
v(7231)=rio2(1,2)*v(7192)+rio2(3,2)*v(7222)+rio2(2,2)*v(7225)
v(12605)=v(6737)*v(7231)
v(12598)=v(6738)*v(7231)
v(12590)=v(6739)*v(7231)
v(12581)=v(6740)*v(7231)
v(12571)=v(6741)*v(7231)
v(12560)=v(6742)*v(7231)
v(12547)=v(6743)*v(7231)
v(12533)=v(6744)*v(7231)
v(12518)=v(6745)*v(7231)
v(12506)=v(6895)*v(7231)
v(12499)=v(6896)*v(7231)
v(12491)=v(6897)*v(7231)
v(12482)=v(6899)*v(7231)
v(12472)=v(6901)*v(7231)
v(12461)=v(6903)*v(7231)
v(12448)=v(6904)*v(7231)
v(12434)=v(6905)*v(7231)
v(12419)=v(6906)*v(7231)
v(12407)=v(6883)*v(7231)
v(12400)=v(6884)*v(7231)
v(12392)=v(6885)*v(7231)
v(12383)=v(6887)*v(7231)
v(12373)=v(6889)*v(7231)
v(12362)=v(6891)*v(7231)
v(12349)=v(6892)*v(7231)
v(12335)=v(6893)*v(7231)
v(12320)=v(6894)*v(7231)
v(7228)=rio2(1,1)*v(7192)+rio2(3,1)*v(7222)+rio2(2,1)*v(7225)
v(12299)=v(6737)*v(7228)
v(12292)=v(6738)*v(7228)
v(12284)=v(6739)*v(7228)
v(12275)=v(6740)*v(7228)
v(12265)=v(6741)*v(7228)
v(12254)=v(6742)*v(7228)
v(12241)=v(6743)*v(7228)
v(12227)=v(6744)*v(7228)
v(12212)=v(6745)*v(7228)
v(12200)=v(6895)*v(7228)
v(12193)=v(6896)*v(7228)
v(12185)=v(6897)*v(7228)
v(12176)=v(6899)*v(7228)
v(12166)=v(6901)*v(7228)
v(12155)=v(6903)*v(7228)
v(12142)=v(6904)*v(7228)
v(12128)=v(6905)*v(7228)
v(12113)=v(6906)*v(7228)
v(12101)=v(6883)*v(7228)
v(12094)=v(6884)*v(7228)
v(12086)=v(6885)*v(7228)
v(12077)=v(6887)*v(7228)
v(12067)=v(6889)*v(7228)
v(12056)=v(6891)*v(7228)
v(12043)=v(6892)*v(7228)
v(12029)=v(6893)*v(7228)
v(12014)=v(6894)*v(7228)
v(7216)=v(7180)+v(7203)
v(7244)=v(17978)+rio2(3,3)*v(7216)
v(7241)=v(17979)+rio2(3,2)*v(7216)
v(7238)=v(17980)+rio2(3,1)*v(7216)
v(7212)=v(7176)+v(7203)
v(12612)=rio2(1,3)*v(7212)
v(17988)=v(12611)+v(12612)
v(12613)=rio2(2,3)*v(11966)+v(17988)
v(12912)=v(12911)+v(11992)*v(6746)+v(12613)*v(6755)
v(12905)=v(12904)+v(11992)*v(6747)+v(12613)*v(6756)
v(12897)=v(12896)+v(11992)*v(6748)+v(12613)*v(6757)
v(12888)=v(12887)+v(11992)*v(6749)+v(12613)*v(6758)
v(12878)=v(12877)+v(11992)*v(6750)+v(12613)*v(6759)
v(12867)=v(12866)+v(11992)*v(6751)+v(12613)*v(6760)
v(12854)=v(12853)+v(11992)*v(6752)+v(12613)*v(6761)
v(12840)=v(12839)+v(11992)*v(6753)+v(12613)*v(6762)
v(12825)=v(12824)+v(11992)*v(6754)+v(12613)*v(6763)
v(12813)=v(12812)+v(11992)*v(6919)+v(12613)*v(6941)
v(12806)=v(12805)+v(11992)*v(6920)+v(12613)*v(6942)
v(12798)=v(12797)+v(11992)*v(6921)+v(12613)*v(6943)
v(12789)=v(12788)+v(11992)*v(6922)+v(12613)*v(6944)
v(12779)=v(12778)+v(11992)*v(6924)+v(12613)*v(6945)
v(12768)=v(12767)+v(11992)*v(6926)+v(12613)*v(6947)
v(12755)=v(12754)+v(11992)*v(6905)+v(12613)*v(6906)
v(12741)=v(12740)+v(11992)*v(6927)+v(12613)*v(6928)
v(12726)=v(12725)+v(11992)*v(6928)+v(12613)*v(6948)
v(12714)=v(12713)+v(11992)*v(6907)+v(12613)*v(6929)
v(12707)=v(12706)+v(11992)*v(6908)+v(12613)*v(6930)
v(12699)=v(12698)+v(11992)*v(6909)+v(12613)*v(6931)
v(12690)=v(12689)+v(11992)*v(6910)+v(12613)*v(6932)
v(12680)=v(12679)+v(11992)*v(6912)+v(12613)*v(6933)
v(12669)=v(12668)+v(11992)*v(6914)+v(12613)*v(6935)
v(12656)=v(12655)+v(11992)*v(6916)+v(12613)*v(6937)
v(12642)=v(12641)+v(11992)*v(6917)+v(12613)*v(6939)
v(12627)=v(12626)+v(11992)*v(6918)+v(12613)*v(6940)
v(12306)=rio2(1,2)*v(7212)
v(17989)=v(12305)+v(12306)
v(12307)=rio2(2,2)*v(11966)+v(17989)
v(12606)=v(12605)+v(11983)*v(6746)+v(12307)*v(6755)
v(12599)=v(12598)+v(11983)*v(6747)+v(12307)*v(6756)
v(12591)=v(12590)+v(11983)*v(6748)+v(12307)*v(6757)
v(12582)=v(12581)+v(11983)*v(6749)+v(12307)*v(6758)
v(12572)=v(12571)+v(11983)*v(6750)+v(12307)*v(6759)
v(12561)=v(12560)+v(11983)*v(6751)+v(12307)*v(6760)
v(12548)=v(12547)+v(11983)*v(6752)+v(12307)*v(6761)
v(12534)=v(12533)+v(11983)*v(6753)+v(12307)*v(6762)
v(12519)=v(12518)+v(11983)*v(6754)+v(12307)*v(6763)
v(12507)=v(12506)+v(11983)*v(6919)+v(12307)*v(6941)
v(12500)=v(12499)+v(11983)*v(6920)+v(12307)*v(6942)
v(12492)=v(12491)+v(11983)*v(6921)+v(12307)*v(6943)
v(12483)=v(12482)+v(11983)*v(6922)+v(12307)*v(6944)
v(12473)=v(12472)+v(11983)*v(6924)+v(12307)*v(6945)
v(12462)=v(12461)+v(11983)*v(6926)+v(12307)*v(6947)
v(12449)=v(12448)+v(11983)*v(6905)+v(12307)*v(6906)
v(12435)=v(12434)+v(11983)*v(6927)+v(12307)*v(6928)
v(12420)=v(12419)+v(11983)*v(6928)+v(12307)*v(6948)
v(12408)=v(12407)+v(11983)*v(6907)+v(12307)*v(6929)
v(12401)=v(12400)+v(11983)*v(6908)+v(12307)*v(6930)
v(12393)=v(12392)+v(11983)*v(6909)+v(12307)*v(6931)
v(12384)=v(12383)+v(11983)*v(6910)+v(12307)*v(6932)
v(12374)=v(12373)+v(11983)*v(6912)+v(12307)*v(6933)
v(12363)=v(12362)+v(11983)*v(6914)+v(12307)*v(6935)
v(12350)=v(12349)+v(11983)*v(6916)+v(12307)*v(6937)
v(12336)=v(12335)+v(11983)*v(6917)+v(12307)*v(6939)
v(12321)=v(12320)+v(11983)*v(6918)+v(12307)*v(6940)
v(12000)=rio2(1,1)*v(7212)
v(17990)=v(11999)+v(12000)
v(12001)=rio2(2,1)*v(11966)+v(17990)
v(12300)=v(12299)+v(11974)*v(6746)+v(12001)*v(6755)
v(12293)=v(12292)+v(11974)*v(6747)+v(12001)*v(6756)
v(12285)=v(12284)+v(11974)*v(6748)+v(12001)*v(6757)
v(12276)=v(12275)+v(11974)*v(6749)+v(12001)*v(6758)
v(12266)=v(12265)+v(11974)*v(6750)+v(12001)*v(6759)
v(12255)=v(12254)+v(11974)*v(6751)+v(12001)*v(6760)
v(12242)=v(12241)+v(11974)*v(6752)+v(12001)*v(6761)
v(12228)=v(12227)+v(11974)*v(6753)+v(12001)*v(6762)
v(12213)=v(12212)+v(11974)*v(6754)+v(12001)*v(6763)
v(12201)=v(12200)+v(11974)*v(6919)+v(12001)*v(6941)
v(12194)=v(12193)+v(11974)*v(6920)+v(12001)*v(6942)
v(12186)=v(12185)+v(11974)*v(6921)+v(12001)*v(6943)
v(12177)=v(12176)+v(11974)*v(6922)+v(12001)*v(6944)
v(12167)=v(12166)+v(11974)*v(6924)+v(12001)*v(6945)
v(12156)=v(12155)+v(11974)*v(6926)+v(12001)*v(6947)
v(12143)=v(12142)+v(11974)*v(6905)+v(12001)*v(6906)
v(12129)=v(12128)+v(11974)*v(6927)+v(12001)*v(6928)
v(12114)=v(12113)+v(11974)*v(6928)+v(12001)*v(6948)
v(12102)=v(12101)+v(11974)*v(6907)+v(12001)*v(6929)
v(12095)=v(12094)+v(11974)*v(6908)+v(12001)*v(6930)
v(12087)=v(12086)+v(11974)*v(6909)+v(12001)*v(6931)
v(12078)=v(12077)+v(11974)*v(6910)+v(12001)*v(6932)
v(12068)=v(12067)+v(11974)*v(6912)+v(12001)*v(6933)
v(12057)=v(12056)+v(11974)*v(6914)+v(12001)*v(6935)
v(12044)=v(12043)+v(11974)*v(6916)+v(12001)*v(6937)
v(12030)=v(12029)+v(11974)*v(6917)+v(12001)*v(6939)
v(12015)=v(12014)+v(11974)*v(6918)+v(12001)*v(6940)
v(7206)=v(7180)-v(7203)
v(7325)=v(17981)+rio2(2,3)*v(7206)
v(11787)=v(12826)+v(6754)*v(7244)+v(6763)*v(7325)
v(11786)=v(12841)+v(6753)*v(7244)+v(6762)*v(7325)
v(11785)=v(12855)+v(6752)*v(7244)+v(6761)*v(7325)
v(11782)=v(12868)+v(6751)*v(7244)+v(6760)*v(7325)
v(11781)=v(12879)+v(6750)*v(7244)+v(6759)*v(7325)
v(11780)=v(12889)+v(6749)*v(7244)+v(6758)*v(7325)
v(11779)=v(12898)+v(6748)*v(7244)+v(6757)*v(7325)
v(11778)=v(12906)+v(6747)*v(7244)+v(6756)*v(7325)
v(11777)=v(12913)+v(6746)*v(7244)+v(6755)*v(7325)
v(11776)=v(12727)+v(6928)*v(7244)+v(6948)*v(7325)
v(11775)=v(12742)+v(6927)*v(7244)+v(6928)*v(7325)
v(11774)=v(12756)+v(6905)*v(7244)+v(6906)*v(7325)
v(11771)=v(12769)+v(6926)*v(7244)+v(6947)*v(7325)
v(11770)=v(12780)+v(6924)*v(7244)+v(6945)*v(7325)
v(11769)=v(12790)+v(6922)*v(7244)+v(6944)*v(7325)
v(11768)=v(12799)+v(6921)*v(7244)+v(6943)*v(7325)
v(11767)=v(12807)+v(6920)*v(7244)+v(6942)*v(7325)
v(11766)=v(12814)+v(6919)*v(7244)+v(6941)*v(7325)
v(11765)=v(12628)+v(6918)*v(7244)+v(6940)*v(7325)
v(11764)=v(12643)+v(6917)*v(7244)+v(6939)*v(7325)
v(11763)=v(12657)+v(6916)*v(7244)+v(6937)*v(7325)
v(11760)=v(12670)+v(6914)*v(7244)+v(6935)*v(7325)
v(11759)=v(12681)+v(6912)*v(7244)+v(6933)*v(7325)
v(11758)=v(12691)+v(6910)*v(7244)+v(6932)*v(7325)
v(11757)=v(12700)+v(6909)*v(7244)+v(6931)*v(7325)
v(11756)=v(12708)+v(6908)*v(7244)+v(6930)*v(7325)
v(11755)=v(12715)+v(6907)*v(7244)+v(6929)*v(7325)
v(7358)=v(6460)*v(7235)+v(6462)*v(7244)+v(6464)*v(7325)
v(7346)=v(6461)*v(7235)+v(6463)*v(7244)+v(6465)*v(7325)
v(7334)=v(6408)*v(7235)+v(6410)*v(7244)+v(6411)*v(7325)
v(7286)=v(17982)+rio2(2,2)*v(7206)
v(11822)=v(12520)+v(6754)*v(7241)+v(6763)*v(7286)
v(11821)=v(12535)+v(6753)*v(7241)+v(6762)*v(7286)
v(11820)=v(12549)+v(6752)*v(7241)+v(6761)*v(7286)
v(11817)=v(12562)+v(6751)*v(7241)+v(6760)*v(7286)
v(11816)=v(12573)+v(6750)*v(7241)+v(6759)*v(7286)
v(11815)=v(12583)+v(6749)*v(7241)+v(6758)*v(7286)
v(11814)=v(12592)+v(6748)*v(7241)+v(6757)*v(7286)
v(11813)=v(12600)+v(6747)*v(7241)+v(6756)*v(7286)
v(11812)=v(12607)+v(6746)*v(7241)+v(6755)*v(7286)
v(11811)=v(12421)+v(6928)*v(7241)+v(6948)*v(7286)
v(11810)=v(12436)+v(6927)*v(7241)+v(6928)*v(7286)
v(11809)=v(12450)+v(6905)*v(7241)+v(6906)*v(7286)
v(11806)=v(12463)+v(6926)*v(7241)+v(6947)*v(7286)
v(11805)=v(12474)+v(6924)*v(7241)+v(6945)*v(7286)
v(11804)=v(12484)+v(6922)*v(7241)+v(6944)*v(7286)
v(11803)=v(12493)+v(6921)*v(7241)+v(6943)*v(7286)
v(11802)=v(12501)+v(6920)*v(7241)+v(6942)*v(7286)
v(11801)=v(12508)+v(6919)*v(7241)+v(6941)*v(7286)
v(11800)=v(12322)+v(6918)*v(7241)+v(6940)*v(7286)
v(11799)=v(12337)+v(6917)*v(7241)+v(6939)*v(7286)
v(11798)=v(12351)+v(6916)*v(7241)+v(6937)*v(7286)
v(11795)=v(12364)+v(6914)*v(7241)+v(6935)*v(7286)
v(11794)=v(12375)+v(6912)*v(7241)+v(6933)*v(7286)
v(11793)=v(12385)+v(6910)*v(7241)+v(6932)*v(7286)
v(11792)=v(12394)+v(6909)*v(7241)+v(6931)*v(7286)
v(11791)=v(12402)+v(6908)*v(7241)+v(6930)*v(7286)
v(11790)=v(12409)+v(6907)*v(7241)+v(6929)*v(7286)
v(7319)=v(6460)*v(7232)+v(6462)*v(7241)+v(6464)*v(7286)
v(7307)=v(6461)*v(7232)+v(6463)*v(7241)+v(6465)*v(7286)
v(7295)=v(6408)*v(7232)+v(6410)*v(7241)+v(6411)*v(7286)
v(7247)=v(17983)+rio2(2,1)*v(7206)
v(11857)=v(12214)+v(6754)*v(7238)+v(6763)*v(7247)
v(11856)=v(12229)+v(6753)*v(7238)+v(6762)*v(7247)
v(11855)=v(12243)+v(6752)*v(7238)+v(6761)*v(7247)
v(11852)=v(12256)+v(6751)*v(7238)+v(6760)*v(7247)
v(11851)=v(12267)+v(6750)*v(7238)+v(6759)*v(7247)
v(11850)=v(12277)+v(6749)*v(7238)+v(6758)*v(7247)
v(11849)=v(12286)+v(6748)*v(7238)+v(6757)*v(7247)
v(11848)=v(12294)+v(6747)*v(7238)+v(6756)*v(7247)
v(11847)=v(12301)+v(6746)*v(7238)+v(6755)*v(7247)
v(11846)=v(12115)+v(6928)*v(7238)+v(6948)*v(7247)
v(11845)=v(12130)+v(6927)*v(7238)+v(6928)*v(7247)
v(11844)=v(12144)+v(6905)*v(7238)+v(6906)*v(7247)
v(11841)=v(12157)+v(6926)*v(7238)+v(6947)*v(7247)
v(11840)=v(12168)+v(6924)*v(7238)+v(6945)*v(7247)
v(11839)=v(12178)+v(6922)*v(7238)+v(6944)*v(7247)
v(11838)=v(12187)+v(6921)*v(7238)+v(6943)*v(7247)
v(11837)=v(12195)+v(6920)*v(7238)+v(6942)*v(7247)
v(11836)=v(12202)+v(6919)*v(7238)+v(6941)*v(7247)
v(11835)=v(12016)+v(6918)*v(7238)+v(6940)*v(7247)
v(11834)=v(12031)+v(6917)*v(7238)+v(6939)*v(7247)
v(11833)=v(12045)+v(6916)*v(7238)+v(6937)*v(7247)
v(11830)=v(12058)+v(6914)*v(7238)+v(6935)*v(7247)
v(11829)=v(12069)+v(6912)*v(7238)+v(6933)*v(7247)
v(11828)=v(12079)+v(6910)*v(7238)+v(6932)*v(7247)
v(11827)=v(12088)+v(6909)*v(7238)+v(6931)*v(7247)
v(11826)=v(12096)+v(6908)*v(7238)+v(6930)*v(7247)
v(11825)=v(12103)+v(6907)*v(7238)+v(6929)*v(7247)
v(7280)=v(6460)*v(7229)+v(6462)*v(7238)+v(6464)*v(7247)
v(7268)=v(6461)*v(7229)+v(6463)*v(7238)+v(6465)*v(7247)
v(7256)=v(6408)*v(7229)+v(6410)*v(7238)+v(6411)*v(7247)
v(7201)=v(17984)+v(11437)*v(7202)
v(7215)=v(7177)+v(7201)
v(7243)=v(17985)+rio2(3,3)*v(7215)
v(7240)=v(17986)+rio2(3,2)*v(7215)
v(7237)=v(17987)+rio2(3,1)*v(7215)
v(7205)=v(7177)-v(7201)
v(7324)=v(17988)+rio2(2,3)*v(7205)
v(11897)=v(12824)+v(6754)*v(7243)+v(6763)*v(7324)
v(11896)=v(12839)+v(6753)*v(7243)+v(6762)*v(7324)
v(11895)=v(12853)+v(6752)*v(7243)+v(6761)*v(7324)
v(11893)=v(12866)+v(6751)*v(7243)+v(6760)*v(7324)
v(11892)=v(12877)+v(6750)*v(7243)+v(6759)*v(7324)
v(11891)=v(12887)+v(6749)*v(7243)+v(6758)*v(7324)
v(11890)=v(12896)+v(6748)*v(7243)+v(6757)*v(7324)
v(11889)=v(12904)+v(6747)*v(7243)+v(6756)*v(7324)
v(11888)=v(12911)+v(6746)*v(7243)+v(6755)*v(7324)
v(11887)=v(12725)+v(6928)*v(7243)+v(6948)*v(7324)
v(11886)=v(12740)+v(6927)*v(7243)+v(6928)*v(7324)
v(11885)=v(12754)+v(6905)*v(7243)+v(6906)*v(7324)
v(11883)=v(12767)+v(6926)*v(7243)+v(6947)*v(7324)
v(11882)=v(12778)+v(6924)*v(7243)+v(6945)*v(7324)
v(11881)=v(12788)+v(6922)*v(7243)+v(6944)*v(7324)
v(11880)=v(12797)+v(6921)*v(7243)+v(6943)*v(7324)
v(11879)=v(12805)+v(6920)*v(7243)+v(6942)*v(7324)
v(11878)=v(12812)+v(6919)*v(7243)+v(6941)*v(7324)
v(11877)=v(12626)+v(6918)*v(7243)+v(6940)*v(7324)
v(11876)=v(12641)+v(6917)*v(7243)+v(6939)*v(7324)
v(11875)=v(12655)+v(6916)*v(7243)+v(6937)*v(7324)
v(11873)=v(12668)+v(6914)*v(7243)+v(6935)*v(7324)
v(11872)=v(12679)+v(6912)*v(7243)+v(6933)*v(7324)
v(11871)=v(12689)+v(6910)*v(7243)+v(6932)*v(7324)
v(11870)=v(12698)+v(6909)*v(7243)+v(6931)*v(7324)
v(11869)=v(12706)+v(6908)*v(7243)+v(6930)*v(7324)
v(11868)=v(12713)+v(6907)*v(7243)+v(6929)*v(7324)
v(7357)=v(6460)*v(7234)+v(6462)*v(7243)+v(6464)*v(7324)
v(7345)=v(6461)*v(7234)+v(6463)*v(7243)+v(6465)*v(7324)
v(7333)=v(6408)*v(7234)+v(6410)*v(7243)+v(6411)*v(7324)
v(7285)=v(17989)+rio2(2,2)*v(7205)
v(11928)=v(12518)+v(6754)*v(7240)+v(6763)*v(7285)
v(11927)=v(12533)+v(6753)*v(7240)+v(6762)*v(7285)
v(11926)=v(12547)+v(6752)*v(7240)+v(6761)*v(7285)
v(11924)=v(12560)+v(6751)*v(7240)+v(6760)*v(7285)
v(11923)=v(12571)+v(6750)*v(7240)+v(6759)*v(7285)
v(11922)=v(12581)+v(6749)*v(7240)+v(6758)*v(7285)
v(11921)=v(12590)+v(6748)*v(7240)+v(6757)*v(7285)
v(11920)=v(12598)+v(6747)*v(7240)+v(6756)*v(7285)
v(11919)=v(12605)+v(6746)*v(7240)+v(6755)*v(7285)
v(11918)=v(12419)+v(6928)*v(7240)+v(6948)*v(7285)
v(11917)=v(12434)+v(6927)*v(7240)+v(6928)*v(7285)
v(11916)=v(12448)+v(6905)*v(7240)+v(6906)*v(7285)
v(11914)=v(12461)+v(6926)*v(7240)+v(6947)*v(7285)
v(11913)=v(12472)+v(6924)*v(7240)+v(6945)*v(7285)
v(11912)=v(12482)+v(6922)*v(7240)+v(6944)*v(7285)
v(11911)=v(12491)+v(6921)*v(7240)+v(6943)*v(7285)
v(11910)=v(12499)+v(6920)*v(7240)+v(6942)*v(7285)
v(11909)=v(12506)+v(6919)*v(7240)+v(6941)*v(7285)
v(11908)=v(12320)+v(6918)*v(7240)+v(6940)*v(7285)
v(11907)=v(12335)+v(6917)*v(7240)+v(6939)*v(7285)
v(11906)=v(12349)+v(6916)*v(7240)+v(6937)*v(7285)
v(11904)=v(12362)+v(6914)*v(7240)+v(6935)*v(7285)
v(11903)=v(12373)+v(6912)*v(7240)+v(6933)*v(7285)
v(11902)=v(12383)+v(6910)*v(7240)+v(6932)*v(7285)
v(11901)=v(12392)+v(6909)*v(7240)+v(6931)*v(7285)
v(11900)=v(12400)+v(6908)*v(7240)+v(6930)*v(7285)
v(11899)=v(12407)+v(6907)*v(7240)+v(6929)*v(7285)
v(7318)=v(6460)*v(7231)+v(6462)*v(7240)+v(6464)*v(7285)
v(7306)=v(6461)*v(7231)+v(6463)*v(7240)+v(6465)*v(7285)
v(7294)=v(6408)*v(7231)+v(6410)*v(7240)+v(6411)*v(7285)
v(7246)=v(17990)+rio2(2,1)*v(7205)
v(11959)=v(12212)+v(6754)*v(7237)+v(6763)*v(7246)
v(11958)=v(12227)+v(6753)*v(7237)+v(6762)*v(7246)
v(11957)=v(12241)+v(6752)*v(7237)+v(6761)*v(7246)
v(11955)=v(12254)+v(6751)*v(7237)+v(6760)*v(7246)
v(11954)=v(12265)+v(6750)*v(7237)+v(6759)*v(7246)
v(11953)=v(12275)+v(6749)*v(7237)+v(6758)*v(7246)
v(11952)=v(12284)+v(6748)*v(7237)+v(6757)*v(7246)
v(11951)=v(12292)+v(6747)*v(7237)+v(6756)*v(7246)
v(11950)=v(12299)+v(6746)*v(7237)+v(6755)*v(7246)
v(11949)=v(12113)+v(6928)*v(7237)+v(6948)*v(7246)
v(11948)=v(12128)+v(6927)*v(7237)+v(6928)*v(7246)
v(11947)=v(12142)+v(6905)*v(7237)+v(6906)*v(7246)
v(11945)=v(12155)+v(6926)*v(7237)+v(6947)*v(7246)
v(11944)=v(12166)+v(6924)*v(7237)+v(6945)*v(7246)
v(11943)=v(12176)+v(6922)*v(7237)+v(6944)*v(7246)
v(11942)=v(12185)+v(6921)*v(7237)+v(6943)*v(7246)
v(11941)=v(12193)+v(6920)*v(7237)+v(6942)*v(7246)
v(11940)=v(12200)+v(6919)*v(7237)+v(6941)*v(7246)
v(11939)=v(12014)+v(6918)*v(7237)+v(6940)*v(7246)
v(11938)=v(12029)+v(6917)*v(7237)+v(6939)*v(7246)
v(11937)=v(12043)+v(6916)*v(7237)+v(6937)*v(7246)
v(11935)=v(12056)+v(6914)*v(7237)+v(6935)*v(7246)
v(11934)=v(12067)+v(6912)*v(7237)+v(6933)*v(7246)
v(11933)=v(12077)+v(6910)*v(7237)+v(6932)*v(7246)
v(11932)=v(12086)+v(6909)*v(7237)+v(6931)*v(7246)
v(11931)=v(12094)+v(6908)*v(7237)+v(6930)*v(7246)
v(11930)=v(12101)+v(6907)*v(7237)+v(6929)*v(7246)
v(7279)=v(6460)*v(7228)+v(6462)*v(7237)+v(6464)*v(7246)
v(7267)=v(6461)*v(7228)+v(6463)*v(7237)+v(6465)*v(7246)
v(7255)=v(6408)*v(7228)+v(6410)*v(7237)+v(6411)*v(7246)
v(6538)=-v(11451)+v(6531)
v(6537)=-v(11452)+v(6532)
v(6528)=v(11451)+v(6531)
v(6527)=-v(11453)+v(6522)
v(6519)=v(11452)+v(6532)
v(6518)=v(11453)+v(6522)
v(6516)=rio2(1,1)*v(6517)+rio2(2,1)*v(6518)+rio2(3,1)*v(6519)
v(6520)=rio2(1,2)*v(6517)+rio2(2,2)*v(6518)+rio2(3,2)*v(6519)
v(6521)=rio2(1,3)*v(6517)+rio2(2,3)*v(6518)+rio2(3,3)*v(6519)
v(6525)=rio2(2,1)*v(6526)+rio2(1,1)*v(6527)+rio2(3,1)*v(6528)
v(6529)=rio2(2,2)*v(6526)+rio2(1,2)*v(6527)+rio2(3,2)*v(6528)
v(6530)=rio2(2,3)*v(6526)+rio2(1,3)*v(6527)+rio2(3,3)*v(6528)
v(6535)=rio2(3,1)*v(6536)+rio2(1,1)*v(6537)+rio2(2,1)*v(6538)
v(12298)=v(6535)*v(8444)+v(6525)*v(8453)+v(6516)*v(8460)
v(12291)=v(6535)*v(8443)+v(6525)*v(8449)+v(6516)*v(8548)
v(12290)=v(6535)*v(8442)+v(6525)*v(8448)+v(6516)*v(8461)
v(12283)=v(6535)*v(8441)+v(6525)*v(8485)+v(6516)*v(8547)
v(12282)=v(6535)*v(8440)+v(6525)*v(8450)+v(6516)*v(8546)
v(12281)=v(6535)*v(8439)+v(6525)*v(8454)+v(6516)*v(8462)
v(12274)=v(6535)*v(8399)+v(6525)*v(8418)+v(6516)*v(8430)
v(12273)=v(6535)*v(8398)+v(6525)*v(8417)+v(6516)*v(8426)
v(12272)=v(6535)*v(8396)+v(6525)*v(8415)+v(6516)*v(8425)
v(12271)=v(6535)*v(8394)+v(6525)*v(8413)+v(6516)*v(8424)
v(12264)=v(6535)*v(8393)+v(6525)*v(8410)+v(6516)*v(8544)
v(12263)=v(6535)*v(8392)+v(6525)*v(8409)+v(6516)*v(8431)
v(12262)=v(6535)*v(8391)+v(6525)*v(8408)+v(6516)*v(8543)
v(12261)=v(6535)*v(8389)+v(6525)*v(8407)+v(6516)*v(8542)
v(12260)=v(6535)*v(8388)+v(6525)*v(8406)+v(6516)*v(8463)
v(12253)=v(6535)*v(8387)+v(6525)*v(8484)+v(6516)*v(8541)
v(12252)=v(6535)*v(8386)+v(6525)*v(8411)+v(6516)*v(8540)
v(12251)=v(6535)*v(8385)+v(6525)*v(8419)+v(6516)*v(8432)
v(12250)=v(6535)*v(8384)+v(6525)*v(8483)+v(6516)*v(8538)
v(12249)=v(6535)*v(8383)+v(6525)*v(8451)+v(6516)*v(8537)
v(12248)=v(6535)*v(8382)+v(6525)*v(8455)+v(6516)*v(8464)
v(12247)=v(6535)*v(8295)+v(6525)*v(8341)+v(6516)*v(8372)
v(12240)=v(6535)*v(8294)+v(6525)*v(8340)+v(6516)*v(8368)
v(12239)=v(6535)*v(8292)+v(6525)*v(8338)+v(6516)*v(8367)
v(12238)=v(6535)*v(8290)+v(6525)*v(8336)+v(6516)*v(8366)
v(12237)=v(6535)*v(8289)+v(6525)*v(8335)+v(6516)*v(8362)
v(12236)=v(6535)*v(8287)+v(6525)*v(8333)+v(6516)*v(8361)
v(12235)=v(6535)*v(8285)+v(6525)*v(8331)+v(6516)*v(8360)
v(12234)=v(6535)*v(8284)+v(6525)*v(8314)+v(6516)*v(8523)
v(12233)=v(6535)*v(8283)+v(6525)*v(8313)+v(6516)*v(8373)
v(12226)=v(6535)*v(8282)+v(6525)*v(8312)+v(6516)*v(8522)
v(12225)=v(6535)*v(8280)+v(6525)*v(8311)+v(6516)*v(8521)
v(12224)=v(6535)*v(8279)+v(6525)*v(8310)+v(6516)*v(8433)
v(12223)=v(6535)*v(8278)+v(6525)*v(8309)+v(6516)*v(8520)
v(12222)=v(6535)*v(8276)+v(6525)*v(8308)+v(6516)*v(8519)
v(12221)=v(6535)*v(8275)+v(6525)*v(8307)+v(6516)*v(8465)
v(12220)=v(6535)*v(8274)+v(6525)*v(8469)+v(6516)*v(8494)
v(12219)=v(6535)*v(8273)+v(6525)*v(8315)+v(6516)*v(8493)
v(12218)=v(6535)*v(8272)+v(6525)*v(8342)+v(6516)*v(8374)
v(12211)=v(6535)*v(8271)+v(6525)*v(8468)+v(6516)*v(8491)
v(12210)=v(6535)*v(8270)+v(6525)*v(8412)+v(6516)*v(8490)
v(12209)=v(6535)*v(8269)+v(6525)*v(8420)+v(6516)*v(8434)
v(12208)=v(6535)*v(8268)+v(6525)*v(8467)+v(6516)*v(8488)
v(12207)=v(6535)*v(8267)+v(6525)*v(8452)+v(6516)*v(8487)
v(12206)=v(6535)*v(8266)+v(6525)*v(8456)+v(6516)*v(8466)
v(12199)=v(6535)*v(9509)+v(6525)*v(9554)+v(6516)*v(9604)
v(12192)=v(6535)*v(9384)+v(6525)*v(9419)+v(6516)*v(9602)
v(12191)=v(6535)*v(9382)+v(6525)*v(9417)+v(6516)*v(9601)
v(12184)=v(6535)*v(9269)+v(6525)*v(9414)+v(6516)*v(9576)
v(12183)=v(6535)*v(9267)+v(6525)*v(9413)+v(6516)*v(9575)
v(12182)=v(6535)*v(9266)+v(6525)*v(9411)+v(6516)*v(9574)
v(12175)=v(6535)*v(9507)+v(6525)*v(9552)+v(6516)*v(9572)
v(12174)=v(6535)*v(9271)+v(6525)*v(9416)+v(6516)*v(9571)
v(12173)=v(6535)*v(9386)+v(6525)*v(9421)+v(6516)*v(9570)
v(12172)=v(6535)*v(9506)+v(6525)*v(9551)+v(6516)*v(9569)
v(12165)=v(6535)*v(9381)+v(6525)*v(9410)+v(6516)*v(9560)
v(12164)=v(6535)*v(9380)+v(6525)*v(9409)+v(6516)*v(9559)
v(12163)=v(6535)*v(9273)+v(6525)*v(9407)+v(6516)*v(9557)
v(12162)=v(6535)*v(9378)+v(6525)*v(9406)+v(6516)*v(9556)
v(12161)=v(6535)*v(9376)+v(6525)*v(9404)+v(6516)*v(9555)
v(12154)=v(6535)*v(9265)+v(6525)*v(9394)+v(6516)*v(9516)
v(12153)=v(6535)*v(9264)+v(6525)*v(9393)+v(6516)*v(9515)
v(12152)=v(6535)*v(9262)+v(6525)*v(9391)+v(6516)*v(9514)
v(12151)=v(6535)*v(9260)+v(6525)*v(9389)+v(6516)*v(9512)
v(12150)=v(6535)*v(9258)+v(6525)*v(9388)+v(6516)*v(9511)
v(12149)=v(6535)*v(9257)+v(6525)*v(9387)+v(6516)*v(9510)
v(12148)=v(6535)*v(9150)+v(6525)*v(9207)+v(6516)*v(9224)
v(12141)=v(6535)*v(9149)+v(6525)*v(9206)+v(6516)*v(9223)
v(12140)=v(6535)*v(9148)+v(6525)*v(9204)+v(6516)*v(9221)
v(12139)=v(6535)*v(9147)+v(6525)*v(9203)+v(6516)*v(9219)
v(12138)=v(6535)*v(9145)+v(6525)*v(9201)+v(6516)*v(9217)
v(12137)=v(6535)*v(9144)+v(6525)*v(9200)+v(6516)*v(9216)
v(12136)=v(6535)*v(9143)+v(6525)*v(9199)+v(6516)*v(9215)
v(12135)=v(6535)*v(9142)+v(6516)*v(9197)+v(6525)*v(9198)
v(12134)=v(6535)*v(9141)+v(6525)*v(9197)+v(6516)*v(9207)
v(12127)=v(6535)*v(9140)+v(6525)*v(9196)+v(6516)*v(9206)
v(12126)=v(6535)*v(9139)+v(6525)*v(9194)+v(6516)*v(9204)
v(12125)=v(6535)*v(9137)+v(6525)*v(9192)+v(6516)*v(9203)
v(12124)=v(6535)*v(9135)+v(6525)*v(9190)+v(6516)*v(9201)
v(12123)=v(6535)*v(9134)+v(6525)*v(9189)+v(6516)*v(9200)
v(12122)=v(6535)*v(9133)+v(6525)*v(9188)+v(6516)*v(9199)
v(12121)=v(6516)*v(9130)+v(6525)*v(9131)+v(6535)*v(9132)
v(12120)=v(6535)*v(9131)+v(6516)*v(9141)+v(6525)*v(9142)
v(12119)=v(6535)*v(9130)+v(6525)*v(9141)+v(6516)*v(9150)
v(12112)=v(6535)*v(9129)+v(6525)*v(9140)+v(6516)*v(9149)
v(12111)=v(6535)*v(9127)+v(6525)*v(9139)+v(6516)*v(9148)
v(12110)=v(6535)*v(9125)+v(6525)*v(9137)+v(6516)*v(9147)
v(12109)=v(6535)*v(9123)+v(6525)*v(9135)+v(6516)*v(9145)
v(12108)=v(6535)*v(9122)+v(6525)*v(9134)+v(6516)*v(9144)
v(12107)=v(6535)*v(9121)+v(6525)*v(9133)+v(6516)*v(9143)
v(12100)=v(6535)*v(9366)+v(6525)*v(9497)+v(6516)*v(9740)
v(12093)=v(6535)*v(9363)+v(6525)*v(9494)+v(6516)*v(9737)
v(12092)=v(6535)*v(9360)+v(6525)*v(9491)+v(6516)*v(9735)
v(12085)=v(6535)*v(9358)+v(6525)*v(9489)+v(6516)*v(9710)
v(12084)=v(6535)*v(9355)+v(6525)*v(9487)+v(6516)*v(9708)
v(12083)=v(6535)*v(9353)+v(6525)*v(9485)+v(6516)*v(9707)
v(12076)=v(6535)*v(9351)+v(6525)*v(9483)+v(6516)*v(9705)
v(12075)=v(6535)*v(9349)+v(6525)*v(9481)+v(6516)*v(9703)
v(12074)=v(6535)*v(9347)+v(6525)*v(9480)+v(6516)*v(9702)
v(12073)=v(6535)*v(9345)+v(6525)*v(9478)+v(6516)*v(9701)
v(12066)=v(6535)*v(9343)+v(6525)*v(9476)+v(6516)*v(9699)
v(12065)=v(6535)*v(9341)+v(6525)*v(9474)+v(6516)*v(9697)
v(12064)=v(6535)*v(9340)+v(6525)*v(9473)+v(6516)*v(9696)
v(12063)=v(6535)*v(9338)+v(6525)*v(9472)+v(6516)*v(9695)
v(12062)=v(6535)*v(9336)+v(6525)*v(9470)+v(6516)*v(9694)
v(12055)=v(6535)*v(9334)+v(6525)*v(9468)+v(6516)*v(9666)
v(12054)=v(6535)*v(9332)+v(6525)*v(9466)+v(6516)*v(9664)
v(12053)=v(6535)*v(9331)+v(6525)*v(9465)+v(6516)*v(9663)
v(12052)=v(6535)*v(9330)+v(6525)*v(9464)+v(6516)*v(9662)
v(12051)=v(6535)*v(9328)+v(6525)*v(9463)+v(6516)*v(9661)
v(12050)=v(6535)*v(9326)+v(6525)*v(9461)+v(6516)*v(9660)
v(12049)=v(6535)*v(9324)+v(6525)*v(9459)+v(6516)*v(9658)
v(12042)=v(6535)*v(9322)+v(6525)*v(9457)+v(6516)*v(9656)
v(12041)=v(6535)*v(9321)+v(6525)*v(9456)+v(6516)*v(9655)
v(12040)=v(6535)*v(9320)+v(6525)*v(9455)+v(6516)*v(9654)
v(12039)=v(6535)*v(9319)+v(6525)*v(9454)+v(6516)*v(9653)
v(12038)=v(6535)*v(9318)+v(6525)*v(9453)+v(6516)*v(9652)
v(12037)=v(6535)*v(9317)+v(6525)*v(9452)+v(6516)*v(9651)
v(12036)=v(6535)*v(9303)+v(6525)*v(9439)+v(6516)*v(9650)
v(12035)=v(6535)*v(9301)+v(6525)*v(9437)+v(6516)*v(9649)
v(12028)=v(6535)*v(9300)+v(6525)*v(9436)+v(6516)*v(9648)
v(12027)=v(6535)*v(9299)+v(6525)*v(9435)+v(6516)*v(9647)
v(12026)=v(6535)*v(9298)+v(6525)*v(9434)+v(6516)*v(9646)
v(12025)=v(6535)*v(9297)+v(6525)*v(9433)+v(6516)*v(9645)
v(12024)=v(6535)*v(9296)+v(6525)*v(9432)+v(6516)*v(9644)
v(12023)=v(6535)*v(9295)+v(6525)*v(9431)+v(6516)*v(9643)
v(12022)=v(6535)*v(9283)+v(6525)*v(9430)+v(6516)*v(9613)
v(12021)=v(6535)*v(9281)+v(6525)*v(9429)+v(6516)*v(9612)
v(12020)=v(6535)*v(9280)+v(6525)*v(9428)+v(6516)*v(9611)
v(12013)=v(6535)*v(9279)+v(6525)*v(9427)+v(6516)*v(9610)
v(12012)=v(6535)*v(9278)+v(6525)*v(9426)+v(6516)*v(9609)
v(12011)=v(6535)*v(9277)+v(6525)*v(9425)+v(6516)*v(9608)
v(12010)=v(6535)*v(9276)+v(6525)*v(9424)+v(6516)*v(9607)
v(12009)=v(6535)*v(9275)+v(6525)*v(9423)+v(6516)*v(9606)
v(12008)=v(6535)*v(9274)+v(6525)*v(9422)+v(6516)*v(9605)
v(7284)=v(6516)*v(6894)+v(6525)*v(6918)+v(6535)*v(6940)
v(7283)=v(6516)*v(6893)+v(6525)*v(6917)+v(6535)*v(6939)
v(7282)=v(6516)*v(6892)+v(6525)*v(6916)+v(6535)*v(6937)
v(7278)=v(6516)*v(6891)+v(6525)*v(6914)+v(6535)*v(6935)
v(7277)=v(6516)*v(6889)+v(6525)*v(6912)+v(6535)*v(6933)
v(7276)=v(6516)*v(6887)+v(6525)*v(6910)+v(6535)*v(6932)
v(7275)=v(6516)*v(6885)+v(6525)*v(6909)+v(6535)*v(6931)
v(7274)=v(6516)*v(6884)+v(6525)*v(6908)+v(6535)*v(6930)
v(7273)=v(6516)*v(6883)+v(6525)*v(6907)+v(6535)*v(6929)
v(7272)=v(6516)*v(6906)+v(6525)*v(6928)+v(6535)*v(6948)
v(7271)=v(6516)*v(6905)+v(6525)*v(6927)+v(6535)*v(6928)
v(7270)=v(6516)*v(6904)+v(6525)*v(6905)+v(6535)*v(6906)
v(7266)=v(6516)*v(6903)+v(6525)*v(6926)+v(6535)*v(6947)
v(7265)=v(6516)*v(6901)+v(6525)*v(6924)+v(6535)*v(6945)
v(7264)=v(6516)*v(6899)+v(6525)*v(6922)+v(6535)*v(6944)
v(7263)=v(6516)*v(6897)+v(6525)*v(6921)+v(6535)*v(6943)
v(7262)=v(6516)*v(6896)+v(6525)*v(6920)+v(6535)*v(6942)
v(7261)=v(6516)*v(6895)+v(6525)*v(6919)+v(6535)*v(6941)
v(7260)=v(6516)*v(6745)+v(6525)*v(6754)+v(6535)*v(6763)
v(7259)=v(6516)*v(6744)+v(6525)*v(6753)+v(6535)*v(6762)
v(7258)=v(6516)*v(6743)+v(6525)*v(6752)+v(6535)*v(6761)
v(7254)=v(6516)*v(6742)+v(6525)*v(6751)+v(6535)*v(6760)
v(7253)=v(6516)*v(6741)+v(6525)*v(6750)+v(6535)*v(6759)
v(7252)=v(6516)*v(6740)+v(6525)*v(6749)+v(6535)*v(6758)
v(7251)=v(6516)*v(6739)+v(6525)*v(6748)+v(6535)*v(6757)
v(7250)=v(6516)*v(6738)+v(6525)*v(6747)+v(6535)*v(6756)
v(7249)=v(6516)*v(6737)+v(6525)*v(6746)+v(6535)*v(6755)
v(6657)=v(6408)*v(6516)+v(6410)*v(6525)+v(6411)*v(6535)
v(6651)=v(6461)*v(6516)+v(6463)*v(6525)+v(6465)*v(6535)
v(6645)=v(6460)*v(6516)+v(6462)*v(6525)+v(6464)*v(6535)
v(6539)=rio2(3,2)*v(6536)+rio2(1,2)*v(6537)+rio2(2,2)*v(6538)
v(12604)=v(6539)*v(8444)+v(6529)*v(8453)+v(6520)*v(8460)
v(12597)=v(6539)*v(8443)+v(6529)*v(8449)+v(6520)*v(8548)
v(12596)=v(6539)*v(8442)+v(6529)*v(8448)+v(6520)*v(8461)
v(12589)=v(6539)*v(8441)+v(6529)*v(8485)+v(6520)*v(8547)
v(12588)=v(6539)*v(8440)+v(6529)*v(8450)+v(6520)*v(8546)
v(12587)=v(6539)*v(8439)+v(6529)*v(8454)+v(6520)*v(8462)
v(12580)=v(6539)*v(8399)+v(6529)*v(8418)+v(6520)*v(8430)
v(12579)=v(6539)*v(8398)+v(6529)*v(8417)+v(6520)*v(8426)
v(12578)=v(6539)*v(8396)+v(6529)*v(8415)+v(6520)*v(8425)
v(12577)=v(6539)*v(8394)+v(6529)*v(8413)+v(6520)*v(8424)
v(12570)=v(6539)*v(8393)+v(6529)*v(8410)+v(6520)*v(8544)
v(12569)=v(6539)*v(8392)+v(6529)*v(8409)+v(6520)*v(8431)
v(12568)=v(6539)*v(8391)+v(6529)*v(8408)+v(6520)*v(8543)
v(12567)=v(6539)*v(8389)+v(6529)*v(8407)+v(6520)*v(8542)
v(12566)=v(6539)*v(8388)+v(6529)*v(8406)+v(6520)*v(8463)
v(12559)=v(6539)*v(8387)+v(6529)*v(8484)+v(6520)*v(8541)
v(12558)=v(6539)*v(8386)+v(6529)*v(8411)+v(6520)*v(8540)
v(12557)=v(6539)*v(8385)+v(6529)*v(8419)+v(6520)*v(8432)
v(12556)=v(6539)*v(8384)+v(6529)*v(8483)+v(6520)*v(8538)
v(12555)=v(6539)*v(8383)+v(6529)*v(8451)+v(6520)*v(8537)
v(12554)=v(6539)*v(8382)+v(6529)*v(8455)+v(6520)*v(8464)
v(12553)=v(6539)*v(8295)+v(6529)*v(8341)+v(6520)*v(8372)
v(12546)=v(6539)*v(8294)+v(6529)*v(8340)+v(6520)*v(8368)
v(12545)=v(6539)*v(8292)+v(6529)*v(8338)+v(6520)*v(8367)
v(12544)=v(6539)*v(8290)+v(6529)*v(8336)+v(6520)*v(8366)
v(12543)=v(6539)*v(8289)+v(6529)*v(8335)+v(6520)*v(8362)
v(12542)=v(6539)*v(8287)+v(6529)*v(8333)+v(6520)*v(8361)
v(12541)=v(6539)*v(8285)+v(6529)*v(8331)+v(6520)*v(8360)
v(12540)=v(6539)*v(8284)+v(6529)*v(8314)+v(6520)*v(8523)
v(12539)=v(6539)*v(8283)+v(6529)*v(8313)+v(6520)*v(8373)
v(12532)=v(6539)*v(8282)+v(6529)*v(8312)+v(6520)*v(8522)
v(12531)=v(6539)*v(8280)+v(6529)*v(8311)+v(6520)*v(8521)
v(12530)=v(6539)*v(8279)+v(6529)*v(8310)+v(6520)*v(8433)
v(12529)=v(6539)*v(8278)+v(6529)*v(8309)+v(6520)*v(8520)
v(12528)=v(6539)*v(8276)+v(6529)*v(8308)+v(6520)*v(8519)
v(12527)=v(6539)*v(8275)+v(6529)*v(8307)+v(6520)*v(8465)
v(12526)=v(6539)*v(8274)+v(6529)*v(8469)+v(6520)*v(8494)
v(12525)=v(6539)*v(8273)+v(6529)*v(8315)+v(6520)*v(8493)
v(12524)=v(6539)*v(8272)+v(6529)*v(8342)+v(6520)*v(8374)
v(12517)=v(6539)*v(8271)+v(6529)*v(8468)+v(6520)*v(8491)
v(12516)=v(6539)*v(8270)+v(6529)*v(8412)+v(6520)*v(8490)
v(12515)=v(6539)*v(8269)+v(6529)*v(8420)+v(6520)*v(8434)
v(12514)=v(6539)*v(8268)+v(6529)*v(8467)+v(6520)*v(8488)
v(12513)=v(6539)*v(8267)+v(6529)*v(8452)+v(6520)*v(8487)
v(12512)=v(6539)*v(8266)+v(6529)*v(8456)+v(6520)*v(8466)
v(12505)=v(6539)*v(9509)+v(6529)*v(9554)+v(6520)*v(9604)
v(12498)=v(6539)*v(9384)+v(6529)*v(9419)+v(6520)*v(9602)
v(12497)=v(6539)*v(9382)+v(6529)*v(9417)+v(6520)*v(9601)
v(12490)=v(6539)*v(9269)+v(6529)*v(9414)+v(6520)*v(9576)
v(12489)=v(6539)*v(9267)+v(6529)*v(9413)+v(6520)*v(9575)
v(12488)=v(6539)*v(9266)+v(6529)*v(9411)+v(6520)*v(9574)
v(12481)=v(6539)*v(9507)+v(6529)*v(9552)+v(6520)*v(9572)
v(12480)=v(6539)*v(9271)+v(6529)*v(9416)+v(6520)*v(9571)
v(12479)=v(6539)*v(9386)+v(6529)*v(9421)+v(6520)*v(9570)
v(12478)=v(6539)*v(9506)+v(6529)*v(9551)+v(6520)*v(9569)
v(12471)=v(6539)*v(9381)+v(6529)*v(9410)+v(6520)*v(9560)
v(12470)=v(6539)*v(9380)+v(6529)*v(9409)+v(6520)*v(9559)
v(12469)=v(6539)*v(9273)+v(6529)*v(9407)+v(6520)*v(9557)
v(12468)=v(6539)*v(9378)+v(6529)*v(9406)+v(6520)*v(9556)
v(12467)=v(6539)*v(9376)+v(6529)*v(9404)+v(6520)*v(9555)
v(12460)=v(6539)*v(9265)+v(6529)*v(9394)+v(6520)*v(9516)
v(12459)=v(6539)*v(9264)+v(6529)*v(9393)+v(6520)*v(9515)
v(12458)=v(6539)*v(9262)+v(6529)*v(9391)+v(6520)*v(9514)
v(12457)=v(6539)*v(9260)+v(6529)*v(9389)+v(6520)*v(9512)
v(12456)=v(6539)*v(9258)+v(6529)*v(9388)+v(6520)*v(9511)
v(12455)=v(6539)*v(9257)+v(6529)*v(9387)+v(6520)*v(9510)
v(12454)=v(6539)*v(9150)+v(6529)*v(9207)+v(6520)*v(9224)
v(12447)=v(6539)*v(9149)+v(6529)*v(9206)+v(6520)*v(9223)
v(12446)=v(6539)*v(9148)+v(6529)*v(9204)+v(6520)*v(9221)
v(12445)=v(6539)*v(9147)+v(6529)*v(9203)+v(6520)*v(9219)
v(12444)=v(6539)*v(9145)+v(6529)*v(9201)+v(6520)*v(9217)
v(12443)=v(6539)*v(9144)+v(6529)*v(9200)+v(6520)*v(9216)
v(12442)=v(6539)*v(9143)+v(6529)*v(9199)+v(6520)*v(9215)
v(12441)=v(6539)*v(9142)+v(6520)*v(9197)+v(6529)*v(9198)
v(12440)=v(6539)*v(9141)+v(6529)*v(9197)+v(6520)*v(9207)
v(12433)=v(6539)*v(9140)+v(6529)*v(9196)+v(6520)*v(9206)
v(12432)=v(6539)*v(9139)+v(6529)*v(9194)+v(6520)*v(9204)
v(12431)=v(6539)*v(9137)+v(6529)*v(9192)+v(6520)*v(9203)
v(12430)=v(6539)*v(9135)+v(6529)*v(9190)+v(6520)*v(9201)
v(12429)=v(6539)*v(9134)+v(6529)*v(9189)+v(6520)*v(9200)
v(12428)=v(6539)*v(9133)+v(6529)*v(9188)+v(6520)*v(9199)
v(12427)=v(6520)*v(9130)+v(6529)*v(9131)+v(6539)*v(9132)
v(12426)=v(6539)*v(9131)+v(6520)*v(9141)+v(6529)*v(9142)
v(12425)=v(6539)*v(9130)+v(6529)*v(9141)+v(6520)*v(9150)
v(12418)=v(6539)*v(9129)+v(6529)*v(9140)+v(6520)*v(9149)
v(12417)=v(6539)*v(9127)+v(6529)*v(9139)+v(6520)*v(9148)
v(12416)=v(6539)*v(9125)+v(6529)*v(9137)+v(6520)*v(9147)
v(12415)=v(6539)*v(9123)+v(6529)*v(9135)+v(6520)*v(9145)
v(12414)=v(6539)*v(9122)+v(6529)*v(9134)+v(6520)*v(9144)
v(12413)=v(6539)*v(9121)+v(6529)*v(9133)+v(6520)*v(9143)
v(12406)=v(6539)*v(9366)+v(6529)*v(9497)+v(6520)*v(9740)
v(12399)=v(6539)*v(9363)+v(6529)*v(9494)+v(6520)*v(9737)
v(12398)=v(6539)*v(9360)+v(6529)*v(9491)+v(6520)*v(9735)
v(12391)=v(6539)*v(9358)+v(6529)*v(9489)+v(6520)*v(9710)
v(12390)=v(6539)*v(9355)+v(6529)*v(9487)+v(6520)*v(9708)
v(12389)=v(6539)*v(9353)+v(6529)*v(9485)+v(6520)*v(9707)
v(12382)=v(6539)*v(9351)+v(6529)*v(9483)+v(6520)*v(9705)
v(12381)=v(6539)*v(9349)+v(6529)*v(9481)+v(6520)*v(9703)
v(12380)=v(6539)*v(9347)+v(6529)*v(9480)+v(6520)*v(9702)
v(12379)=v(6539)*v(9345)+v(6529)*v(9478)+v(6520)*v(9701)
v(12372)=v(6539)*v(9343)+v(6529)*v(9476)+v(6520)*v(9699)
v(12371)=v(6539)*v(9341)+v(6529)*v(9474)+v(6520)*v(9697)
v(12370)=v(6539)*v(9340)+v(6529)*v(9473)+v(6520)*v(9696)
v(12369)=v(6539)*v(9338)+v(6529)*v(9472)+v(6520)*v(9695)
v(12368)=v(6539)*v(9336)+v(6529)*v(9470)+v(6520)*v(9694)
v(12361)=v(6539)*v(9334)+v(6529)*v(9468)+v(6520)*v(9666)
v(12360)=v(6539)*v(9332)+v(6529)*v(9466)+v(6520)*v(9664)
v(12359)=v(6539)*v(9331)+v(6529)*v(9465)+v(6520)*v(9663)
v(12358)=v(6539)*v(9330)+v(6529)*v(9464)+v(6520)*v(9662)
v(12357)=v(6539)*v(9328)+v(6529)*v(9463)+v(6520)*v(9661)
v(12356)=v(6539)*v(9326)+v(6529)*v(9461)+v(6520)*v(9660)
v(12355)=v(6539)*v(9324)+v(6529)*v(9459)+v(6520)*v(9658)
v(12348)=v(6539)*v(9322)+v(6529)*v(9457)+v(6520)*v(9656)
v(12347)=v(6539)*v(9321)+v(6529)*v(9456)+v(6520)*v(9655)
v(12346)=v(6539)*v(9320)+v(6529)*v(9455)+v(6520)*v(9654)
v(12345)=v(6539)*v(9319)+v(6529)*v(9454)+v(6520)*v(9653)
v(12344)=v(6539)*v(9318)+v(6529)*v(9453)+v(6520)*v(9652)
v(12343)=v(6539)*v(9317)+v(6529)*v(9452)+v(6520)*v(9651)
v(12342)=v(6539)*v(9303)+v(6529)*v(9439)+v(6520)*v(9650)
v(12341)=v(6539)*v(9301)+v(6529)*v(9437)+v(6520)*v(9649)
v(12334)=v(6539)*v(9300)+v(6529)*v(9436)+v(6520)*v(9648)
v(12333)=v(6539)*v(9299)+v(6529)*v(9435)+v(6520)*v(9647)
v(12332)=v(6539)*v(9298)+v(6529)*v(9434)+v(6520)*v(9646)
v(12331)=v(6539)*v(9297)+v(6529)*v(9433)+v(6520)*v(9645)
v(12330)=v(6539)*v(9296)+v(6529)*v(9432)+v(6520)*v(9644)
v(12329)=v(6539)*v(9295)+v(6529)*v(9431)+v(6520)*v(9643)
v(12328)=v(6539)*v(9283)+v(6529)*v(9430)+v(6520)*v(9613)
v(12327)=v(6539)*v(9281)+v(6529)*v(9429)+v(6520)*v(9612)
v(12326)=v(6539)*v(9280)+v(6529)*v(9428)+v(6520)*v(9611)
v(12319)=v(6539)*v(9279)+v(6529)*v(9427)+v(6520)*v(9610)
v(12318)=v(6539)*v(9278)+v(6529)*v(9426)+v(6520)*v(9609)
v(12317)=v(6539)*v(9277)+v(6529)*v(9425)+v(6520)*v(9608)
v(12316)=v(6539)*v(9276)+v(6529)*v(9424)+v(6520)*v(9607)
v(12315)=v(6539)*v(9275)+v(6529)*v(9423)+v(6520)*v(9606)
v(12314)=v(6539)*v(9274)+v(6529)*v(9422)+v(6520)*v(9605)
v(7323)=v(6520)*v(6894)+v(6529)*v(6918)+v(6539)*v(6940)
v(7322)=v(6520)*v(6893)+v(6529)*v(6917)+v(6539)*v(6939)
v(7321)=v(6520)*v(6892)+v(6529)*v(6916)+v(6539)*v(6937)
v(7317)=v(6520)*v(6891)+v(6529)*v(6914)+v(6539)*v(6935)
v(7316)=v(6520)*v(6889)+v(6529)*v(6912)+v(6539)*v(6933)
v(7315)=v(6520)*v(6887)+v(6529)*v(6910)+v(6539)*v(6932)
v(7314)=v(6520)*v(6885)+v(6529)*v(6909)+v(6539)*v(6931)
v(7313)=v(6520)*v(6884)+v(6529)*v(6908)+v(6539)*v(6930)
v(7312)=v(6520)*v(6883)+v(6529)*v(6907)+v(6539)*v(6929)
v(7311)=v(6520)*v(6906)+v(6529)*v(6928)+v(6539)*v(6948)
v(7310)=v(6520)*v(6905)+v(6529)*v(6927)+v(6539)*v(6928)
v(7309)=v(6520)*v(6904)+v(6529)*v(6905)+v(6539)*v(6906)
v(7305)=v(6520)*v(6903)+v(6529)*v(6926)+v(6539)*v(6947)
v(7304)=v(6520)*v(6901)+v(6529)*v(6924)+v(6539)*v(6945)
v(7303)=v(6520)*v(6899)+v(6529)*v(6922)+v(6539)*v(6944)
v(7302)=v(6520)*v(6897)+v(6529)*v(6921)+v(6539)*v(6943)
v(7301)=v(6520)*v(6896)+v(6529)*v(6920)+v(6539)*v(6942)
v(7300)=v(6520)*v(6895)+v(6529)*v(6919)+v(6539)*v(6941)
v(7299)=v(6520)*v(6745)+v(6529)*v(6754)+v(6539)*v(6763)
v(7298)=v(6520)*v(6744)+v(6529)*v(6753)+v(6539)*v(6762)
v(7297)=v(6520)*v(6743)+v(6529)*v(6752)+v(6539)*v(6761)
v(7293)=v(6520)*v(6742)+v(6529)*v(6751)+v(6539)*v(6760)
v(7292)=v(6520)*v(6741)+v(6529)*v(6750)+v(6539)*v(6759)
v(7291)=v(6520)*v(6740)+v(6529)*v(6749)+v(6539)*v(6758)
v(7290)=v(6520)*v(6739)+v(6529)*v(6748)+v(6539)*v(6757)
v(7289)=v(6520)*v(6738)+v(6529)*v(6747)+v(6539)*v(6756)
v(7288)=v(6520)*v(6737)+v(6529)*v(6746)+v(6539)*v(6755)
v(6658)=v(6408)*v(6520)+v(6410)*v(6529)+v(6411)*v(6539)
v(6652)=v(6461)*v(6520)+v(6463)*v(6529)+v(6465)*v(6539)
v(6646)=v(6460)*v(6520)+v(6462)*v(6529)+v(6464)*v(6539)
v(6540)=rio2(3,3)*v(6536)+rio2(1,3)*v(6537)+rio2(2,3)*v(6538)
v(12910)=v(6540)*v(8444)+v(6530)*v(8453)+v(6521)*v(8460)
v(12903)=v(6540)*v(8443)+v(6530)*v(8449)+v(6521)*v(8548)
v(12902)=v(6540)*v(8442)+v(6530)*v(8448)+v(6521)*v(8461)
v(12895)=v(6540)*v(8441)+v(6530)*v(8485)+v(6521)*v(8547)
v(12894)=v(6540)*v(8440)+v(6530)*v(8450)+v(6521)*v(8546)
v(12893)=v(6540)*v(8439)+v(6530)*v(8454)+v(6521)*v(8462)
v(12886)=v(6540)*v(8399)+v(6530)*v(8418)+v(6521)*v(8430)
v(12885)=v(6540)*v(8398)+v(6530)*v(8417)+v(6521)*v(8426)
v(12884)=v(6540)*v(8396)+v(6530)*v(8415)+v(6521)*v(8425)
v(12883)=v(6540)*v(8394)+v(6530)*v(8413)+v(6521)*v(8424)
v(12876)=v(6540)*v(8393)+v(6530)*v(8410)+v(6521)*v(8544)
v(12875)=v(6540)*v(8392)+v(6530)*v(8409)+v(6521)*v(8431)
v(12874)=v(6540)*v(8391)+v(6530)*v(8408)+v(6521)*v(8543)
v(12873)=v(6540)*v(8389)+v(6530)*v(8407)+v(6521)*v(8542)
v(12872)=v(6540)*v(8388)+v(6530)*v(8406)+v(6521)*v(8463)
v(12865)=v(6540)*v(8387)+v(6530)*v(8484)+v(6521)*v(8541)
v(12864)=v(6540)*v(8386)+v(6530)*v(8411)+v(6521)*v(8540)
v(12863)=v(6540)*v(8385)+v(6530)*v(8419)+v(6521)*v(8432)
v(12862)=v(6540)*v(8384)+v(6530)*v(8483)+v(6521)*v(8538)
v(12861)=v(6540)*v(8383)+v(6530)*v(8451)+v(6521)*v(8537)
v(12860)=v(6540)*v(8382)+v(6530)*v(8455)+v(6521)*v(8464)
v(12859)=v(6540)*v(8295)+v(6530)*v(8341)+v(6521)*v(8372)
v(12852)=v(6540)*v(8294)+v(6530)*v(8340)+v(6521)*v(8368)
v(12851)=v(6540)*v(8292)+v(6530)*v(8338)+v(6521)*v(8367)
v(12850)=v(6540)*v(8290)+v(6530)*v(8336)+v(6521)*v(8366)
v(12849)=v(6540)*v(8289)+v(6530)*v(8335)+v(6521)*v(8362)
v(12848)=v(6540)*v(8287)+v(6530)*v(8333)+v(6521)*v(8361)
v(12847)=v(6540)*v(8285)+v(6530)*v(8331)+v(6521)*v(8360)
v(12846)=v(6540)*v(8284)+v(6530)*v(8314)+v(6521)*v(8523)
v(12845)=v(6540)*v(8283)+v(6530)*v(8313)+v(6521)*v(8373)
v(12838)=v(6540)*v(8282)+v(6530)*v(8312)+v(6521)*v(8522)
v(12837)=v(6540)*v(8280)+v(6530)*v(8311)+v(6521)*v(8521)
v(12836)=v(6540)*v(8279)+v(6530)*v(8310)+v(6521)*v(8433)
v(12835)=v(6540)*v(8278)+v(6530)*v(8309)+v(6521)*v(8520)
v(12834)=v(6540)*v(8276)+v(6530)*v(8308)+v(6521)*v(8519)
v(12833)=v(6540)*v(8275)+v(6530)*v(8307)+v(6521)*v(8465)
v(12832)=v(6540)*v(8274)+v(6530)*v(8469)+v(6521)*v(8494)
v(12831)=v(6540)*v(8273)+v(6530)*v(8315)+v(6521)*v(8493)
v(12830)=v(6540)*v(8272)+v(6530)*v(8342)+v(6521)*v(8374)
v(12823)=v(6540)*v(8271)+v(6530)*v(8468)+v(6521)*v(8491)
v(12822)=v(6540)*v(8270)+v(6530)*v(8412)+v(6521)*v(8490)
v(12821)=v(6540)*v(8269)+v(6530)*v(8420)+v(6521)*v(8434)
v(12820)=v(6540)*v(8268)+v(6530)*v(8467)+v(6521)*v(8488)
v(12819)=v(6540)*v(8267)+v(6530)*v(8452)+v(6521)*v(8487)
v(12818)=v(6540)*v(8266)+v(6530)*v(8456)+v(6521)*v(8466)
v(12811)=v(6540)*v(9509)+v(6530)*v(9554)+v(6521)*v(9604)
v(12804)=v(6540)*v(9384)+v(6530)*v(9419)+v(6521)*v(9602)
v(12803)=v(6540)*v(9382)+v(6530)*v(9417)+v(6521)*v(9601)
v(12796)=v(6540)*v(9269)+v(6530)*v(9414)+v(6521)*v(9576)
v(12795)=v(6540)*v(9267)+v(6530)*v(9413)+v(6521)*v(9575)
v(12794)=v(6540)*v(9266)+v(6530)*v(9411)+v(6521)*v(9574)
v(12787)=v(6540)*v(9507)+v(6530)*v(9552)+v(6521)*v(9572)
v(12786)=v(6540)*v(9271)+v(6530)*v(9416)+v(6521)*v(9571)
v(12785)=v(6540)*v(9386)+v(6530)*v(9421)+v(6521)*v(9570)
v(12784)=v(6540)*v(9506)+v(6530)*v(9551)+v(6521)*v(9569)
v(12777)=v(6540)*v(9381)+v(6530)*v(9410)+v(6521)*v(9560)
v(12776)=v(6540)*v(9380)+v(6530)*v(9409)+v(6521)*v(9559)
v(12775)=v(6540)*v(9273)+v(6530)*v(9407)+v(6521)*v(9557)
v(12774)=v(6540)*v(9378)+v(6530)*v(9406)+v(6521)*v(9556)
v(12773)=v(6540)*v(9376)+v(6530)*v(9404)+v(6521)*v(9555)
v(12766)=v(6540)*v(9265)+v(6530)*v(9394)+v(6521)*v(9516)
v(12765)=v(6540)*v(9264)+v(6530)*v(9393)+v(6521)*v(9515)
v(12764)=v(6540)*v(9262)+v(6530)*v(9391)+v(6521)*v(9514)
v(12763)=v(6540)*v(9260)+v(6530)*v(9389)+v(6521)*v(9512)
v(12762)=v(6540)*v(9258)+v(6530)*v(9388)+v(6521)*v(9511)
v(12761)=v(6540)*v(9257)+v(6530)*v(9387)+v(6521)*v(9510)
v(12760)=v(6540)*v(9150)+v(6530)*v(9207)+v(6521)*v(9224)
v(12753)=v(6540)*v(9149)+v(6530)*v(9206)+v(6521)*v(9223)
v(12752)=v(6540)*v(9148)+v(6530)*v(9204)+v(6521)*v(9221)
v(12751)=v(6540)*v(9147)+v(6530)*v(9203)+v(6521)*v(9219)
v(12750)=v(6540)*v(9145)+v(6530)*v(9201)+v(6521)*v(9217)
v(12749)=v(6540)*v(9144)+v(6530)*v(9200)+v(6521)*v(9216)
v(12748)=v(6540)*v(9143)+v(6530)*v(9199)+v(6521)*v(9215)
v(12747)=v(6540)*v(9142)+v(6521)*v(9197)+v(6530)*v(9198)
v(12746)=v(6540)*v(9141)+v(6530)*v(9197)+v(6521)*v(9207)
v(12739)=v(6540)*v(9140)+v(6530)*v(9196)+v(6521)*v(9206)
v(12738)=v(6540)*v(9139)+v(6530)*v(9194)+v(6521)*v(9204)
v(12737)=v(6540)*v(9137)+v(6530)*v(9192)+v(6521)*v(9203)
v(12736)=v(6540)*v(9135)+v(6530)*v(9190)+v(6521)*v(9201)
v(12735)=v(6540)*v(9134)+v(6530)*v(9189)+v(6521)*v(9200)
v(12734)=v(6540)*v(9133)+v(6530)*v(9188)+v(6521)*v(9199)
v(12733)=v(6521)*v(9130)+v(6530)*v(9131)+v(6540)*v(9132)
v(12732)=v(6540)*v(9131)+v(6521)*v(9141)+v(6530)*v(9142)
v(12731)=v(6540)*v(9130)+v(6530)*v(9141)+v(6521)*v(9150)
v(12724)=v(6540)*v(9129)+v(6530)*v(9140)+v(6521)*v(9149)
v(12723)=v(6540)*v(9127)+v(6530)*v(9139)+v(6521)*v(9148)
v(12722)=v(6540)*v(9125)+v(6530)*v(9137)+v(6521)*v(9147)
v(12721)=v(6540)*v(9123)+v(6530)*v(9135)+v(6521)*v(9145)
v(12720)=v(6540)*v(9122)+v(6530)*v(9134)+v(6521)*v(9144)
v(12719)=v(6540)*v(9121)+v(6530)*v(9133)+v(6521)*v(9143)
v(12712)=v(6540)*v(9366)+v(6530)*v(9497)+v(6521)*v(9740)
v(12705)=v(6540)*v(9363)+v(6530)*v(9494)+v(6521)*v(9737)
v(12704)=v(6540)*v(9360)+v(6530)*v(9491)+v(6521)*v(9735)
v(12697)=v(6540)*v(9358)+v(6530)*v(9489)+v(6521)*v(9710)
v(12696)=v(6540)*v(9355)+v(6530)*v(9487)+v(6521)*v(9708)
v(12695)=v(6540)*v(9353)+v(6530)*v(9485)+v(6521)*v(9707)
v(12688)=v(6540)*v(9351)+v(6530)*v(9483)+v(6521)*v(9705)
v(12687)=v(6540)*v(9349)+v(6530)*v(9481)+v(6521)*v(9703)
v(12686)=v(6540)*v(9347)+v(6530)*v(9480)+v(6521)*v(9702)
v(12685)=v(6540)*v(9345)+v(6530)*v(9478)+v(6521)*v(9701)
v(12678)=v(6540)*v(9343)+v(6530)*v(9476)+v(6521)*v(9699)
v(12677)=v(6540)*v(9341)+v(6530)*v(9474)+v(6521)*v(9697)
v(12676)=v(6540)*v(9340)+v(6530)*v(9473)+v(6521)*v(9696)
v(12675)=v(6540)*v(9338)+v(6530)*v(9472)+v(6521)*v(9695)
v(12674)=v(6540)*v(9336)+v(6530)*v(9470)+v(6521)*v(9694)
v(12667)=v(6540)*v(9334)+v(6530)*v(9468)+v(6521)*v(9666)
v(12666)=v(6540)*v(9332)+v(6530)*v(9466)+v(6521)*v(9664)
v(12665)=v(6540)*v(9331)+v(6530)*v(9465)+v(6521)*v(9663)
v(12664)=v(6540)*v(9330)+v(6530)*v(9464)+v(6521)*v(9662)
v(12663)=v(6540)*v(9328)+v(6530)*v(9463)+v(6521)*v(9661)
v(12662)=v(6540)*v(9326)+v(6530)*v(9461)+v(6521)*v(9660)
v(12661)=v(6540)*v(9324)+v(6530)*v(9459)+v(6521)*v(9658)
v(12654)=v(6540)*v(9322)+v(6530)*v(9457)+v(6521)*v(9656)
v(12653)=v(6540)*v(9321)+v(6530)*v(9456)+v(6521)*v(9655)
v(12652)=v(6540)*v(9320)+v(6530)*v(9455)+v(6521)*v(9654)
v(12651)=v(6540)*v(9319)+v(6530)*v(9454)+v(6521)*v(9653)
v(12650)=v(6540)*v(9318)+v(6530)*v(9453)+v(6521)*v(9652)
v(12649)=v(6540)*v(9317)+v(6530)*v(9452)+v(6521)*v(9651)
v(12648)=v(6540)*v(9303)+v(6530)*v(9439)+v(6521)*v(9650)
v(12647)=v(6540)*v(9301)+v(6530)*v(9437)+v(6521)*v(9649)
v(12640)=v(6540)*v(9300)+v(6530)*v(9436)+v(6521)*v(9648)
v(12639)=v(6540)*v(9299)+v(6530)*v(9435)+v(6521)*v(9647)
v(12638)=v(6540)*v(9298)+v(6530)*v(9434)+v(6521)*v(9646)
v(12637)=v(6540)*v(9297)+v(6530)*v(9433)+v(6521)*v(9645)
v(12636)=v(6540)*v(9296)+v(6530)*v(9432)+v(6521)*v(9644)
v(12635)=v(6540)*v(9295)+v(6530)*v(9431)+v(6521)*v(9643)
v(12634)=v(6540)*v(9283)+v(6530)*v(9430)+v(6521)*v(9613)
v(12633)=v(6540)*v(9281)+v(6530)*v(9429)+v(6521)*v(9612)
v(12632)=v(6540)*v(9280)+v(6530)*v(9428)+v(6521)*v(9611)
v(12625)=v(6540)*v(9279)+v(6530)*v(9427)+v(6521)*v(9610)
v(12624)=v(6540)*v(9278)+v(6530)*v(9426)+v(6521)*v(9609)
v(12623)=v(6540)*v(9277)+v(6530)*v(9425)+v(6521)*v(9608)
v(12622)=v(6540)*v(9276)+v(6530)*v(9424)+v(6521)*v(9607)
v(12621)=v(6540)*v(9275)+v(6530)*v(9423)+v(6521)*v(9606)
v(12620)=v(6540)*v(9274)+v(6530)*v(9422)+v(6521)*v(9605)
v(7362)=v(6521)*v(6894)+v(6530)*v(6918)+v(6540)*v(6940)
v(7361)=v(6521)*v(6893)+v(6530)*v(6917)+v(6540)*v(6939)
v(7360)=v(6521)*v(6892)+v(6530)*v(6916)+v(6540)*v(6937)
v(7356)=v(6521)*v(6891)+v(6530)*v(6914)+v(6540)*v(6935)
v(7355)=v(6521)*v(6889)+v(6530)*v(6912)+v(6540)*v(6933)
v(7354)=v(6521)*v(6887)+v(6530)*v(6910)+v(6540)*v(6932)
v(7353)=v(6521)*v(6885)+v(6530)*v(6909)+v(6540)*v(6931)
v(7352)=v(6521)*v(6884)+v(6530)*v(6908)+v(6540)*v(6930)
v(7351)=v(6521)*v(6883)+v(6530)*v(6907)+v(6540)*v(6929)
v(7350)=v(6521)*v(6906)+v(6530)*v(6928)+v(6540)*v(6948)
v(7349)=v(6521)*v(6905)+v(6530)*v(6927)+v(6540)*v(6928)
v(7348)=v(6521)*v(6904)+v(6530)*v(6905)+v(6540)*v(6906)
v(7344)=v(6521)*v(6903)+v(6530)*v(6926)+v(6540)*v(6947)
v(7343)=v(6521)*v(6901)+v(6530)*v(6924)+v(6540)*v(6945)
v(7342)=v(6521)*v(6899)+v(6530)*v(6922)+v(6540)*v(6944)
v(7341)=v(6521)*v(6897)+v(6530)*v(6921)+v(6540)*v(6943)
v(7340)=v(6521)*v(6896)+v(6530)*v(6920)+v(6540)*v(6942)
v(7339)=v(6521)*v(6895)+v(6530)*v(6919)+v(6540)*v(6941)
v(7338)=v(6521)*v(6745)+v(6530)*v(6754)+v(6540)*v(6763)
v(7337)=v(6521)*v(6744)+v(6530)*v(6753)+v(6540)*v(6762)
v(7336)=v(6521)*v(6743)+v(6530)*v(6752)+v(6540)*v(6761)
v(7332)=v(6521)*v(6742)+v(6530)*v(6751)+v(6540)*v(6760)
v(7331)=v(6521)*v(6741)+v(6530)*v(6750)+v(6540)*v(6759)
v(7330)=v(6521)*v(6740)+v(6530)*v(6749)+v(6540)*v(6758)
v(7329)=v(6521)*v(6739)+v(6530)*v(6748)+v(6540)*v(6757)
v(7328)=v(6521)*v(6738)+v(6530)*v(6747)+v(6540)*v(6756)
v(7327)=v(6521)*v(6737)+v(6530)*v(6746)+v(6540)*v(6755)
v(6659)=v(6408)*v(6521)+v(6410)*v(6530)+v(6411)*v(6540)
v(6653)=v(6461)*v(6521)+v(6463)*v(6530)+v(6465)*v(6540)
v(6647)=v(6460)*v(6521)+v(6462)*v(6530)+v(6464)*v(6540)
v(6550)=-ug(18)+ugo(18)
v(7363)=(-2d0)*v(6550)
v(6555)=(v(6550)*v(6550))
v(6551)=ug(17)-ugo(17)
v(18016)=-(v(6550)*v(6551))
v(7364)=2d0*v(6551)
v(6556)=(v(6551)*v(6551))
v(7398)=-v(6555)-v(6556)
v(6552)=-ug(16)+ugo(16)
v(18013)=-(v(6551)*v(6552))
v(18011)=v(6550)*v(6552)
v(7365)=(-2d0)*v(6552)
v(6565)=(v(6552)*v(6552))
v(17992)=v(6555)+v(6556)+v(6565)
v(17996)=sqrt(v(17992))
v(17994)=1d0/v(17996)
v(17991)=v(17994)/2d0
v(12923)=v(17991)*v(7363)
v(18022)=-(v(12923)*v(6550))
v(12945)=v(12923)/2d0
v(12920)=v(17991)*v(7364)
v(12944)=v(12920)/2d0
v(12918)=v(17992)
v(12924)=-(v(12923)/v(12918))
v(12922)=-(v(12920)/v(12918))
v(17995)=v(12922)/2d0
v(12926)=v(17995)*v(7363)
v(12917)=v(17991)*v(7365)
v(12943)=v(12917)/2d0
v(12919)=-(v(12917)/v(12918))
v(17993)=v(12919)/2d0
v(12928)=v(17993)*v(7364)
v(12925)=v(17993)*v(7363)
v(7390)=-v(6555)-v(6565)
v(7379)=-v(6556)-v(6565)
v(7366)=v(17994)
v(12930)=v(17993)*v(7365)+v(7366)
v(12929)=v(17995)*v(7364)+v(7366)
v(12927)=(v(12924)*v(7363))/2d0+v(7366)
v(6553)=v(17996)
v(18026)=v(6552)/v(6553)
v(18025)=v(6551)/v(6553)
v(18023)=v(6550)/v(6553)
v(17998)=dsin(v(6553))
v(12939)=1d0/v(6553)**3
v(17997)=(-2d0)*v(12939)
v(12942)=v(12923)*v(17997)
v(12941)=v(12920)*v(17997)
v(12940)=v(12917)*v(17997)
v(12933)=-(v(12923)*v(17998))
v(12932)=v(12920)*v(17998)
v(12931)=-(v(12917)*v(17998))
v(7405)=dcos(v(6553))
v(12937)=v(12920)*v(12931)+v(12928)*v(7405)
v(12936)=v(12923)*v(12933)+v(12927)*v(7405)
v(12934)=v(12923)*v(12931)+v(12925)*v(7405)
v(7407)=v(12923)*v(7405)
v(17999)=v(7366)*v(7407)
v(13444)=v(17999)*v(6552)
v(13042)=v(17999)
v(7406)=v(12920)*v(7405)
v(18000)=v(7366)*v(7406)
v(13442)=v(18000)*v(6552)
v(13067)=-v(18000)
v(7404)=v(12917)*v(7405)
v(18001)=v(7366)*v(7404)
v(13440)=v(18001)*v(6552)
v(13339)=-v(18001)
v(7373)=1d0/v(6553)**2
v(18027)=-(v(12917)*v(7373))
v(18003)=2d0*v(7373)
v(18002)=-(v(6551)*v(7373))
v(13340)=v(18027)*v(6552)
v(13065)=v(18002)*v(7406)
v(13045)=v(18022)*v(7373)
v(18024)=2d0*v(13045)
v(13022)=v(18002)*v(7407)
v(7371)=v(6553)/2d0
v(12946)=dcos(v(7371))
v(12952)=v(12946)*v(18003)
v(7372)=dsin(v(7371))
v(18005)=(v(7372)*v(7372))
v(18015)=-(v(18003)*v(18005))
v(18004)=v(12946)*v(12952)+v(18015)
v(12950)=v(17998)
v(12963)=v(12942)*v(12950)
v(12961)=v(12941)*v(12950)
v(12958)=v(12940)*v(12950)
v(12953)=v(12961)+v(12944)*v(18004)
v(12951)=v(12958)+v(12943)*v(18004)
v(7376)=v(12950)*v(7373)
v(13043)=v(12923)*v(7376)
v(13040)=v(12920)*v(7376)
v(13038)=v(12917)*v(7376)
v(13039)=v(13038)+v(13339)
v(7370)=v(18005)
v(12960)=(12d0*v(7370))/v(6553)**4
v(12962)=v(12920)*v(12960)+v(12961)
v(18008)=v(12953)+v(12962)
v(12959)=v(12958)+v(12917)*v(12960)
v(18007)=v(12951)+v(12959)
v(7375)=(-4d0)*v(12939)*v(7370)
v(18006)=v(7375)+v(7376)
v(12980)=v(12930)*v(18006)+v(12917)*v(18007)
v(12981)=v(12980)*v(7398)
v(12972)=v(12929)*v(18006)+v(12920)*v(18008)
v(18009)=v(12972)*v(6550)
v(12978)=v(18009)*v(6552)
v(12974)=v(12972)*v(7390)
v(12971)=v(12928)*v(18006)+v(12920)*v(18007)
v(12967)=v(12923)*(v(12923)*v(12960)+2d0*v(12963)+v(12945)*v(18004))+v(12927)*v(18006)
v(12970)=v(12967)*v(7379)
v(12966)=v(12926)*v(18006)+v(12923)*v(18008)
v(12965)=v(12925)*v(18006)+v(12923)*v(18007)
v(7378)=v(13043)+v(12923)*v(7375)
v(13010)=-(v(6550)*v(7378))
v(13001)=v(6551)*v(7378)
v(18010)=2d0*v(13001)
v(13012)=v(18010)-v(18009)*v(6551)
v(13009)=v(18010)+v(12967)*v(18016)
v(12996)=-(v(6552)*v(7378))
v(18012)=2d0*v(12996)
v(13015)=v(12980)*v(18011)+v(18012)
v(13014)=v(12967)*v(18011)+v(18012)
v(12988)=-(v(7363)*v(7378))
v(12984)=-v(18012)
v(13003)=2d0*v(12984)+v(12965)*v(7390)
v(12985)=v(12984)+v(12965)*v(7398)
v(12975)=-v(18010)
v(12987)=2d0*v(12975)+v(12966)*v(7398)
v(12976)=v(12975)+v(12966)*v(7390)
v(12969)=v(12975)+v(12966)*v(7379)
v(12968)=v(12984)+v(12965)*v(7379)
v(7382)=v(7378)*v(7379)
v(14097)=rio3(3,3)*v(7382)
v(13791)=rio3(3,2)*v(7382)
v(13485)=rio3(3,1)*v(7382)
v(7377)=v(13040)+v(12920)*v(7375)
v(12999)=v(6551)*v(7377)
v(12995)=-(v(6552)*v(7377))
v(18014)=2d0*v(12995)
v(13002)=v(12980)*v(18013)+v(18014)
v(12998)=v(12972)*v(18013)+v(18014)
v(12992)=-(v(7364)*v(7377))
v(12982)=-v(18014)
v(13016)=2d0*v(12982)+v(12971)*v(7379)
v(12983)=v(12982)+v(12971)*v(7398)
v(12979)=v(12995)+v(12966)*v(18011)
v(12977)=v(13001)+v(12971)*v(18011)
v(12973)=v(12982)+v(12971)*v(7390)
v(7392)=v(7377)*v(7390)
v(13473)=rio3(2,3)*v(7392)
v(13464)=rio3(2,2)*v(7392)
v(13455)=rio3(2,1)*v(7392)
v(7384)=-(v(12995)*v(6550))
v(7374)=v(13038)+v(12917)*v(7375)
v(18020)=-(v(6552)*v(7374))
v(13006)=-(v(7365)*v(7374))
v(7399)=v(7374)*v(7398)
v(6554)=-v(18015)
v(13008)=v(12999)+v(13010)+v(12966)*v(18016)+v(6554)
v(12994)=v(18020)+v(6554)
v(13013)=v(12994)+v(13010)+v(12965)*v(18011)
v(12997)=v(12994)+v(12999)+v(12971)*v(18013)
v(12990)=(-2d0)*v(6554)
v(13005)=v(12990)+v(13006)
v(18017)=v(13005)+v(13006)
v(13018)=v(18017)+v(12980)*v(7379)
v(13007)=v(18017)+v(12980)*v(7390)
v(12991)=v(12990)+v(12992)
v(18018)=v(12991)+v(12992)
v(13017)=v(18018)+v(12972)*v(7379)
v(12993)=v(18018)+v(12972)*v(7398)
v(12986)=v(12988)+v(12990)
v(18019)=v(12986)+v(12988)
v(13004)=v(18019)+v(12967)*v(7390)
v(12989)=v(18019)+v(12967)*v(7398)
v(7402)=-(v(6554)*v(7363))
v(7403)=v(7378)*v(7398)+v(7402)
v(7400)=-(v(6554)*v(7364))
v(7401)=v(7377)*v(7398)+v(7400)
v(7396)=-(v(6552)*v(6554))
v(7397)=v(12995)*v(6551)+v(7396)
v(7394)=v(6551)*v(6554)
v(7395)=v(18020)*v(6551)+v(7394)
v(7393)=v(7378)*v(7390)+v(7402)
v(13476)=rio3(2,3)*v(7393)
v(13467)=rio3(2,2)*v(7393)
v(13458)=rio3(2,1)*v(7393)
v(7389)=-(v(6554)*v(7365))
v(7391)=v(7389)+v(7374)*v(7390)
v(13470)=rio3(2,3)*v(7391)
v(13461)=rio3(2,2)*v(7391)
v(13452)=rio3(2,1)*v(7391)
v(7388)=-(v(13001)*v(6550))+v(7394)
v(7386)=-(v(6550)*v(6554))
v(7387)=-(v(12999)*v(6550))+v(7386)
v(7385)=-(v(12996)*v(6550))+v(7396)
v(7383)=-(v(18020)*v(6550))+v(7386)
v(7381)=v(7377)*v(7379)+v(7400)
v(14094)=rio3(3,3)*v(7381)
v(13788)=rio3(3,2)*v(7381)
v(13482)=rio3(3,1)*v(7381)
v(7380)=v(7374)*v(7379)+v(7389)
v(14091)=rio3(3,3)*v(7380)
v(13785)=rio3(3,2)*v(7380)
v(13479)=rio3(3,1)*v(7380)
v(6578)=1d0+v(6554)*v(7379)
v(6574)=-(v(6552)*v(7386))
v(6573)=v(6551)*v(7386)
v(6568)=1d0+v(6554)*v(7390)
v(6564)=-(v(6552)*v(7394))
v(6559)=1d0+v(6554)*v(7398)
v(6557)=v(17998)
v(18021)=v(6552)*v(6557)
v(13445)=v(13444)+v(12924)*v(18021)
v(13451)=v(13445)+v(7388)
v(13448)=-v(13445)+v(7388)
v(13443)=v(13442)+v(12922)*v(18021)
v(13450)=v(13443)+v(7387)
v(13447)=-v(13443)+v(7387)
v(13079)=-(v(12951)*v(6552))+v(7376)
v(13050)=v(18022)*v(6557)
v(13049)=-(v(6550)*v(7376))
v(13051)=(-2d0)*v(13042)+2d0*v(13043)+v(12927)*v(13049)+v(12942)*v(13050)+v(12936)*v(18023)+v(18024)*v(7407)
v(13064)=v(12979)-v(13051)
v(13053)=v(12979)+v(13051)
v(13047)=v(13039)+v(12925)*v(13049)+v(12940)*v(13050)+v(12934)*v(18023)+v(18024)*v(7404)
v(13099)=v(13009)-v(13047)
v(13087)=v(13009)+v(13047)
v(13096)=rio3(2,1)*v(13004)+rio3(1,1)*v(13064)+rio3(3,1)*v(13087)
v(13093)=rio3(2,2)*v(13004)+rio3(1,2)*v(13064)+rio3(3,2)*v(13087)
v(13090)=rio3(2,3)*v(13004)+rio3(1,3)*v(13064)+rio3(3,3)*v(13087)
v(13063)=v(12977)-v(13047)
v(13052)=v(12977)+v(13047)
v(13020)=v(13065)-v(12961)*v(6551)-v(7376)
v(13019)=-(v(12951)*v(6551))
v(7417)=-(v(6551)*v(7376))
v(13068)=-v(13040)+v(12920)*(v(13020)+v(13065))-2d0*v(13067)+v(18025)*(-(v(12920)*v(12932))+v(12929)*v(7405))+v(12929&
&)*v(7417)
v(13078)=v(12978)-v(13068)
v(13070)=v(12978)+v(13068)
v(13066)=v(12920)*v(13019)-v(13039)+v(12917)*v(13065)+v(12937)*v(18025)+v(12928)*v(7417)
v(13232)=v(13012)+v(13066)
v(13304)=rio3(3,1)*v(13017)+rio3(1,1)*v(13078)+rio3(2,1)*v(13232)
v(13269)=rio3(3,2)*v(13017)+rio3(1,2)*v(13078)+rio3(2,2)*v(13232)
v(13234)=rio3(3,3)*v(13017)+rio3(1,3)*v(13078)+rio3(2,3)*v(13232)
v(13223)=v(13012)-v(13066)
v(13077)=v(12977)-v(13066)
v(13069)=v(12977)+v(13066)
v(13025)=v(12936)*v(18025)+v(12923)*(2d0*v(13022)-v(12963)*v(6551))+v(12927)*v(7417)
v(13037)=v(13014)-v(13025)
v(13180)=rio3(3,1)*v(12970)+rio3(1,1)*v(13037)+rio3(2,1)*v(13099)
v(13141)=rio3(3,2)*v(12970)+rio3(1,2)*v(13037)+rio3(2,2)*v(13099)
v(13102)=rio3(3,3)*v(12970)+rio3(1,3)*v(13037)+rio3(2,3)*v(13099)
v(13034)=v(12978)+v(13025)
v(13031)=v(13014)+v(13025)
v(13062)=rio3(1,1)*v(12989)+rio3(3,1)*v(13031)+rio3(2,1)*v(13053)
v(13216)=v(13062)*v(6408)+v(13096)*v(6410)+v(13180)*v(6411)
v(13204)=v(13062)*v(6461)+v(13096)*v(6463)+v(13180)*v(6465)
v(13192)=v(13062)*v(6460)+v(13096)*v(6462)+v(13180)*v(6464)
v(13059)=rio3(1,2)*v(12989)+rio3(3,2)*v(13031)+rio3(2,2)*v(13053)
v(13177)=v(13059)*v(6408)+v(13093)*v(6410)+v(13141)*v(6411)
v(13165)=v(13059)*v(6461)+v(13093)*v(6463)+v(13141)*v(6465)
v(13153)=v(13059)*v(6460)+v(13093)*v(6462)+v(13141)*v(6464)
v(13056)=rio3(1,3)*v(12989)+rio3(3,3)*v(13031)+rio3(2,3)*v(13053)
v(13138)=v(13056)*v(6408)+v(13090)*v(6410)+v(13102)*v(6411)
v(13126)=v(13056)*v(6461)+v(13090)*v(6463)+v(13102)*v(6465)
v(13114)=v(13056)*v(6460)+v(13090)*v(6462)+v(13102)*v(6464)
v(13028)=v(12978)-v(13025)
v(13024)=v(12923)*v(13020)+v(12920)*v(13022)+v(13042)+v(18025)*(-(v(12923)*v(12932))+v(12926)*v(7405))+v(12926)*v(7417)
v(13036)=v(12979)-v(13024)
v(13033)=v(12998)+v(13024)
v(13229)=rio3(2,1)*v(12974)+rio3(1,1)*v(13033)+rio3(3,1)*v(13223)
v(13227)=rio3(2,2)*v(12974)+rio3(1,2)*v(13033)+rio3(3,2)*v(13223)
v(13225)=rio3(2,3)*v(12974)+rio3(1,3)*v(13033)+rio3(3,3)*v(13223)
v(13030)=v(12979)+v(13024)
v(13061)=rio3(1,1)*v(12987)+rio3(2,1)*v(13028)+rio3(3,1)*v(13030)
v(13058)=rio3(1,2)*v(12987)+rio3(2,2)*v(13028)+rio3(3,2)*v(13030)
v(13055)=rio3(1,3)*v(12987)+rio3(2,3)*v(13028)+rio3(3,3)*v(13030)
v(13027)=v(12998)-v(13024)
v(13076)=rio3(1,1)*v(12993)+rio3(2,1)*v(13027)+rio3(3,1)*v(13070)
v(13337)=v(13076)*v(6408)+v(13229)*v(6410)+v(13304)*v(6411)
v(13326)=v(13076)*v(6461)+v(13229)*v(6463)+v(13304)*v(6465)
v(13315)=v(13076)*v(6460)+v(13229)*v(6462)+v(13304)*v(6464)
v(13074)=rio3(1,2)*v(12993)+rio3(2,2)*v(13027)+rio3(3,2)*v(13070)
v(13302)=v(13074)*v(6408)+v(13227)*v(6410)+v(13269)*v(6411)
v(13291)=v(13074)*v(6461)+v(13227)*v(6463)+v(13269)*v(6465)
v(13280)=v(13074)*v(6460)+v(13227)*v(6462)+v(13269)*v(6464)
v(13072)=rio3(1,3)*v(12993)+rio3(2,3)*v(13027)+rio3(3,3)*v(13070)
v(13267)=v(13072)*v(6408)+v(13225)*v(6410)+v(13234)*v(6411)
v(13256)=v(13072)*v(6461)+v(13225)*v(6463)+v(13234)*v(6465)
v(13245)=v(13072)*v(6460)+v(13225)*v(6462)+v(13234)*v(6464)
v(13023)=v(12923)*v(13019)+v(12917)*v(13022)+v(12934)*v(18025)+v(12925)*v(7417)
v(13098)=v(13008)+v(13023)
v(13179)=rio3(3,1)*v(12969)+rio3(1,1)*v(13036)+rio3(2,1)*v(13098)
v(13140)=rio3(3,2)*v(12969)+rio3(1,2)*v(13036)+rio3(2,2)*v(13098)
v(13101)=rio3(3,3)*v(12969)+rio3(1,3)*v(13036)+rio3(2,3)*v(13098)
v(13086)=v(13008)-v(13023)
v(13095)=rio3(2,1)*v(12976)+rio3(1,1)*v(13034)+rio3(3,1)*v(13086)
v(13215)=v(13061)*v(6408)+v(13095)*v(6410)+v(13179)*v(6411)
v(13203)=v(13061)*v(6461)+v(13095)*v(6463)+v(13179)*v(6465)
v(13191)=v(13061)*v(6460)+v(13095)*v(6462)+v(13179)*v(6464)
v(13092)=rio3(2,2)*v(12976)+rio3(1,2)*v(13034)+rio3(3,2)*v(13086)
v(13176)=v(13058)*v(6408)+v(13092)*v(6410)+v(13140)*v(6411)
v(13164)=v(13058)*v(6461)+v(13092)*v(6463)+v(13140)*v(6465)
v(13152)=v(13058)*v(6460)+v(13092)*v(6462)+v(13140)*v(6464)
v(13089)=rio3(2,3)*v(12976)+rio3(1,3)*v(13034)+rio3(3,3)*v(13086)
v(13137)=v(13055)*v(6408)+v(13089)*v(6410)+v(13101)*v(6411)
v(13125)=v(13055)*v(6461)+v(13089)*v(6463)+v(13101)*v(6465)
v(13113)=v(13055)*v(6460)+v(13089)*v(6462)+v(13101)*v(6464)
v(13035)=v(13013)-v(13023)
v(13032)=v(12997)+v(13023)
v(13029)=v(13013)+v(13023)
v(13060)=rio3(1,1)*v(12985)+rio3(3,1)*v(13029)+rio3(2,1)*v(13052)
v(13057)=rio3(1,2)*v(12985)+rio3(3,2)*v(13029)+rio3(2,2)*v(13052)
v(13054)=rio3(1,3)*v(12985)+rio3(3,3)*v(13029)+rio3(2,3)*v(13052)
v(13026)=v(12997)-v(13023)
v(13075)=rio3(1,1)*v(12983)+rio3(2,1)*v(13026)+rio3(3,1)*v(13069)
v(13073)=rio3(1,2)*v(12983)+rio3(2,2)*v(13026)+rio3(3,2)*v(13069)
v(13071)=rio3(1,3)*v(12983)+rio3(2,3)*v(13026)+rio3(3,3)*v(13069)
v(7418)=v(17999)*v(6551)+v(12923)*v(7417)
v(7433)=v(7397)-v(7418)
v(7431)=v(7385)+v(7418)
v(7427)=v(7397)+v(7418)
v(13474)=rio3(1,3)*v(7427)
v(18034)=v(13473)+v(13474)
v(13475)=rio3(3,3)*v(13450)+v(18034)
v(13465)=rio3(1,2)*v(7427)
v(18035)=v(13464)+v(13465)
v(13466)=rio3(3,2)*v(13450)+v(18035)
v(13456)=rio3(1,1)*v(7427)
v(18036)=v(13455)+v(13456)
v(13457)=rio3(3,1)*v(13450)+v(18036)
v(7421)=v(7385)-v(7418)
v(14098)=rio3(1,3)*v(7421)
v(18031)=v(14097)+v(14098)
v(14099)=rio3(2,3)*v(13448)+v(18031)
v(13792)=rio3(1,2)*v(7421)
v(18032)=v(13791)+v(13792)
v(13793)=rio3(2,2)*v(13448)+v(18032)
v(13486)=rio3(1,1)*v(7421)
v(18033)=v(13485)+v(13486)
v(13487)=rio3(2,1)*v(13448)+v(18033)
v(7415)=-(v(6557)/v(6553))
v(18040)=v(13440)+v(7415)
v(13441)=v(12919)*v(18021)+v(18040)
v(13449)=v(13441)+v(7384)
v(13446)=-v(13441)+v(7384)
v(7425)=v(17999)*v(6550)+v(13045)*v(6557)+v(7415)
v(7434)=v(7384)+v(7425)
v(7443)=rio3(1,3)*v(7403)+rio3(3,3)*v(7431)+rio3(2,3)*v(7434)
v(14395)=v(6737)*v(7443)
v(14388)=v(6738)*v(7443)
v(14380)=v(6739)*v(7443)
v(14371)=v(6740)*v(7443)
v(14361)=v(6741)*v(7443)
v(14350)=v(6742)*v(7443)
v(14338)=v(6743)*v(7443)
v(14325)=v(6744)*v(7443)
v(14311)=v(6745)*v(7443)
v(14296)=v(6895)*v(7443)
v(14289)=v(6896)*v(7443)
v(14281)=v(6897)*v(7443)
v(14272)=v(6899)*v(7443)
v(14262)=v(6901)*v(7443)
v(14251)=v(6903)*v(7443)
v(14239)=v(6904)*v(7443)
v(14226)=v(6905)*v(7443)
v(14212)=v(6906)*v(7443)
v(14197)=v(6883)*v(7443)
v(14190)=v(6884)*v(7443)
v(14182)=v(6885)*v(7443)
v(14173)=v(6887)*v(7443)
v(14163)=v(6889)*v(7443)
v(14152)=v(6891)*v(7443)
v(14140)=v(6892)*v(7443)
v(14127)=v(6893)*v(7443)
v(14113)=v(6894)*v(7443)
v(7440)=rio3(1,2)*v(7403)+rio3(3,2)*v(7431)+rio3(2,2)*v(7434)
v(14089)=v(6737)*v(7440)
v(14082)=v(6738)*v(7440)
v(14074)=v(6739)*v(7440)
v(14065)=v(6740)*v(7440)
v(14055)=v(6741)*v(7440)
v(14044)=v(6742)*v(7440)
v(14032)=v(6743)*v(7440)
v(14019)=v(6744)*v(7440)
v(14005)=v(6745)*v(7440)
v(13990)=v(6895)*v(7440)
v(13983)=v(6896)*v(7440)
v(13975)=v(6897)*v(7440)
v(13966)=v(6899)*v(7440)
v(13956)=v(6901)*v(7440)
v(13945)=v(6903)*v(7440)
v(13933)=v(6904)*v(7440)
v(13920)=v(6905)*v(7440)
v(13906)=v(6906)*v(7440)
v(13891)=v(6883)*v(7440)
v(13884)=v(6884)*v(7440)
v(13876)=v(6885)*v(7440)
v(13867)=v(6887)*v(7440)
v(13857)=v(6889)*v(7440)
v(13846)=v(6891)*v(7440)
v(13834)=v(6892)*v(7440)
v(13821)=v(6893)*v(7440)
v(13807)=v(6894)*v(7440)
v(7437)=rio3(1,1)*v(7403)+rio3(3,1)*v(7431)+rio3(2,1)*v(7434)
v(13783)=v(6737)*v(7437)
v(13776)=v(6738)*v(7437)
v(13768)=v(6739)*v(7437)
v(13759)=v(6740)*v(7437)
v(13749)=v(6741)*v(7437)
v(13738)=v(6742)*v(7437)
v(13726)=v(6743)*v(7437)
v(13713)=v(6744)*v(7437)
v(13699)=v(6745)*v(7437)
v(13684)=v(6895)*v(7437)
v(13677)=v(6896)*v(7437)
v(13669)=v(6897)*v(7437)
v(13660)=v(6899)*v(7437)
v(13650)=v(6901)*v(7437)
v(13639)=v(6903)*v(7437)
v(13627)=v(6904)*v(7437)
v(13614)=v(6905)*v(7437)
v(13600)=v(6906)*v(7437)
v(13585)=v(6883)*v(7437)
v(13578)=v(6884)*v(7437)
v(13570)=v(6885)*v(7437)
v(13561)=v(6887)*v(7437)
v(13551)=v(6889)*v(7437)
v(13540)=v(6891)*v(7437)
v(13528)=v(6892)*v(7437)
v(13515)=v(6893)*v(7437)
v(13501)=v(6894)*v(7437)
v(7428)=v(7384)-v(7425)
v(13477)=rio3(1,3)*v(7428)
v(18028)=v(13476)+v(13477)
v(13478)=rio3(3,3)*v(13451)+v(18028)
v(14396)=v(14395)+v(13478)*v(6746)+v(14099)*v(6755)
v(14389)=v(14388)+v(13478)*v(6747)+v(14099)*v(6756)
v(14381)=v(14380)+v(13478)*v(6748)+v(14099)*v(6757)
v(14372)=v(14371)+v(13478)*v(6749)+v(14099)*v(6758)
v(14362)=v(14361)+v(13478)*v(6750)+v(14099)*v(6759)
v(14351)=v(14350)+v(13478)*v(6751)+v(14099)*v(6760)
v(14339)=v(14338)+v(13478)*v(6752)+v(14099)*v(6761)
v(14326)=v(14325)+v(13478)*v(6753)+v(14099)*v(6762)
v(14312)=v(14311)+v(13478)*v(6754)+v(14099)*v(6763)
v(14297)=v(14296)+v(13478)*v(6919)+v(14099)*v(6941)
v(14290)=v(14289)+v(13478)*v(6920)+v(14099)*v(6942)
v(14282)=v(14281)+v(13478)*v(6921)+v(14099)*v(6943)
v(14273)=v(14272)+v(13478)*v(6922)+v(14099)*v(6944)
v(14263)=v(14262)+v(13478)*v(6924)+v(14099)*v(6945)
v(14252)=v(14251)+v(13478)*v(6926)+v(14099)*v(6947)
v(14240)=v(14239)+v(13478)*v(6905)+v(14099)*v(6906)
v(14227)=v(14226)+v(13478)*v(6927)+v(14099)*v(6928)
v(14213)=v(14212)+v(13478)*v(6928)+v(14099)*v(6948)
v(14198)=v(14197)+v(13478)*v(6907)+v(14099)*v(6929)
v(14191)=v(14190)+v(13478)*v(6908)+v(14099)*v(6930)
v(14183)=v(14182)+v(13478)*v(6909)+v(14099)*v(6931)
v(14174)=v(14173)+v(13478)*v(6910)+v(14099)*v(6932)
v(14164)=v(14163)+v(13478)*v(6912)+v(14099)*v(6933)
v(14153)=v(14152)+v(13478)*v(6914)+v(14099)*v(6935)
v(14141)=v(14140)+v(13478)*v(6916)+v(14099)*v(6937)
v(14128)=v(14127)+v(13478)*v(6917)+v(14099)*v(6939)
v(14114)=v(14113)+v(13478)*v(6918)+v(14099)*v(6940)
v(13468)=rio3(1,2)*v(7428)
v(18029)=v(13467)+v(13468)
v(13469)=rio3(3,2)*v(13451)+v(18029)
v(14090)=v(14089)+v(13469)*v(6746)+v(13793)*v(6755)
v(14083)=v(14082)+v(13469)*v(6747)+v(13793)*v(6756)
v(14075)=v(14074)+v(13469)*v(6748)+v(13793)*v(6757)
v(14066)=v(14065)+v(13469)*v(6749)+v(13793)*v(6758)
v(14056)=v(14055)+v(13469)*v(6750)+v(13793)*v(6759)
v(14045)=v(14044)+v(13469)*v(6751)+v(13793)*v(6760)
v(14033)=v(14032)+v(13469)*v(6752)+v(13793)*v(6761)
v(14020)=v(14019)+v(13469)*v(6753)+v(13793)*v(6762)
v(14006)=v(14005)+v(13469)*v(6754)+v(13793)*v(6763)
v(13991)=v(13990)+v(13469)*v(6919)+v(13793)*v(6941)
v(13984)=v(13983)+v(13469)*v(6920)+v(13793)*v(6942)
v(13976)=v(13975)+v(13469)*v(6921)+v(13793)*v(6943)
v(13967)=v(13966)+v(13469)*v(6922)+v(13793)*v(6944)
v(13957)=v(13956)+v(13469)*v(6924)+v(13793)*v(6945)
v(13946)=v(13945)+v(13469)*v(6926)+v(13793)*v(6947)
v(13934)=v(13933)+v(13469)*v(6905)+v(13793)*v(6906)
v(13921)=v(13920)+v(13469)*v(6927)+v(13793)*v(6928)
v(13907)=v(13906)+v(13469)*v(6928)+v(13793)*v(6948)
v(13892)=v(13891)+v(13469)*v(6907)+v(13793)*v(6929)
v(13885)=v(13884)+v(13469)*v(6908)+v(13793)*v(6930)
v(13877)=v(13876)+v(13469)*v(6909)+v(13793)*v(6931)
v(13868)=v(13867)+v(13469)*v(6910)+v(13793)*v(6932)
v(13858)=v(13857)+v(13469)*v(6912)+v(13793)*v(6933)
v(13847)=v(13846)+v(13469)*v(6914)+v(13793)*v(6935)
v(13835)=v(13834)+v(13469)*v(6916)+v(13793)*v(6937)
v(13822)=v(13821)+v(13469)*v(6917)+v(13793)*v(6939)
v(13808)=v(13807)+v(13469)*v(6918)+v(13793)*v(6940)
v(13459)=rio3(1,1)*v(7428)
v(18030)=v(13458)+v(13459)
v(13460)=rio3(3,1)*v(13451)+v(18030)
v(13784)=v(13783)+v(13460)*v(6746)+v(13487)*v(6755)
v(13777)=v(13776)+v(13460)*v(6747)+v(13487)*v(6756)
v(13769)=v(13768)+v(13460)*v(6748)+v(13487)*v(6757)
v(13760)=v(13759)+v(13460)*v(6749)+v(13487)*v(6758)
v(13750)=v(13749)+v(13460)*v(6750)+v(13487)*v(6759)
v(13739)=v(13738)+v(13460)*v(6751)+v(13487)*v(6760)
v(13727)=v(13726)+v(13460)*v(6752)+v(13487)*v(6761)
v(13714)=v(13713)+v(13460)*v(6753)+v(13487)*v(6762)
v(13700)=v(13699)+v(13460)*v(6754)+v(13487)*v(6763)
v(13685)=v(13684)+v(13460)*v(6919)+v(13487)*v(6941)
v(13678)=v(13677)+v(13460)*v(6920)+v(13487)*v(6942)
v(13670)=v(13669)+v(13460)*v(6921)+v(13487)*v(6943)
v(13661)=v(13660)+v(13460)*v(6922)+v(13487)*v(6944)
v(13651)=v(13650)+v(13460)*v(6924)+v(13487)*v(6945)
v(13640)=v(13639)+v(13460)*v(6926)+v(13487)*v(6947)
v(13628)=v(13627)+v(13460)*v(6905)+v(13487)*v(6906)
v(13615)=v(13614)+v(13460)*v(6927)+v(13487)*v(6928)
v(13601)=v(13600)+v(13460)*v(6928)+v(13487)*v(6948)
v(13586)=v(13585)+v(13460)*v(6907)+v(13487)*v(6929)
v(13579)=v(13578)+v(13460)*v(6908)+v(13487)*v(6930)
v(13571)=v(13570)+v(13460)*v(6909)+v(13487)*v(6931)
v(13562)=v(13561)+v(13460)*v(6910)+v(13487)*v(6932)
v(13552)=v(13551)+v(13460)*v(6912)+v(13487)*v(6933)
v(13541)=v(13540)+v(13460)*v(6914)+v(13487)*v(6935)
v(13529)=v(13528)+v(13460)*v(6916)+v(13487)*v(6937)
v(13516)=v(13515)+v(13460)*v(6917)+v(13487)*v(6939)
v(13502)=v(13501)+v(13460)*v(6918)+v(13487)*v(6940)
v(7416)=v(18000)*v(6551)-v(7415)+v(12920)*v(7417)
v(7430)=v(7384)+v(7416)
v(7442)=rio3(1,3)*v(7401)+rio3(3,3)*v(7430)+rio3(2,3)*v(7433)
v(14393)=v(6737)*v(7442)
v(14386)=v(6738)*v(7442)
v(14378)=v(6739)*v(7442)
v(14369)=v(6740)*v(7442)
v(14359)=v(6741)*v(7442)
v(14348)=v(6742)*v(7442)
v(14336)=v(6743)*v(7442)
v(14323)=v(6744)*v(7442)
v(14309)=v(6745)*v(7442)
v(14294)=v(6895)*v(7442)
v(14287)=v(6896)*v(7442)
v(14279)=v(6897)*v(7442)
v(14270)=v(6899)*v(7442)
v(14260)=v(6901)*v(7442)
v(14249)=v(6903)*v(7442)
v(14237)=v(6904)*v(7442)
v(14224)=v(6905)*v(7442)
v(14210)=v(6906)*v(7442)
v(14195)=v(6883)*v(7442)
v(14188)=v(6884)*v(7442)
v(14180)=v(6885)*v(7442)
v(14171)=v(6887)*v(7442)
v(14161)=v(6889)*v(7442)
v(14150)=v(6891)*v(7442)
v(14138)=v(6892)*v(7442)
v(14125)=v(6893)*v(7442)
v(14111)=v(6894)*v(7442)
v(7439)=rio3(1,2)*v(7401)+rio3(3,2)*v(7430)+rio3(2,2)*v(7433)
v(14087)=v(6737)*v(7439)
v(14080)=v(6738)*v(7439)
v(14072)=v(6739)*v(7439)
v(14063)=v(6740)*v(7439)
v(14053)=v(6741)*v(7439)
v(14042)=v(6742)*v(7439)
v(14030)=v(6743)*v(7439)
v(14017)=v(6744)*v(7439)
v(14003)=v(6745)*v(7439)
v(13988)=v(6895)*v(7439)
v(13981)=v(6896)*v(7439)
v(13973)=v(6897)*v(7439)
v(13964)=v(6899)*v(7439)
v(13954)=v(6901)*v(7439)
v(13943)=v(6903)*v(7439)
v(13931)=v(6904)*v(7439)
v(13918)=v(6905)*v(7439)
v(13904)=v(6906)*v(7439)
v(13889)=v(6883)*v(7439)
v(13882)=v(6884)*v(7439)
v(13874)=v(6885)*v(7439)
v(13865)=v(6887)*v(7439)
v(13855)=v(6889)*v(7439)
v(13844)=v(6891)*v(7439)
v(13832)=v(6892)*v(7439)
v(13819)=v(6893)*v(7439)
v(13805)=v(6894)*v(7439)
v(7436)=rio3(1,1)*v(7401)+rio3(3,1)*v(7430)+rio3(2,1)*v(7433)
v(13781)=v(6737)*v(7436)
v(13774)=v(6738)*v(7436)
v(13766)=v(6739)*v(7436)
v(13757)=v(6740)*v(7436)
v(13747)=v(6741)*v(7436)
v(13736)=v(6742)*v(7436)
v(13724)=v(6743)*v(7436)
v(13711)=v(6744)*v(7436)
v(13697)=v(6745)*v(7436)
v(13682)=v(6895)*v(7436)
v(13675)=v(6896)*v(7436)
v(13667)=v(6897)*v(7436)
v(13658)=v(6899)*v(7436)
v(13648)=v(6901)*v(7436)
v(13637)=v(6903)*v(7436)
v(13625)=v(6904)*v(7436)
v(13612)=v(6905)*v(7436)
v(13598)=v(6906)*v(7436)
v(13583)=v(6883)*v(7436)
v(13576)=v(6884)*v(7436)
v(13568)=v(6885)*v(7436)
v(13559)=v(6887)*v(7436)
v(13549)=v(6889)*v(7436)
v(13538)=v(6891)*v(7436)
v(13526)=v(6892)*v(7436)
v(13513)=v(6893)*v(7436)
v(13499)=v(6894)*v(7436)
v(7420)=v(7384)-v(7416)
v(14095)=rio3(1,3)*v(7420)
v(18037)=v(14094)+v(14095)
v(14096)=rio3(2,3)*v(13447)+v(18037)
v(14394)=v(14393)+v(13475)*v(6746)+v(14096)*v(6755)
v(14387)=v(14386)+v(13475)*v(6747)+v(14096)*v(6756)
v(14379)=v(14378)+v(13475)*v(6748)+v(14096)*v(6757)
v(14370)=v(14369)+v(13475)*v(6749)+v(14096)*v(6758)
v(14360)=v(14359)+v(13475)*v(6750)+v(14096)*v(6759)
v(14349)=v(14348)+v(13475)*v(6751)+v(14096)*v(6760)
v(14337)=v(14336)+v(13475)*v(6752)+v(14096)*v(6761)
v(14324)=v(14323)+v(13475)*v(6753)+v(14096)*v(6762)
v(14310)=v(14309)+v(13475)*v(6754)+v(14096)*v(6763)
v(14295)=v(14294)+v(13475)*v(6919)+v(14096)*v(6941)
v(14288)=v(14287)+v(13475)*v(6920)+v(14096)*v(6942)
v(14280)=v(14279)+v(13475)*v(6921)+v(14096)*v(6943)
v(14271)=v(14270)+v(13475)*v(6922)+v(14096)*v(6944)
v(14261)=v(14260)+v(13475)*v(6924)+v(14096)*v(6945)
v(14250)=v(14249)+v(13475)*v(6926)+v(14096)*v(6947)
v(14238)=v(14237)+v(13475)*v(6905)+v(14096)*v(6906)
v(14225)=v(14224)+v(13475)*v(6927)+v(14096)*v(6928)
v(14211)=v(14210)+v(13475)*v(6928)+v(14096)*v(6948)
v(14196)=v(14195)+v(13475)*v(6907)+v(14096)*v(6929)
v(14189)=v(14188)+v(13475)*v(6908)+v(14096)*v(6930)
v(14181)=v(14180)+v(13475)*v(6909)+v(14096)*v(6931)
v(14172)=v(14171)+v(13475)*v(6910)+v(14096)*v(6932)
v(14162)=v(14161)+v(13475)*v(6912)+v(14096)*v(6933)
v(14151)=v(14150)+v(13475)*v(6914)+v(14096)*v(6935)
v(14139)=v(14138)+v(13475)*v(6916)+v(14096)*v(6937)
v(14126)=v(14125)+v(13475)*v(6917)+v(14096)*v(6939)
v(14112)=v(14111)+v(13475)*v(6918)+v(14096)*v(6940)
v(13789)=rio3(1,2)*v(7420)
v(18038)=v(13788)+v(13789)
v(13790)=rio3(2,2)*v(13447)+v(18038)
v(14088)=v(14087)+v(13466)*v(6746)+v(13790)*v(6755)
v(14081)=v(14080)+v(13466)*v(6747)+v(13790)*v(6756)
v(14073)=v(14072)+v(13466)*v(6748)+v(13790)*v(6757)
v(14064)=v(14063)+v(13466)*v(6749)+v(13790)*v(6758)
v(14054)=v(14053)+v(13466)*v(6750)+v(13790)*v(6759)
v(14043)=v(14042)+v(13466)*v(6751)+v(13790)*v(6760)
v(14031)=v(14030)+v(13466)*v(6752)+v(13790)*v(6761)
v(14018)=v(14017)+v(13466)*v(6753)+v(13790)*v(6762)
v(14004)=v(14003)+v(13466)*v(6754)+v(13790)*v(6763)
v(13989)=v(13988)+v(13466)*v(6919)+v(13790)*v(6941)
v(13982)=v(13981)+v(13466)*v(6920)+v(13790)*v(6942)
v(13974)=v(13973)+v(13466)*v(6921)+v(13790)*v(6943)
v(13965)=v(13964)+v(13466)*v(6922)+v(13790)*v(6944)
v(13955)=v(13954)+v(13466)*v(6924)+v(13790)*v(6945)
v(13944)=v(13943)+v(13466)*v(6926)+v(13790)*v(6947)
v(13932)=v(13931)+v(13466)*v(6905)+v(13790)*v(6906)
v(13919)=v(13918)+v(13466)*v(6927)+v(13790)*v(6928)
v(13905)=v(13904)+v(13466)*v(6928)+v(13790)*v(6948)
v(13890)=v(13889)+v(13466)*v(6907)+v(13790)*v(6929)
v(13883)=v(13882)+v(13466)*v(6908)+v(13790)*v(6930)
v(13875)=v(13874)+v(13466)*v(6909)+v(13790)*v(6931)
v(13866)=v(13865)+v(13466)*v(6910)+v(13790)*v(6932)
v(13856)=v(13855)+v(13466)*v(6912)+v(13790)*v(6933)
v(13845)=v(13844)+v(13466)*v(6914)+v(13790)*v(6935)
v(13833)=v(13832)+v(13466)*v(6916)+v(13790)*v(6937)
v(13820)=v(13819)+v(13466)*v(6917)+v(13790)*v(6939)
v(13806)=v(13805)+v(13466)*v(6918)+v(13790)*v(6940)
v(13483)=rio3(1,1)*v(7420)
v(18039)=v(13482)+v(13483)
v(13484)=rio3(2,1)*v(13447)+v(18039)
v(13782)=v(13781)+v(13457)*v(6746)+v(13484)*v(6755)
v(13775)=v(13774)+v(13457)*v(6747)+v(13484)*v(6756)
v(13767)=v(13766)+v(13457)*v(6748)+v(13484)*v(6757)
v(13758)=v(13757)+v(13457)*v(6749)+v(13484)*v(6758)
v(13748)=v(13747)+v(13457)*v(6750)+v(13484)*v(6759)
v(13737)=v(13736)+v(13457)*v(6751)+v(13484)*v(6760)
v(13725)=v(13724)+v(13457)*v(6752)+v(13484)*v(6761)
v(13712)=v(13711)+v(13457)*v(6753)+v(13484)*v(6762)
v(13698)=v(13697)+v(13457)*v(6754)+v(13484)*v(6763)
v(13683)=v(13682)+v(13457)*v(6919)+v(13484)*v(6941)
v(13676)=v(13675)+v(13457)*v(6920)+v(13484)*v(6942)
v(13668)=v(13667)+v(13457)*v(6921)+v(13484)*v(6943)
v(13659)=v(13658)+v(13457)*v(6922)+v(13484)*v(6944)
v(13649)=v(13648)+v(13457)*v(6924)+v(13484)*v(6945)
v(13638)=v(13637)+v(13457)*v(6926)+v(13484)*v(6947)
v(13626)=v(13625)+v(13457)*v(6905)+v(13484)*v(6906)
v(13613)=v(13612)+v(13457)*v(6927)+v(13484)*v(6928)
v(13599)=v(13598)+v(13457)*v(6928)+v(13484)*v(6948)
v(13584)=v(13583)+v(13457)*v(6907)+v(13484)*v(6929)
v(13577)=v(13576)+v(13457)*v(6908)+v(13484)*v(6930)
v(13569)=v(13568)+v(13457)*v(6909)+v(13484)*v(6931)
v(13560)=v(13559)+v(13457)*v(6910)+v(13484)*v(6932)
v(13550)=v(13549)+v(13457)*v(6912)+v(13484)*v(6933)
v(13539)=v(13538)+v(13457)*v(6914)+v(13484)*v(6935)
v(13527)=v(13526)+v(13457)*v(6916)+v(13484)*v(6937)
v(13514)=v(13513)+v(13457)*v(6917)+v(13484)*v(6939)
v(13500)=v(13499)+v(13457)*v(6918)+v(13484)*v(6940)
v(7409)=-(v(18021)*v(7373))
v(13341)=v(13039)+v(12917)*v(13079)+v(13339)+v(13340)*v(7404)+v(18026)*(v(12917)*v(12931)+v(12930)*v(7405))+v(12930)*v&
&(7409)
v(13346)=v(12977)-v(13341)
v(13342)=v(12977)+v(13341)
v(13217)=v(13067)+v(12920)*v(13079)+v(12937)*v(18026)+v(13340)*v(7406)+v(12928)*v(7409)
v(13231)=v(12978)-v(13217)
v(13303)=rio3(3,1)*v(13016)+rio3(1,1)*v(13077)+rio3(2,1)*v(13231)
v(13268)=rio3(3,2)*v(13016)+rio3(1,2)*v(13077)+rio3(2,2)*v(13231)
v(13233)=rio3(3,3)*v(13016)+rio3(1,3)*v(13077)+rio3(2,3)*v(13231)
v(13230)=v(13015)+v(13217)
v(13409)=rio3(3,1)*v(13018)+rio3(1,1)*v(13230)+rio3(2,1)*v(13346)
v(13378)=rio3(3,2)*v(13018)+rio3(1,2)*v(13230)+rio3(2,2)*v(13346)
v(13347)=rio3(3,3)*v(13018)+rio3(1,3)*v(13230)+rio3(2,3)*v(13346)
v(13222)=v(12978)+v(13217)
v(13228)=rio3(2,1)*v(12973)+rio3(1,1)*v(13032)+rio3(3,1)*v(13222)
v(13336)=v(13075)*v(6408)+v(13228)*v(6410)+v(13303)*v(6411)
v(13325)=v(13075)*v(6461)+v(13228)*v(6463)+v(13303)*v(6465)
v(13314)=v(13075)*v(6460)+v(13228)*v(6462)+v(13303)*v(6464)
v(13226)=rio3(2,2)*v(12973)+rio3(1,2)*v(13032)+rio3(3,2)*v(13222)
v(13301)=v(13073)*v(6408)+v(13226)*v(6410)+v(13268)*v(6411)
v(13290)=v(13073)*v(6461)+v(13226)*v(6463)+v(13268)*v(6465)
v(13279)=v(13073)*v(6460)+v(13226)*v(6462)+v(13268)*v(6464)
v(13224)=rio3(2,3)*v(12973)+rio3(1,3)*v(13032)+rio3(3,3)*v(13222)
v(13266)=v(13071)*v(6408)+v(13224)*v(6410)+v(13233)*v(6411)
v(13255)=v(13071)*v(6461)+v(13224)*v(6463)+v(13233)*v(6465)
v(13244)=v(13071)*v(6460)+v(13224)*v(6462)+v(13233)*v(6464)
v(13218)=v(13015)-v(13217)
v(13082)=-v(13042)+v(12923)*v(13079)+v(6552)*(v(12934)/v(6553)+v(18027)*v(7407))+v(12925)*v(7409)
v(13097)=v(12979)-v(13082)
v(13178)=rio3(3,1)*v(12968)+rio3(1,1)*v(13035)+rio3(2,1)*v(13097)
v(13139)=rio3(3,2)*v(12968)+rio3(1,2)*v(13035)+rio3(2,2)*v(13097)
v(13100)=rio3(3,3)*v(12968)+rio3(1,3)*v(13035)+rio3(2,3)*v(13097)
v(13085)=v(12979)+v(13082)
v(13094)=rio3(2,1)*v(13003)+rio3(1,1)*v(13063)+rio3(3,1)*v(13085)
v(13214)=v(13060)*v(6408)+v(13094)*v(6410)+v(13178)*v(6411)
v(13202)=v(13060)*v(6461)+v(13094)*v(6463)+v(13178)*v(6465)
v(13190)=v(13060)*v(6460)+v(13094)*v(6462)+v(13178)*v(6464)
v(13091)=rio3(2,2)*v(13003)+rio3(1,2)*v(13063)+rio3(3,2)*v(13085)
v(13175)=v(13057)*v(6408)+v(13091)*v(6410)+v(13139)*v(6411)
v(13163)=v(13057)*v(6461)+v(13091)*v(6463)+v(13139)*v(6465)
v(13151)=v(13057)*v(6460)+v(13091)*v(6462)+v(13139)*v(6464)
v(13088)=rio3(2,3)*v(13003)+rio3(1,3)*v(13063)+rio3(3,3)*v(13085)
v(13136)=v(13054)*v(6408)+v(13088)*v(6410)+v(13100)*v(6411)
v(13124)=v(13054)*v(6461)+v(13088)*v(6463)+v(13100)*v(6465)
v(13112)=v(13054)*v(6460)+v(13088)*v(6462)+v(13100)*v(6464)
v(13084)=v(13002)-v(13082)
v(13345)=rio3(2,1)*v(13007)+rio3(1,1)*v(13084)+rio3(3,1)*v(13342)
v(13344)=rio3(2,2)*v(13007)+rio3(1,2)*v(13084)+rio3(3,2)*v(13342)
v(13343)=rio3(2,3)*v(13007)+rio3(1,3)*v(13084)+rio3(3,3)*v(13342)
v(13083)=v(13002)+v(13082)
v(13221)=rio3(1,1)*v(12981)+rio3(2,1)*v(13083)+rio3(3,1)*v(13218)
v(13439)=v(13221)*v(6408)+v(13345)*v(6410)+v(13409)*v(6411)
v(13429)=v(13221)*v(6461)+v(13345)*v(6463)+v(13409)*v(6465)
v(13419)=v(13221)*v(6460)+v(13345)*v(6462)+v(13409)*v(6464)
v(13220)=rio3(1,2)*v(12981)+rio3(2,2)*v(13083)+rio3(3,2)*v(13218)
v(13408)=v(13220)*v(6408)+v(13344)*v(6410)+v(13378)*v(6411)
v(13398)=v(13220)*v(6461)+v(13344)*v(6463)+v(13378)*v(6465)
v(13388)=v(13220)*v(6460)+v(13344)*v(6462)+v(13378)*v(6464)
v(13219)=rio3(1,3)*v(12981)+rio3(2,3)*v(13083)+rio3(3,3)*v(13218)
v(13377)=v(13219)*v(6408)+v(13343)*v(6410)+v(13347)*v(6411)
v(13367)=v(13219)*v(6461)+v(13343)*v(6463)+v(13347)*v(6465)
v(13357)=v(13219)*v(6460)+v(13343)*v(6462)+v(13347)*v(6464)
v(7411)=v(13444)+v(12923)*v(7409)
v(7432)=v(7395)+v(7411)
v(7426)=v(7395)-v(7411)
v(13471)=rio3(1,3)*v(7426)
v(18041)=v(13470)+v(13471)
v(13472)=rio3(3,3)*v(13449)+v(18041)
v(13462)=rio3(1,2)*v(7426)
v(18042)=v(13461)+v(13462)
v(13463)=rio3(3,2)*v(13449)+v(18042)
v(13453)=rio3(1,1)*v(7426)
v(18043)=v(13452)+v(13453)
v(13454)=rio3(3,1)*v(13449)+v(18043)
v(7424)=v(7388)+v(7411)
v(7452)=v(18028)+rio3(3,3)*v(7424)
v(7449)=v(18029)+rio3(3,2)*v(7424)
v(7446)=v(18030)+rio3(3,1)*v(7424)
v(7414)=v(7388)-v(7411)
v(7533)=v(18031)+rio3(2,3)*v(7414)
v(13135)=v(14311)+v(6754)*v(7452)+v(6763)*v(7533)
v(13134)=v(14325)+v(6753)*v(7452)+v(6762)*v(7533)
v(13133)=v(14338)+v(6752)*v(7452)+v(6761)*v(7533)
v(13132)=v(14350)+v(6751)*v(7452)+v(6760)*v(7533)
v(13131)=v(14361)+v(6750)*v(7452)+v(6759)*v(7533)
v(13130)=v(14371)+v(6749)*v(7452)+v(6758)*v(7533)
v(13129)=v(14380)+v(6748)*v(7452)+v(6757)*v(7533)
v(13128)=v(14388)+v(6747)*v(7452)+v(6756)*v(7533)
v(13127)=v(14395)+v(6746)*v(7452)+v(6755)*v(7533)
v(13123)=v(14212)+v(6928)*v(7452)+v(6948)*v(7533)
v(13122)=v(14226)+v(6927)*v(7452)+v(6928)*v(7533)
v(13121)=v(14239)+v(6905)*v(7452)+v(6906)*v(7533)
v(13120)=v(14251)+v(6926)*v(7452)+v(6947)*v(7533)
v(13119)=v(14262)+v(6924)*v(7452)+v(6945)*v(7533)
v(13118)=v(14272)+v(6922)*v(7452)+v(6944)*v(7533)
v(13117)=v(14281)+v(6921)*v(7452)+v(6943)*v(7533)
v(13116)=v(14289)+v(6920)*v(7452)+v(6942)*v(7533)
v(13115)=v(14296)+v(6919)*v(7452)+v(6941)*v(7533)
v(13111)=v(14113)+v(6918)*v(7452)+v(6940)*v(7533)
v(13110)=v(14127)+v(6917)*v(7452)+v(6939)*v(7533)
v(13109)=v(14140)+v(6916)*v(7452)+v(6937)*v(7533)
v(13108)=v(14152)+v(6914)*v(7452)+v(6935)*v(7533)
v(13107)=v(14163)+v(6912)*v(7452)+v(6933)*v(7533)
v(13106)=v(14173)+v(6910)*v(7452)+v(6932)*v(7533)
v(13105)=v(14182)+v(6909)*v(7452)+v(6931)*v(7533)
v(13104)=v(14190)+v(6908)*v(7452)+v(6930)*v(7533)
v(13103)=v(14197)+v(6907)*v(7452)+v(6929)*v(7533)
v(7569)=v(6460)*v(7443)+v(6462)*v(7452)+v(6464)*v(7533)
v(7557)=v(6461)*v(7443)+v(6463)*v(7452)+v(6465)*v(7533)
v(7545)=v(6408)*v(7443)+v(6410)*v(7452)+v(6411)*v(7533)
v(7494)=v(18032)+rio3(2,2)*v(7414)
v(13174)=v(14005)+v(6754)*v(7449)+v(6763)*v(7494)
v(13173)=v(14019)+v(6753)*v(7449)+v(6762)*v(7494)
v(13172)=v(14032)+v(6752)*v(7449)+v(6761)*v(7494)
v(13171)=v(14044)+v(6751)*v(7449)+v(6760)*v(7494)
v(13170)=v(14055)+v(6750)*v(7449)+v(6759)*v(7494)
v(13169)=v(14065)+v(6749)*v(7449)+v(6758)*v(7494)
v(13168)=v(14074)+v(6748)*v(7449)+v(6757)*v(7494)
v(13167)=v(14082)+v(6747)*v(7449)+v(6756)*v(7494)
v(13166)=v(14089)+v(6746)*v(7449)+v(6755)*v(7494)
v(13162)=v(13906)+v(6928)*v(7449)+v(6948)*v(7494)
v(13161)=v(13920)+v(6927)*v(7449)+v(6928)*v(7494)
v(13160)=v(13933)+v(6905)*v(7449)+v(6906)*v(7494)
v(13159)=v(13945)+v(6926)*v(7449)+v(6947)*v(7494)
v(13158)=v(13956)+v(6924)*v(7449)+v(6945)*v(7494)
v(13157)=v(13966)+v(6922)*v(7449)+v(6944)*v(7494)
v(13156)=v(13975)+v(6921)*v(7449)+v(6943)*v(7494)
v(13155)=v(13983)+v(6920)*v(7449)+v(6942)*v(7494)
v(13154)=v(13990)+v(6919)*v(7449)+v(6941)*v(7494)
v(13150)=v(13807)+v(6918)*v(7449)+v(6940)*v(7494)
v(13149)=v(13821)+v(6917)*v(7449)+v(6939)*v(7494)
v(13148)=v(13834)+v(6916)*v(7449)+v(6937)*v(7494)
v(13147)=v(13846)+v(6914)*v(7449)+v(6935)*v(7494)
v(13146)=v(13857)+v(6912)*v(7449)+v(6933)*v(7494)
v(13145)=v(13867)+v(6910)*v(7449)+v(6932)*v(7494)
v(13144)=v(13876)+v(6909)*v(7449)+v(6931)*v(7494)
v(13143)=v(13884)+v(6908)*v(7449)+v(6930)*v(7494)
v(13142)=v(13891)+v(6907)*v(7449)+v(6929)*v(7494)
v(7530)=v(6460)*v(7440)+v(6462)*v(7449)+v(6464)*v(7494)
v(7518)=v(6461)*v(7440)+v(6463)*v(7449)+v(6465)*v(7494)
v(7506)=v(6408)*v(7440)+v(6410)*v(7449)+v(6411)*v(7494)
v(7455)=v(18033)+rio3(2,1)*v(7414)
v(13213)=v(13699)+v(6754)*v(7446)+v(6763)*v(7455)
v(13212)=v(13713)+v(6753)*v(7446)+v(6762)*v(7455)
v(13211)=v(13726)+v(6752)*v(7446)+v(6761)*v(7455)
v(13210)=v(13738)+v(6751)*v(7446)+v(6760)*v(7455)
v(13209)=v(13749)+v(6750)*v(7446)+v(6759)*v(7455)
v(13208)=v(13759)+v(6749)*v(7446)+v(6758)*v(7455)
v(13207)=v(13768)+v(6748)*v(7446)+v(6757)*v(7455)
v(13206)=v(13776)+v(6747)*v(7446)+v(6756)*v(7455)
v(13205)=v(13783)+v(6746)*v(7446)+v(6755)*v(7455)
v(13201)=v(13600)+v(6928)*v(7446)+v(6948)*v(7455)
v(13200)=v(13614)+v(6927)*v(7446)+v(6928)*v(7455)
v(13199)=v(13627)+v(6905)*v(7446)+v(6906)*v(7455)
v(13198)=v(13639)+v(6926)*v(7446)+v(6947)*v(7455)
v(13197)=v(13650)+v(6924)*v(7446)+v(6945)*v(7455)
v(13196)=v(13660)+v(6922)*v(7446)+v(6944)*v(7455)
v(13195)=v(13669)+v(6921)*v(7446)+v(6943)*v(7455)
v(13194)=v(13677)+v(6920)*v(7446)+v(6942)*v(7455)
v(13193)=v(13684)+v(6919)*v(7446)+v(6941)*v(7455)
v(13189)=v(13501)+v(6918)*v(7446)+v(6940)*v(7455)
v(13188)=v(13515)+v(6917)*v(7446)+v(6939)*v(7455)
v(13187)=v(13528)+v(6916)*v(7446)+v(6937)*v(7455)
v(13186)=v(13540)+v(6914)*v(7446)+v(6935)*v(7455)
v(13185)=v(13551)+v(6912)*v(7446)+v(6933)*v(7455)
v(13184)=v(13561)+v(6910)*v(7446)+v(6932)*v(7455)
v(13183)=v(13570)+v(6909)*v(7446)+v(6931)*v(7455)
v(13182)=v(13578)+v(6908)*v(7446)+v(6930)*v(7455)
v(13181)=v(13585)+v(6907)*v(7446)+v(6929)*v(7455)
v(7491)=v(6460)*v(7437)+v(6462)*v(7446)+v(6464)*v(7455)
v(7479)=v(6461)*v(7437)+v(6463)*v(7446)+v(6465)*v(7455)
v(7467)=v(6408)*v(7437)+v(6410)*v(7446)+v(6411)*v(7455)
v(7410)=v(13442)+v(12920)*v(7409)
v(7429)=v(7383)-v(7410)
v(7441)=rio3(1,3)*v(7399)+rio3(3,3)*v(7429)+rio3(2,3)*v(7432)
v(14391)=v(6737)*v(7441)
v(14384)=v(6738)*v(7441)
v(14376)=v(6739)*v(7441)
v(14367)=v(6740)*v(7441)
v(14357)=v(6741)*v(7441)
v(14346)=v(6742)*v(7441)
v(14334)=v(6743)*v(7441)
v(14321)=v(6744)*v(7441)
v(14307)=v(6745)*v(7441)
v(14292)=v(6895)*v(7441)
v(14285)=v(6896)*v(7441)
v(14277)=v(6897)*v(7441)
v(14268)=v(6899)*v(7441)
v(14258)=v(6901)*v(7441)
v(14247)=v(6903)*v(7441)
v(14235)=v(6904)*v(7441)
v(14222)=v(6905)*v(7441)
v(14208)=v(6906)*v(7441)
v(14193)=v(6883)*v(7441)
v(14186)=v(6884)*v(7441)
v(14178)=v(6885)*v(7441)
v(14169)=v(6887)*v(7441)
v(14159)=v(6889)*v(7441)
v(14148)=v(6891)*v(7441)
v(14136)=v(6892)*v(7441)
v(14123)=v(6893)*v(7441)
v(14109)=v(6894)*v(7441)
v(7438)=rio3(1,2)*v(7399)+rio3(3,2)*v(7429)+rio3(2,2)*v(7432)
v(14085)=v(6737)*v(7438)
v(14078)=v(6738)*v(7438)
v(14070)=v(6739)*v(7438)
v(14061)=v(6740)*v(7438)
v(14051)=v(6741)*v(7438)
v(14040)=v(6742)*v(7438)
v(14028)=v(6743)*v(7438)
v(14015)=v(6744)*v(7438)
v(14001)=v(6745)*v(7438)
v(13986)=v(6895)*v(7438)
v(13979)=v(6896)*v(7438)
v(13971)=v(6897)*v(7438)
v(13962)=v(6899)*v(7438)
v(13952)=v(6901)*v(7438)
v(13941)=v(6903)*v(7438)
v(13929)=v(6904)*v(7438)
v(13916)=v(6905)*v(7438)
v(13902)=v(6906)*v(7438)
v(13887)=v(6883)*v(7438)
v(13880)=v(6884)*v(7438)
v(13872)=v(6885)*v(7438)
v(13863)=v(6887)*v(7438)
v(13853)=v(6889)*v(7438)
v(13842)=v(6891)*v(7438)
v(13830)=v(6892)*v(7438)
v(13817)=v(6893)*v(7438)
v(13803)=v(6894)*v(7438)
v(7435)=rio3(1,1)*v(7399)+rio3(3,1)*v(7429)+rio3(2,1)*v(7432)
v(13779)=v(6737)*v(7435)
v(13772)=v(6738)*v(7435)
v(13764)=v(6739)*v(7435)
v(13755)=v(6740)*v(7435)
v(13745)=v(6741)*v(7435)
v(13734)=v(6742)*v(7435)
v(13722)=v(6743)*v(7435)
v(13709)=v(6744)*v(7435)
v(13695)=v(6745)*v(7435)
v(13680)=v(6895)*v(7435)
v(13673)=v(6896)*v(7435)
v(13665)=v(6897)*v(7435)
v(13656)=v(6899)*v(7435)
v(13646)=v(6901)*v(7435)
v(13635)=v(6903)*v(7435)
v(13623)=v(6904)*v(7435)
v(13610)=v(6905)*v(7435)
v(13596)=v(6906)*v(7435)
v(13581)=v(6883)*v(7435)
v(13574)=v(6884)*v(7435)
v(13566)=v(6885)*v(7435)
v(13557)=v(6887)*v(7435)
v(13547)=v(6889)*v(7435)
v(13536)=v(6891)*v(7435)
v(13524)=v(6892)*v(7435)
v(13511)=v(6893)*v(7435)
v(13497)=v(6894)*v(7435)
v(7423)=v(7387)+v(7410)
v(7451)=v(18034)+rio3(3,3)*v(7423)
v(7448)=v(18035)+rio3(3,2)*v(7423)
v(7445)=v(18036)+rio3(3,1)*v(7423)
v(7419)=v(7383)+v(7410)
v(14092)=rio3(1,3)*v(7419)
v(18044)=v(14091)+v(14092)
v(14093)=rio3(2,3)*v(13446)+v(18044)
v(14392)=v(14391)+v(13472)*v(6746)+v(14093)*v(6755)
v(14385)=v(14384)+v(13472)*v(6747)+v(14093)*v(6756)
v(14377)=v(14376)+v(13472)*v(6748)+v(14093)*v(6757)
v(14368)=v(14367)+v(13472)*v(6749)+v(14093)*v(6758)
v(14358)=v(14357)+v(13472)*v(6750)+v(14093)*v(6759)
v(14347)=v(14346)+v(13472)*v(6751)+v(14093)*v(6760)
v(14335)=v(14334)+v(13472)*v(6752)+v(14093)*v(6761)
v(14322)=v(14321)+v(13472)*v(6753)+v(14093)*v(6762)
v(14308)=v(14307)+v(13472)*v(6754)+v(14093)*v(6763)
v(14293)=v(14292)+v(13472)*v(6919)+v(14093)*v(6941)
v(14286)=v(14285)+v(13472)*v(6920)+v(14093)*v(6942)
v(14278)=v(14277)+v(13472)*v(6921)+v(14093)*v(6943)
v(14269)=v(14268)+v(13472)*v(6922)+v(14093)*v(6944)
v(14259)=v(14258)+v(13472)*v(6924)+v(14093)*v(6945)
v(14248)=v(14247)+v(13472)*v(6926)+v(14093)*v(6947)
v(14236)=v(14235)+v(13472)*v(6905)+v(14093)*v(6906)
v(14223)=v(14222)+v(13472)*v(6927)+v(14093)*v(6928)
v(14209)=v(14208)+v(13472)*v(6928)+v(14093)*v(6948)
v(14194)=v(14193)+v(13472)*v(6907)+v(14093)*v(6929)
v(14187)=v(14186)+v(13472)*v(6908)+v(14093)*v(6930)
v(14179)=v(14178)+v(13472)*v(6909)+v(14093)*v(6931)
v(14170)=v(14169)+v(13472)*v(6910)+v(14093)*v(6932)
v(14160)=v(14159)+v(13472)*v(6912)+v(14093)*v(6933)
v(14149)=v(14148)+v(13472)*v(6914)+v(14093)*v(6935)
v(14137)=v(14136)+v(13472)*v(6916)+v(14093)*v(6937)
v(14124)=v(14123)+v(13472)*v(6917)+v(14093)*v(6939)
v(14110)=v(14109)+v(13472)*v(6918)+v(14093)*v(6940)
v(13786)=rio3(1,2)*v(7419)
v(18045)=v(13785)+v(13786)
v(13787)=rio3(2,2)*v(13446)+v(18045)
v(14086)=v(14085)+v(13463)*v(6746)+v(13787)*v(6755)
v(14079)=v(14078)+v(13463)*v(6747)+v(13787)*v(6756)
v(14071)=v(14070)+v(13463)*v(6748)+v(13787)*v(6757)
v(14062)=v(14061)+v(13463)*v(6749)+v(13787)*v(6758)
v(14052)=v(14051)+v(13463)*v(6750)+v(13787)*v(6759)
v(14041)=v(14040)+v(13463)*v(6751)+v(13787)*v(6760)
v(14029)=v(14028)+v(13463)*v(6752)+v(13787)*v(6761)
v(14016)=v(14015)+v(13463)*v(6753)+v(13787)*v(6762)
v(14002)=v(14001)+v(13463)*v(6754)+v(13787)*v(6763)
v(13987)=v(13986)+v(13463)*v(6919)+v(13787)*v(6941)
v(13980)=v(13979)+v(13463)*v(6920)+v(13787)*v(6942)
v(13972)=v(13971)+v(13463)*v(6921)+v(13787)*v(6943)
v(13963)=v(13962)+v(13463)*v(6922)+v(13787)*v(6944)
v(13953)=v(13952)+v(13463)*v(6924)+v(13787)*v(6945)
v(13942)=v(13941)+v(13463)*v(6926)+v(13787)*v(6947)
v(13930)=v(13929)+v(13463)*v(6905)+v(13787)*v(6906)
v(13917)=v(13916)+v(13463)*v(6927)+v(13787)*v(6928)
v(13903)=v(13902)+v(13463)*v(6928)+v(13787)*v(6948)
v(13888)=v(13887)+v(13463)*v(6907)+v(13787)*v(6929)
v(13881)=v(13880)+v(13463)*v(6908)+v(13787)*v(6930)
v(13873)=v(13872)+v(13463)*v(6909)+v(13787)*v(6931)
v(13864)=v(13863)+v(13463)*v(6910)+v(13787)*v(6932)
v(13854)=v(13853)+v(13463)*v(6912)+v(13787)*v(6933)
v(13843)=v(13842)+v(13463)*v(6914)+v(13787)*v(6935)
v(13831)=v(13830)+v(13463)*v(6916)+v(13787)*v(6937)
v(13818)=v(13817)+v(13463)*v(6917)+v(13787)*v(6939)
v(13804)=v(13803)+v(13463)*v(6918)+v(13787)*v(6940)
v(13480)=rio3(1,1)*v(7419)
v(18046)=v(13479)+v(13480)
v(13481)=rio3(2,1)*v(13446)+v(18046)
v(13780)=v(13779)+v(13454)*v(6746)+v(13481)*v(6755)
v(13773)=v(13772)+v(13454)*v(6747)+v(13481)*v(6756)
v(13765)=v(13764)+v(13454)*v(6748)+v(13481)*v(6757)
v(13756)=v(13755)+v(13454)*v(6749)+v(13481)*v(6758)
v(13746)=v(13745)+v(13454)*v(6750)+v(13481)*v(6759)
v(13735)=v(13734)+v(13454)*v(6751)+v(13481)*v(6760)
v(13723)=v(13722)+v(13454)*v(6752)+v(13481)*v(6761)
v(13710)=v(13709)+v(13454)*v(6753)+v(13481)*v(6762)
v(13696)=v(13695)+v(13454)*v(6754)+v(13481)*v(6763)
v(13681)=v(13680)+v(13454)*v(6919)+v(13481)*v(6941)
v(13674)=v(13673)+v(13454)*v(6920)+v(13481)*v(6942)
v(13666)=v(13665)+v(13454)*v(6921)+v(13481)*v(6943)
v(13657)=v(13656)+v(13454)*v(6922)+v(13481)*v(6944)
v(13647)=v(13646)+v(13454)*v(6924)+v(13481)*v(6945)
v(13636)=v(13635)+v(13454)*v(6926)+v(13481)*v(6947)
v(13624)=v(13623)+v(13454)*v(6905)+v(13481)*v(6906)
v(13611)=v(13610)+v(13454)*v(6927)+v(13481)*v(6928)
v(13597)=v(13596)+v(13454)*v(6928)+v(13481)*v(6948)
v(13582)=v(13581)+v(13454)*v(6907)+v(13481)*v(6929)
v(13575)=v(13574)+v(13454)*v(6908)+v(13481)*v(6930)
v(13567)=v(13566)+v(13454)*v(6909)+v(13481)*v(6931)
v(13558)=v(13557)+v(13454)*v(6910)+v(13481)*v(6932)
v(13548)=v(13547)+v(13454)*v(6912)+v(13481)*v(6933)
v(13537)=v(13536)+v(13454)*v(6914)+v(13481)*v(6935)
v(13525)=v(13524)+v(13454)*v(6916)+v(13481)*v(6937)
v(13512)=v(13511)+v(13454)*v(6917)+v(13481)*v(6939)
v(13498)=v(13497)+v(13454)*v(6918)+v(13481)*v(6940)
v(7413)=v(7387)-v(7410)
v(7532)=v(18037)+rio3(2,3)*v(7413)
v(13265)=v(14309)+v(6754)*v(7451)+v(6763)*v(7532)
v(13264)=v(14323)+v(6753)*v(7451)+v(6762)*v(7532)
v(13263)=v(14336)+v(6752)*v(7451)+v(6761)*v(7532)
v(13262)=v(14348)+v(6751)*v(7451)+v(6760)*v(7532)
v(13261)=v(14359)+v(6750)*v(7451)+v(6759)*v(7532)
v(13260)=v(14369)+v(6749)*v(7451)+v(6758)*v(7532)
v(13259)=v(14378)+v(6748)*v(7451)+v(6757)*v(7532)
v(13258)=v(14386)+v(6747)*v(7451)+v(6756)*v(7532)
v(13257)=v(14393)+v(6746)*v(7451)+v(6755)*v(7532)
v(13254)=v(14210)+v(6928)*v(7451)+v(6948)*v(7532)
v(13253)=v(14224)+v(6927)*v(7451)+v(6928)*v(7532)
v(13252)=v(14237)+v(6905)*v(7451)+v(6906)*v(7532)
v(13251)=v(14249)+v(6926)*v(7451)+v(6947)*v(7532)
v(13250)=v(14260)+v(6924)*v(7451)+v(6945)*v(7532)
v(13249)=v(14270)+v(6922)*v(7451)+v(6944)*v(7532)
v(13248)=v(14279)+v(6921)*v(7451)+v(6943)*v(7532)
v(13247)=v(14287)+v(6920)*v(7451)+v(6942)*v(7532)
v(13246)=v(14294)+v(6919)*v(7451)+v(6941)*v(7532)
v(13243)=v(14111)+v(6918)*v(7451)+v(6940)*v(7532)
v(13242)=v(14125)+v(6917)*v(7451)+v(6939)*v(7532)
v(13241)=v(14138)+v(6916)*v(7451)+v(6937)*v(7532)
v(13240)=v(14150)+v(6914)*v(7451)+v(6935)*v(7532)
v(13239)=v(14161)+v(6912)*v(7451)+v(6933)*v(7532)
v(13238)=v(14171)+v(6910)*v(7451)+v(6932)*v(7532)
v(13237)=v(14180)+v(6909)*v(7451)+v(6931)*v(7532)
v(13236)=v(14188)+v(6908)*v(7451)+v(6930)*v(7532)
v(13235)=v(14195)+v(6907)*v(7451)+v(6929)*v(7532)
v(7568)=v(6460)*v(7442)+v(6462)*v(7451)+v(6464)*v(7532)
v(7556)=v(6461)*v(7442)+v(6463)*v(7451)+v(6465)*v(7532)
v(7544)=v(6408)*v(7442)+v(6410)*v(7451)+v(6411)*v(7532)
v(7493)=v(18038)+rio3(2,2)*v(7413)
v(13300)=v(14003)+v(6754)*v(7448)+v(6763)*v(7493)
v(13299)=v(14017)+v(6753)*v(7448)+v(6762)*v(7493)
v(13298)=v(14030)+v(6752)*v(7448)+v(6761)*v(7493)
v(13297)=v(14042)+v(6751)*v(7448)+v(6760)*v(7493)
v(13296)=v(14053)+v(6750)*v(7448)+v(6759)*v(7493)
v(13295)=v(14063)+v(6749)*v(7448)+v(6758)*v(7493)
v(13294)=v(14072)+v(6748)*v(7448)+v(6757)*v(7493)
v(13293)=v(14080)+v(6747)*v(7448)+v(6756)*v(7493)
v(13292)=v(14087)+v(6746)*v(7448)+v(6755)*v(7493)
v(13289)=v(13904)+v(6928)*v(7448)+v(6948)*v(7493)
v(13288)=v(13918)+v(6927)*v(7448)+v(6928)*v(7493)
v(13287)=v(13931)+v(6905)*v(7448)+v(6906)*v(7493)
v(13286)=v(13943)+v(6926)*v(7448)+v(6947)*v(7493)
v(13285)=v(13954)+v(6924)*v(7448)+v(6945)*v(7493)
v(13284)=v(13964)+v(6922)*v(7448)+v(6944)*v(7493)
v(13283)=v(13973)+v(6921)*v(7448)+v(6943)*v(7493)
v(13282)=v(13981)+v(6920)*v(7448)+v(6942)*v(7493)
v(13281)=v(13988)+v(6919)*v(7448)+v(6941)*v(7493)
v(13278)=v(13805)+v(6918)*v(7448)+v(6940)*v(7493)
v(13277)=v(13819)+v(6917)*v(7448)+v(6939)*v(7493)
v(13276)=v(13832)+v(6916)*v(7448)+v(6937)*v(7493)
v(13275)=v(13844)+v(6914)*v(7448)+v(6935)*v(7493)
v(13274)=v(13855)+v(6912)*v(7448)+v(6933)*v(7493)
v(13273)=v(13865)+v(6910)*v(7448)+v(6932)*v(7493)
v(13272)=v(13874)+v(6909)*v(7448)+v(6931)*v(7493)
v(13271)=v(13882)+v(6908)*v(7448)+v(6930)*v(7493)
v(13270)=v(13889)+v(6907)*v(7448)+v(6929)*v(7493)
v(7529)=v(6460)*v(7439)+v(6462)*v(7448)+v(6464)*v(7493)
v(7517)=v(6461)*v(7439)+v(6463)*v(7448)+v(6465)*v(7493)
v(7505)=v(6408)*v(7439)+v(6410)*v(7448)+v(6411)*v(7493)
v(7454)=v(18039)+rio3(2,1)*v(7413)
v(13335)=v(13697)+v(6754)*v(7445)+v(6763)*v(7454)
v(13334)=v(13711)+v(6753)*v(7445)+v(6762)*v(7454)
v(13333)=v(13724)+v(6752)*v(7445)+v(6761)*v(7454)
v(13332)=v(13736)+v(6751)*v(7445)+v(6760)*v(7454)
v(13331)=v(13747)+v(6750)*v(7445)+v(6759)*v(7454)
v(13330)=v(13757)+v(6749)*v(7445)+v(6758)*v(7454)
v(13329)=v(13766)+v(6748)*v(7445)+v(6757)*v(7454)
v(13328)=v(13774)+v(6747)*v(7445)+v(6756)*v(7454)
v(13327)=v(13781)+v(6746)*v(7445)+v(6755)*v(7454)
v(13324)=v(13598)+v(6928)*v(7445)+v(6948)*v(7454)
v(13323)=v(13612)+v(6927)*v(7445)+v(6928)*v(7454)
v(13322)=v(13625)+v(6905)*v(7445)+v(6906)*v(7454)
v(13321)=v(13637)+v(6926)*v(7445)+v(6947)*v(7454)
v(13320)=v(13648)+v(6924)*v(7445)+v(6945)*v(7454)
v(13319)=v(13658)+v(6922)*v(7445)+v(6944)*v(7454)
v(13318)=v(13667)+v(6921)*v(7445)+v(6943)*v(7454)
v(13317)=v(13675)+v(6920)*v(7445)+v(6942)*v(7454)
v(13316)=v(13682)+v(6919)*v(7445)+v(6941)*v(7454)
v(13313)=v(13499)+v(6918)*v(7445)+v(6940)*v(7454)
v(13312)=v(13513)+v(6917)*v(7445)+v(6939)*v(7454)
v(13311)=v(13526)+v(6916)*v(7445)+v(6937)*v(7454)
v(13310)=v(13538)+v(6914)*v(7445)+v(6935)*v(7454)
v(13309)=v(13549)+v(6912)*v(7445)+v(6933)*v(7454)
v(13308)=v(13559)+v(6910)*v(7445)+v(6932)*v(7454)
v(13307)=v(13568)+v(6909)*v(7445)+v(6931)*v(7454)
v(13306)=v(13576)+v(6908)*v(7445)+v(6930)*v(7454)
v(13305)=v(13583)+v(6907)*v(7445)+v(6929)*v(7454)
v(7490)=v(6460)*v(7436)+v(6462)*v(7445)+v(6464)*v(7454)
v(7478)=v(6461)*v(7436)+v(6463)*v(7445)+v(6465)*v(7454)
v(7466)=v(6408)*v(7436)+v(6410)*v(7445)+v(6411)*v(7454)
v(7408)=v(18040)+v(12917)*v(7409)
v(7422)=v(7384)+v(7408)
v(7450)=v(18041)+rio3(3,3)*v(7422)
v(7447)=v(18042)+rio3(3,2)*v(7422)
v(7444)=v(18043)+rio3(3,1)*v(7422)
v(7412)=v(7384)-v(7408)
v(7531)=v(18044)+rio3(2,3)*v(7412)
v(13376)=v(14307)+v(6754)*v(7450)+v(6763)*v(7531)
v(13375)=v(14321)+v(6753)*v(7450)+v(6762)*v(7531)
v(13374)=v(14334)+v(6752)*v(7450)+v(6761)*v(7531)
v(13373)=v(14346)+v(6751)*v(7450)+v(6760)*v(7531)
v(13372)=v(14357)+v(6750)*v(7450)+v(6759)*v(7531)
v(13371)=v(14367)+v(6749)*v(7450)+v(6758)*v(7531)
v(13370)=v(14376)+v(6748)*v(7450)+v(6757)*v(7531)
v(13369)=v(14384)+v(6747)*v(7450)+v(6756)*v(7531)
v(13368)=v(14391)+v(6746)*v(7450)+v(6755)*v(7531)
v(13366)=v(14208)+v(6928)*v(7450)+v(6948)*v(7531)
v(13365)=v(14222)+v(6927)*v(7450)+v(6928)*v(7531)
v(13364)=v(14235)+v(6905)*v(7450)+v(6906)*v(7531)
v(13363)=v(14247)+v(6926)*v(7450)+v(6947)*v(7531)
v(13362)=v(14258)+v(6924)*v(7450)+v(6945)*v(7531)
v(13361)=v(14268)+v(6922)*v(7450)+v(6944)*v(7531)
v(13360)=v(14277)+v(6921)*v(7450)+v(6943)*v(7531)
v(13359)=v(14285)+v(6920)*v(7450)+v(6942)*v(7531)
v(13358)=v(14292)+v(6919)*v(7450)+v(6941)*v(7531)
v(13356)=v(14109)+v(6918)*v(7450)+v(6940)*v(7531)
v(13355)=v(14123)+v(6917)*v(7450)+v(6939)*v(7531)
v(13354)=v(14136)+v(6916)*v(7450)+v(6937)*v(7531)
v(13353)=v(14148)+v(6914)*v(7450)+v(6935)*v(7531)
v(13352)=v(14159)+v(6912)*v(7450)+v(6933)*v(7531)
v(13351)=v(14169)+v(6910)*v(7450)+v(6932)*v(7531)
v(13350)=v(14178)+v(6909)*v(7450)+v(6931)*v(7531)
v(13349)=v(14186)+v(6908)*v(7450)+v(6930)*v(7531)
v(13348)=v(14193)+v(6907)*v(7450)+v(6929)*v(7531)
v(7567)=v(6460)*v(7441)+v(6462)*v(7450)+v(6464)*v(7531)
v(7555)=v(6461)*v(7441)+v(6463)*v(7450)+v(6465)*v(7531)
v(7543)=v(6408)*v(7441)+v(6410)*v(7450)+v(6411)*v(7531)
v(7492)=v(18045)+rio3(2,2)*v(7412)
v(13407)=v(14001)+v(6754)*v(7447)+v(6763)*v(7492)
v(13406)=v(14015)+v(6753)*v(7447)+v(6762)*v(7492)
v(13405)=v(14028)+v(6752)*v(7447)+v(6761)*v(7492)
v(13404)=v(14040)+v(6751)*v(7447)+v(6760)*v(7492)
v(13403)=v(14051)+v(6750)*v(7447)+v(6759)*v(7492)
v(13402)=v(14061)+v(6749)*v(7447)+v(6758)*v(7492)
v(13401)=v(14070)+v(6748)*v(7447)+v(6757)*v(7492)
v(13400)=v(14078)+v(6747)*v(7447)+v(6756)*v(7492)
v(13399)=v(14085)+v(6746)*v(7447)+v(6755)*v(7492)
v(13397)=v(13902)+v(6928)*v(7447)+v(6948)*v(7492)
v(13396)=v(13916)+v(6927)*v(7447)+v(6928)*v(7492)
v(13395)=v(13929)+v(6905)*v(7447)+v(6906)*v(7492)
v(13394)=v(13941)+v(6926)*v(7447)+v(6947)*v(7492)
v(13393)=v(13952)+v(6924)*v(7447)+v(6945)*v(7492)
v(13392)=v(13962)+v(6922)*v(7447)+v(6944)*v(7492)
v(13391)=v(13971)+v(6921)*v(7447)+v(6943)*v(7492)
v(13390)=v(13979)+v(6920)*v(7447)+v(6942)*v(7492)
v(13389)=v(13986)+v(6919)*v(7447)+v(6941)*v(7492)
v(13387)=v(13803)+v(6918)*v(7447)+v(6940)*v(7492)
v(13386)=v(13817)+v(6917)*v(7447)+v(6939)*v(7492)
v(13385)=v(13830)+v(6916)*v(7447)+v(6937)*v(7492)
v(13384)=v(13842)+v(6914)*v(7447)+v(6935)*v(7492)
v(13383)=v(13853)+v(6912)*v(7447)+v(6933)*v(7492)
v(13382)=v(13863)+v(6910)*v(7447)+v(6932)*v(7492)
v(13381)=v(13872)+v(6909)*v(7447)+v(6931)*v(7492)
v(13380)=v(13880)+v(6908)*v(7447)+v(6930)*v(7492)
v(13379)=v(13887)+v(6907)*v(7447)+v(6929)*v(7492)
v(7528)=v(6460)*v(7438)+v(6462)*v(7447)+v(6464)*v(7492)
v(7516)=v(6461)*v(7438)+v(6463)*v(7447)+v(6465)*v(7492)
v(7504)=v(6408)*v(7438)+v(6410)*v(7447)+v(6411)*v(7492)
v(7453)=v(18046)+rio3(2,1)*v(7412)
v(13438)=v(13695)+v(6754)*v(7444)+v(6763)*v(7453)
v(13437)=v(13709)+v(6753)*v(7444)+v(6762)*v(7453)
v(13436)=v(13722)+v(6752)*v(7444)+v(6761)*v(7453)
v(13435)=v(13734)+v(6751)*v(7444)+v(6760)*v(7453)
v(13434)=v(13745)+v(6750)*v(7444)+v(6759)*v(7453)
v(13433)=v(13755)+v(6749)*v(7444)+v(6758)*v(7453)
v(13432)=v(13764)+v(6748)*v(7444)+v(6757)*v(7453)
v(13431)=v(13772)+v(6747)*v(7444)+v(6756)*v(7453)
v(13430)=v(13779)+v(6746)*v(7444)+v(6755)*v(7453)
v(13428)=v(13596)+v(6928)*v(7444)+v(6948)*v(7453)
v(13427)=v(13610)+v(6927)*v(7444)+v(6928)*v(7453)
v(13426)=v(13623)+v(6905)*v(7444)+v(6906)*v(7453)
v(13425)=v(13635)+v(6926)*v(7444)+v(6947)*v(7453)
v(13424)=v(13646)+v(6924)*v(7444)+v(6945)*v(7453)
v(13423)=v(13656)+v(6922)*v(7444)+v(6944)*v(7453)
v(13422)=v(13665)+v(6921)*v(7444)+v(6943)*v(7453)
v(13421)=v(13673)+v(6920)*v(7444)+v(6942)*v(7453)
v(13420)=v(13680)+v(6919)*v(7444)+v(6941)*v(7453)
v(13418)=v(13497)+v(6918)*v(7444)+v(6940)*v(7453)
v(13417)=v(13511)+v(6917)*v(7444)+v(6939)*v(7453)
v(13416)=v(13524)+v(6916)*v(7444)+v(6937)*v(7453)
v(13415)=v(13536)+v(6914)*v(7444)+v(6935)*v(7453)
v(13414)=v(13547)+v(6912)*v(7444)+v(6933)*v(7453)
v(13413)=v(13557)+v(6910)*v(7444)+v(6932)*v(7453)
v(13412)=v(13566)+v(6909)*v(7444)+v(6931)*v(7453)
v(13411)=v(13574)+v(6908)*v(7444)+v(6930)*v(7453)
v(13410)=v(13581)+v(6907)*v(7444)+v(6929)*v(7453)
v(7489)=v(6460)*v(7435)+v(6462)*v(7444)+v(6464)*v(7453)
v(7477)=v(6461)*v(7435)+v(6463)*v(7444)+v(6465)*v(7453)
v(7465)=v(6408)*v(7435)+v(6410)*v(7444)+v(6411)*v(7453)
v(6580)=-v(12931)+v(6573)
v(6579)=-v(12932)+v(6574)
v(6570)=v(12931)+v(6573)
v(6569)=-v(12933)+v(6564)
v(6561)=v(12932)+v(6574)
v(6560)=v(12933)+v(6564)
v(6558)=rio3(1,1)*v(6559)+rio3(2,1)*v(6560)+rio3(3,1)*v(6561)
v(6562)=rio3(1,2)*v(6559)+rio3(2,2)*v(6560)+rio3(3,2)*v(6561)
v(6563)=rio3(1,3)*v(6559)+rio3(2,3)*v(6560)+rio3(3,3)*v(6561)
v(6567)=rio3(2,1)*v(6568)+rio3(1,1)*v(6569)+rio3(3,1)*v(6570)
v(6571)=rio3(2,2)*v(6568)+rio3(1,2)*v(6569)+rio3(3,2)*v(6570)
v(6572)=rio3(2,3)*v(6568)+rio3(1,3)*v(6569)+rio3(3,3)*v(6570)
v(6577)=rio3(3,1)*v(6578)+rio3(1,1)*v(6579)+rio3(2,1)*v(6580)
v(13778)=v(6577)*v(8444)+v(6567)*v(8453)+v(6558)*v(8460)
v(13771)=v(6577)*v(8443)+v(6567)*v(8449)+v(6558)*v(8548)
v(13770)=v(6577)*v(8442)+v(6567)*v(8448)+v(6558)*v(8461)
v(13763)=v(6577)*v(8441)+v(6567)*v(8485)+v(6558)*v(8547)
v(13762)=v(6577)*v(8440)+v(6567)*v(8450)+v(6558)*v(8546)
v(13761)=v(6577)*v(8439)+v(6567)*v(8454)+v(6558)*v(8462)
v(13754)=v(6577)*v(8399)+v(6567)*v(8418)+v(6558)*v(8430)
v(13753)=v(6577)*v(8398)+v(6567)*v(8417)+v(6558)*v(8426)
v(13752)=v(6577)*v(8396)+v(6567)*v(8415)+v(6558)*v(8425)
v(13751)=v(6577)*v(8394)+v(6567)*v(8413)+v(6558)*v(8424)
v(13744)=v(6577)*v(8393)+v(6567)*v(8410)+v(6558)*v(8544)
v(13743)=v(6577)*v(8392)+v(6567)*v(8409)+v(6558)*v(8431)
v(13742)=v(6577)*v(8391)+v(6567)*v(8408)+v(6558)*v(8543)
v(13741)=v(6577)*v(8389)+v(6567)*v(8407)+v(6558)*v(8542)
v(13740)=v(6577)*v(8388)+v(6567)*v(8406)+v(6558)*v(8463)
v(13733)=v(6577)*v(8387)+v(6567)*v(8484)+v(6558)*v(8541)
v(13732)=v(6577)*v(8386)+v(6567)*v(8411)+v(6558)*v(8540)
v(13731)=v(6577)*v(8385)+v(6567)*v(8419)+v(6558)*v(8432)
v(13730)=v(6577)*v(8384)+v(6567)*v(8483)+v(6558)*v(8538)
v(13729)=v(6577)*v(8383)+v(6567)*v(8451)+v(6558)*v(8537)
v(13728)=v(6577)*v(8382)+v(6567)*v(8455)+v(6558)*v(8464)
v(13721)=v(6577)*v(8295)+v(6567)*v(8341)+v(6558)*v(8372)
v(13720)=v(6577)*v(8294)+v(6567)*v(8340)+v(6558)*v(8368)
v(13719)=v(6577)*v(8292)+v(6567)*v(8338)+v(6558)*v(8367)
v(13718)=v(6577)*v(8290)+v(6567)*v(8336)+v(6558)*v(8366)
v(13717)=v(6577)*v(8289)+v(6567)*v(8335)+v(6558)*v(8362)
v(13716)=v(6577)*v(8287)+v(6567)*v(8333)+v(6558)*v(8361)
v(13715)=v(6577)*v(8285)+v(6567)*v(8331)+v(6558)*v(8360)
v(13708)=v(6577)*v(8284)+v(6567)*v(8314)+v(6558)*v(8523)
v(13707)=v(6577)*v(8283)+v(6567)*v(8313)+v(6558)*v(8373)
v(13706)=v(6577)*v(8282)+v(6567)*v(8312)+v(6558)*v(8522)
v(13705)=v(6577)*v(8280)+v(6567)*v(8311)+v(6558)*v(8521)
v(13704)=v(6577)*v(8279)+v(6567)*v(8310)+v(6558)*v(8433)
v(13703)=v(6577)*v(8278)+v(6567)*v(8309)+v(6558)*v(8520)
v(13702)=v(6577)*v(8276)+v(6567)*v(8308)+v(6558)*v(8519)
v(13701)=v(6577)*v(8275)+v(6567)*v(8307)+v(6558)*v(8465)
v(13694)=v(6577)*v(8274)+v(6567)*v(8469)+v(6558)*v(8494)
v(13693)=v(6577)*v(8273)+v(6567)*v(8315)+v(6558)*v(8493)
v(13692)=v(6577)*v(8272)+v(6567)*v(8342)+v(6558)*v(8374)
v(13691)=v(6577)*v(8271)+v(6567)*v(8468)+v(6558)*v(8491)
v(13690)=v(6577)*v(8270)+v(6567)*v(8412)+v(6558)*v(8490)
v(13689)=v(6577)*v(8269)+v(6567)*v(8420)+v(6558)*v(8434)
v(13688)=v(6577)*v(8268)+v(6567)*v(8467)+v(6558)*v(8488)
v(13687)=v(6577)*v(8267)+v(6567)*v(8452)+v(6558)*v(8487)
v(13686)=v(6577)*v(8266)+v(6567)*v(8456)+v(6558)*v(8466)
v(13679)=v(6577)*v(9509)+v(6567)*v(9554)+v(6558)*v(9604)
v(13672)=v(6577)*v(9384)+v(6567)*v(9419)+v(6558)*v(9602)
v(13671)=v(6577)*v(9382)+v(6567)*v(9417)+v(6558)*v(9601)
v(13664)=v(6577)*v(9269)+v(6567)*v(9414)+v(6558)*v(9576)
v(13663)=v(6577)*v(9267)+v(6567)*v(9413)+v(6558)*v(9575)
v(13662)=v(6577)*v(9266)+v(6567)*v(9411)+v(6558)*v(9574)
v(13655)=v(6577)*v(9507)+v(6567)*v(9552)+v(6558)*v(9572)
v(13654)=v(6577)*v(9271)+v(6567)*v(9416)+v(6558)*v(9571)
v(13653)=v(6577)*v(9386)+v(6567)*v(9421)+v(6558)*v(9570)
v(13652)=v(6577)*v(9506)+v(6567)*v(9551)+v(6558)*v(9569)
v(13645)=v(6577)*v(9381)+v(6567)*v(9410)+v(6558)*v(9560)
v(13644)=v(6577)*v(9380)+v(6567)*v(9409)+v(6558)*v(9559)
v(13643)=v(6577)*v(9273)+v(6567)*v(9407)+v(6558)*v(9557)
v(13642)=v(6577)*v(9378)+v(6567)*v(9406)+v(6558)*v(9556)
v(13641)=v(6577)*v(9376)+v(6567)*v(9404)+v(6558)*v(9555)
v(13634)=v(6577)*v(9265)+v(6567)*v(9394)+v(6558)*v(9516)
v(13633)=v(6577)*v(9264)+v(6567)*v(9393)+v(6558)*v(9515)
v(13632)=v(6577)*v(9262)+v(6567)*v(9391)+v(6558)*v(9514)
v(13631)=v(6577)*v(9260)+v(6567)*v(9389)+v(6558)*v(9512)
v(13630)=v(6577)*v(9258)+v(6567)*v(9388)+v(6558)*v(9511)
v(13629)=v(6577)*v(9257)+v(6567)*v(9387)+v(6558)*v(9510)
v(13622)=v(6577)*v(9150)+v(6567)*v(9207)+v(6558)*v(9224)
v(13621)=v(6577)*v(9149)+v(6567)*v(9206)+v(6558)*v(9223)
v(13620)=v(6577)*v(9148)+v(6567)*v(9204)+v(6558)*v(9221)
v(13619)=v(6577)*v(9147)+v(6567)*v(9203)+v(6558)*v(9219)
v(13618)=v(6577)*v(9145)+v(6567)*v(9201)+v(6558)*v(9217)
v(13617)=v(6577)*v(9144)+v(6567)*v(9200)+v(6558)*v(9216)
v(13616)=v(6577)*v(9143)+v(6567)*v(9199)+v(6558)*v(9215)
v(13609)=v(6577)*v(9142)+v(6558)*v(9197)+v(6567)*v(9198)
v(13608)=v(6577)*v(9141)+v(6567)*v(9197)+v(6558)*v(9207)
v(13607)=v(6577)*v(9140)+v(6567)*v(9196)+v(6558)*v(9206)
v(13606)=v(6577)*v(9139)+v(6567)*v(9194)+v(6558)*v(9204)
v(13605)=v(6577)*v(9137)+v(6567)*v(9192)+v(6558)*v(9203)
v(13604)=v(6577)*v(9135)+v(6567)*v(9190)+v(6558)*v(9201)
v(13603)=v(6577)*v(9134)+v(6567)*v(9189)+v(6558)*v(9200)
v(13602)=v(6577)*v(9133)+v(6567)*v(9188)+v(6558)*v(9199)
v(13595)=v(6558)*v(9130)+v(6567)*v(9131)+v(6577)*v(9132)
v(13594)=v(6577)*v(9131)+v(6558)*v(9141)+v(6567)*v(9142)
v(13593)=v(6577)*v(9130)+v(6567)*v(9141)+v(6558)*v(9150)
v(13592)=v(6577)*v(9129)+v(6567)*v(9140)+v(6558)*v(9149)
v(13591)=v(6577)*v(9127)+v(6567)*v(9139)+v(6558)*v(9148)
v(13590)=v(6577)*v(9125)+v(6567)*v(9137)+v(6558)*v(9147)
v(13589)=v(6577)*v(9123)+v(6567)*v(9135)+v(6558)*v(9145)
v(13588)=v(6577)*v(9122)+v(6567)*v(9134)+v(6558)*v(9144)
v(13587)=v(6577)*v(9121)+v(6567)*v(9133)+v(6558)*v(9143)
v(13580)=v(6577)*v(9366)+v(6567)*v(9497)+v(6558)*v(9740)
v(13573)=v(6577)*v(9363)+v(6567)*v(9494)+v(6558)*v(9737)
v(13572)=v(6577)*v(9360)+v(6567)*v(9491)+v(6558)*v(9735)
v(13565)=v(6577)*v(9358)+v(6567)*v(9489)+v(6558)*v(9710)
v(13564)=v(6577)*v(9355)+v(6567)*v(9487)+v(6558)*v(9708)
v(13563)=v(6577)*v(9353)+v(6567)*v(9485)+v(6558)*v(9707)
v(13556)=v(6577)*v(9351)+v(6567)*v(9483)+v(6558)*v(9705)
v(13555)=v(6577)*v(9349)+v(6567)*v(9481)+v(6558)*v(9703)
v(13554)=v(6577)*v(9347)+v(6567)*v(9480)+v(6558)*v(9702)
v(13553)=v(6577)*v(9345)+v(6567)*v(9478)+v(6558)*v(9701)
v(13546)=v(6577)*v(9343)+v(6567)*v(9476)+v(6558)*v(9699)
v(13545)=v(6577)*v(9341)+v(6567)*v(9474)+v(6558)*v(9697)
v(13544)=v(6577)*v(9340)+v(6567)*v(9473)+v(6558)*v(9696)
v(13543)=v(6577)*v(9338)+v(6567)*v(9472)+v(6558)*v(9695)
v(13542)=v(6577)*v(9336)+v(6567)*v(9470)+v(6558)*v(9694)
v(13535)=v(6577)*v(9334)+v(6567)*v(9468)+v(6558)*v(9666)
v(13534)=v(6577)*v(9332)+v(6567)*v(9466)+v(6558)*v(9664)
v(13533)=v(6577)*v(9331)+v(6567)*v(9465)+v(6558)*v(9663)
v(13532)=v(6577)*v(9330)+v(6567)*v(9464)+v(6558)*v(9662)
v(13531)=v(6577)*v(9328)+v(6567)*v(9463)+v(6558)*v(9661)
v(13530)=v(6577)*v(9326)+v(6567)*v(9461)+v(6558)*v(9660)
v(13523)=v(6577)*v(9324)+v(6567)*v(9459)+v(6558)*v(9658)
v(13522)=v(6577)*v(9322)+v(6567)*v(9457)+v(6558)*v(9656)
v(13521)=v(6577)*v(9321)+v(6567)*v(9456)+v(6558)*v(9655)
v(13520)=v(6577)*v(9320)+v(6567)*v(9455)+v(6558)*v(9654)
v(13519)=v(6577)*v(9319)+v(6567)*v(9454)+v(6558)*v(9653)
v(13518)=v(6577)*v(9318)+v(6567)*v(9453)+v(6558)*v(9652)
v(13517)=v(6577)*v(9317)+v(6567)*v(9452)+v(6558)*v(9651)
v(13510)=v(6577)*v(9303)+v(6567)*v(9439)+v(6558)*v(9650)
v(13509)=v(6577)*v(9301)+v(6567)*v(9437)+v(6558)*v(9649)
v(13508)=v(6577)*v(9300)+v(6567)*v(9436)+v(6558)*v(9648)
v(13507)=v(6577)*v(9299)+v(6567)*v(9435)+v(6558)*v(9647)
v(13506)=v(6577)*v(9298)+v(6567)*v(9434)+v(6558)*v(9646)
v(13505)=v(6577)*v(9297)+v(6567)*v(9433)+v(6558)*v(9645)
v(13504)=v(6577)*v(9296)+v(6567)*v(9432)+v(6558)*v(9644)
v(13503)=v(6577)*v(9295)+v(6567)*v(9431)+v(6558)*v(9643)
v(13496)=v(6577)*v(9283)+v(6567)*v(9430)+v(6558)*v(9613)
v(13495)=v(6577)*v(9281)+v(6567)*v(9429)+v(6558)*v(9612)
v(13494)=v(6577)*v(9280)+v(6567)*v(9428)+v(6558)*v(9611)
v(13493)=v(6577)*v(9279)+v(6567)*v(9427)+v(6558)*v(9610)
v(13492)=v(6577)*v(9278)+v(6567)*v(9426)+v(6558)*v(9609)
v(13491)=v(6577)*v(9277)+v(6567)*v(9425)+v(6558)*v(9608)
v(13490)=v(6577)*v(9276)+v(6567)*v(9424)+v(6558)*v(9607)
v(13489)=v(6577)*v(9275)+v(6567)*v(9423)+v(6558)*v(9606)
v(13488)=v(6577)*v(9274)+v(6567)*v(9422)+v(6558)*v(9605)
v(7488)=v(6558)*v(6894)+v(6567)*v(6918)+v(6577)*v(6940)
v(7487)=v(6558)*v(6893)+v(6567)*v(6917)+v(6577)*v(6939)
v(7486)=v(6558)*v(6892)+v(6567)*v(6916)+v(6577)*v(6937)
v(7485)=v(6558)*v(6891)+v(6567)*v(6914)+v(6577)*v(6935)
v(7484)=v(6558)*v(6889)+v(6567)*v(6912)+v(6577)*v(6933)
v(7483)=v(6558)*v(6887)+v(6567)*v(6910)+v(6577)*v(6932)
v(7482)=v(6558)*v(6885)+v(6567)*v(6909)+v(6577)*v(6931)
v(7481)=v(6558)*v(6884)+v(6567)*v(6908)+v(6577)*v(6930)
v(7480)=v(6558)*v(6883)+v(6567)*v(6907)+v(6577)*v(6929)
v(7476)=v(6558)*v(6906)+v(6567)*v(6928)+v(6577)*v(6948)
v(7475)=v(6558)*v(6905)+v(6567)*v(6927)+v(6577)*v(6928)
v(7474)=v(6558)*v(6904)+v(6567)*v(6905)+v(6577)*v(6906)
v(7473)=v(6558)*v(6903)+v(6567)*v(6926)+v(6577)*v(6947)
v(7472)=v(6558)*v(6901)+v(6567)*v(6924)+v(6577)*v(6945)
v(7471)=v(6558)*v(6899)+v(6567)*v(6922)+v(6577)*v(6944)
v(7470)=v(6558)*v(6897)+v(6567)*v(6921)+v(6577)*v(6943)
v(7469)=v(6558)*v(6896)+v(6567)*v(6920)+v(6577)*v(6942)
v(7468)=v(6558)*v(6895)+v(6567)*v(6919)+v(6577)*v(6941)
v(7464)=v(6558)*v(6745)+v(6567)*v(6754)+v(6577)*v(6763)
v(7463)=v(6558)*v(6744)+v(6567)*v(6753)+v(6577)*v(6762)
v(7462)=v(6558)*v(6743)+v(6567)*v(6752)+v(6577)*v(6761)
v(7461)=v(6558)*v(6742)+v(6567)*v(6751)+v(6577)*v(6760)
v(7460)=v(6558)*v(6741)+v(6567)*v(6750)+v(6577)*v(6759)
v(7459)=v(6558)*v(6740)+v(6567)*v(6749)+v(6577)*v(6758)
v(7458)=v(6558)*v(6739)+v(6567)*v(6748)+v(6577)*v(6757)
v(7457)=v(6558)*v(6738)+v(6567)*v(6747)+v(6577)*v(6756)
v(7456)=v(6558)*v(6737)+v(6567)*v(6746)+v(6577)*v(6755)
v(6675)=v(6408)*v(6558)+v(6410)*v(6567)+v(6411)*v(6577)
v(6669)=v(6461)*v(6558)+v(6463)*v(6567)+v(6465)*v(6577)
v(6663)=v(6460)*v(6558)+v(6462)*v(6567)+v(6464)*v(6577)
v(6581)=rio3(3,2)*v(6578)+rio3(1,2)*v(6579)+rio3(2,2)*v(6580)
v(14084)=v(6581)*v(8444)+v(6571)*v(8453)+v(6562)*v(8460)
v(14077)=v(6581)*v(8443)+v(6571)*v(8449)+v(6562)*v(8548)
v(14076)=v(6581)*v(8442)+v(6571)*v(8448)+v(6562)*v(8461)
v(14069)=v(6581)*v(8441)+v(6571)*v(8485)+v(6562)*v(8547)
v(14068)=v(6581)*v(8440)+v(6571)*v(8450)+v(6562)*v(8546)
v(14067)=v(6581)*v(8439)+v(6571)*v(8454)+v(6562)*v(8462)
v(14060)=v(6581)*v(8399)+v(6571)*v(8418)+v(6562)*v(8430)
v(14059)=v(6581)*v(8398)+v(6571)*v(8417)+v(6562)*v(8426)
v(14058)=v(6581)*v(8396)+v(6571)*v(8415)+v(6562)*v(8425)
v(14057)=v(6581)*v(8394)+v(6571)*v(8413)+v(6562)*v(8424)
v(14050)=v(6581)*v(8393)+v(6571)*v(8410)+v(6562)*v(8544)
v(14049)=v(6581)*v(8392)+v(6571)*v(8409)+v(6562)*v(8431)
v(14048)=v(6581)*v(8391)+v(6571)*v(8408)+v(6562)*v(8543)
v(14047)=v(6581)*v(8389)+v(6571)*v(8407)+v(6562)*v(8542)
v(14046)=v(6581)*v(8388)+v(6571)*v(8406)+v(6562)*v(8463)
v(14039)=v(6581)*v(8387)+v(6571)*v(8484)+v(6562)*v(8541)
v(14038)=v(6581)*v(8386)+v(6571)*v(8411)+v(6562)*v(8540)
v(14037)=v(6581)*v(8385)+v(6571)*v(8419)+v(6562)*v(8432)
v(14036)=v(6581)*v(8384)+v(6571)*v(8483)+v(6562)*v(8538)
v(14035)=v(6581)*v(8383)+v(6571)*v(8451)+v(6562)*v(8537)
v(14034)=v(6581)*v(8382)+v(6571)*v(8455)+v(6562)*v(8464)
v(14027)=v(6581)*v(8295)+v(6571)*v(8341)+v(6562)*v(8372)
v(14026)=v(6581)*v(8294)+v(6571)*v(8340)+v(6562)*v(8368)
v(14025)=v(6581)*v(8292)+v(6571)*v(8338)+v(6562)*v(8367)
v(14024)=v(6581)*v(8290)+v(6571)*v(8336)+v(6562)*v(8366)
v(14023)=v(6581)*v(8289)+v(6571)*v(8335)+v(6562)*v(8362)
v(14022)=v(6581)*v(8287)+v(6571)*v(8333)+v(6562)*v(8361)
v(14021)=v(6581)*v(8285)+v(6571)*v(8331)+v(6562)*v(8360)
v(14014)=v(6581)*v(8284)+v(6571)*v(8314)+v(6562)*v(8523)
v(14013)=v(6581)*v(8283)+v(6571)*v(8313)+v(6562)*v(8373)
v(14012)=v(6581)*v(8282)+v(6571)*v(8312)+v(6562)*v(8522)
v(14011)=v(6581)*v(8280)+v(6571)*v(8311)+v(6562)*v(8521)
v(14010)=v(6581)*v(8279)+v(6571)*v(8310)+v(6562)*v(8433)
v(14009)=v(6581)*v(8278)+v(6571)*v(8309)+v(6562)*v(8520)
v(14008)=v(6581)*v(8276)+v(6571)*v(8308)+v(6562)*v(8519)
v(14007)=v(6581)*v(8275)+v(6571)*v(8307)+v(6562)*v(8465)
v(14000)=v(6581)*v(8274)+v(6571)*v(8469)+v(6562)*v(8494)
v(13999)=v(6581)*v(8273)+v(6571)*v(8315)+v(6562)*v(8493)
v(13998)=v(6581)*v(8272)+v(6571)*v(8342)+v(6562)*v(8374)
v(13997)=v(6581)*v(8271)+v(6571)*v(8468)+v(6562)*v(8491)
v(13996)=v(6581)*v(8270)+v(6571)*v(8412)+v(6562)*v(8490)
v(13995)=v(6581)*v(8269)+v(6571)*v(8420)+v(6562)*v(8434)
v(13994)=v(6581)*v(8268)+v(6571)*v(8467)+v(6562)*v(8488)
v(13993)=v(6581)*v(8267)+v(6571)*v(8452)+v(6562)*v(8487)
v(13992)=v(6581)*v(8266)+v(6571)*v(8456)+v(6562)*v(8466)
v(13985)=v(6581)*v(9509)+v(6571)*v(9554)+v(6562)*v(9604)
v(13978)=v(6581)*v(9384)+v(6571)*v(9419)+v(6562)*v(9602)
v(13977)=v(6581)*v(9382)+v(6571)*v(9417)+v(6562)*v(9601)
v(13970)=v(6581)*v(9269)+v(6571)*v(9414)+v(6562)*v(9576)
v(13969)=v(6581)*v(9267)+v(6571)*v(9413)+v(6562)*v(9575)
v(13968)=v(6581)*v(9266)+v(6571)*v(9411)+v(6562)*v(9574)
v(13961)=v(6581)*v(9507)+v(6571)*v(9552)+v(6562)*v(9572)
v(13960)=v(6581)*v(9271)+v(6571)*v(9416)+v(6562)*v(9571)
v(13959)=v(6581)*v(9386)+v(6571)*v(9421)+v(6562)*v(9570)
v(13958)=v(6581)*v(9506)+v(6571)*v(9551)+v(6562)*v(9569)
v(13951)=v(6581)*v(9381)+v(6571)*v(9410)+v(6562)*v(9560)
v(13950)=v(6581)*v(9380)+v(6571)*v(9409)+v(6562)*v(9559)
v(13949)=v(6581)*v(9273)+v(6571)*v(9407)+v(6562)*v(9557)
v(13948)=v(6581)*v(9378)+v(6571)*v(9406)+v(6562)*v(9556)
v(13947)=v(6581)*v(9376)+v(6571)*v(9404)+v(6562)*v(9555)
v(13940)=v(6581)*v(9265)+v(6571)*v(9394)+v(6562)*v(9516)
v(13939)=v(6581)*v(9264)+v(6571)*v(9393)+v(6562)*v(9515)
v(13938)=v(6581)*v(9262)+v(6571)*v(9391)+v(6562)*v(9514)
v(13937)=v(6581)*v(9260)+v(6571)*v(9389)+v(6562)*v(9512)
v(13936)=v(6581)*v(9258)+v(6571)*v(9388)+v(6562)*v(9511)
v(13935)=v(6581)*v(9257)+v(6571)*v(9387)+v(6562)*v(9510)
v(13928)=v(6581)*v(9150)+v(6571)*v(9207)+v(6562)*v(9224)
v(13927)=v(6581)*v(9149)+v(6571)*v(9206)+v(6562)*v(9223)
v(13926)=v(6581)*v(9148)+v(6571)*v(9204)+v(6562)*v(9221)
v(13925)=v(6581)*v(9147)+v(6571)*v(9203)+v(6562)*v(9219)
v(13924)=v(6581)*v(9145)+v(6571)*v(9201)+v(6562)*v(9217)
v(13923)=v(6581)*v(9144)+v(6571)*v(9200)+v(6562)*v(9216)
v(13922)=v(6581)*v(9143)+v(6571)*v(9199)+v(6562)*v(9215)
v(13915)=v(6581)*v(9142)+v(6562)*v(9197)+v(6571)*v(9198)
v(13914)=v(6581)*v(9141)+v(6571)*v(9197)+v(6562)*v(9207)
v(13913)=v(6581)*v(9140)+v(6571)*v(9196)+v(6562)*v(9206)
v(13912)=v(6581)*v(9139)+v(6571)*v(9194)+v(6562)*v(9204)
v(13911)=v(6581)*v(9137)+v(6571)*v(9192)+v(6562)*v(9203)
v(13910)=v(6581)*v(9135)+v(6571)*v(9190)+v(6562)*v(9201)
v(13909)=v(6581)*v(9134)+v(6571)*v(9189)+v(6562)*v(9200)
v(13908)=v(6581)*v(9133)+v(6571)*v(9188)+v(6562)*v(9199)
v(13901)=v(6562)*v(9130)+v(6571)*v(9131)+v(6581)*v(9132)
v(13900)=v(6581)*v(9131)+v(6562)*v(9141)+v(6571)*v(9142)
v(13899)=v(6581)*v(9130)+v(6571)*v(9141)+v(6562)*v(9150)
v(13898)=v(6581)*v(9129)+v(6571)*v(9140)+v(6562)*v(9149)
v(13897)=v(6581)*v(9127)+v(6571)*v(9139)+v(6562)*v(9148)
v(13896)=v(6581)*v(9125)+v(6571)*v(9137)+v(6562)*v(9147)
v(13895)=v(6581)*v(9123)+v(6571)*v(9135)+v(6562)*v(9145)
v(13894)=v(6581)*v(9122)+v(6571)*v(9134)+v(6562)*v(9144)
v(13893)=v(6581)*v(9121)+v(6571)*v(9133)+v(6562)*v(9143)
v(13886)=v(6581)*v(9366)+v(6571)*v(9497)+v(6562)*v(9740)
v(13879)=v(6581)*v(9363)+v(6571)*v(9494)+v(6562)*v(9737)
v(13878)=v(6581)*v(9360)+v(6571)*v(9491)+v(6562)*v(9735)
v(13871)=v(6581)*v(9358)+v(6571)*v(9489)+v(6562)*v(9710)
v(13870)=v(6581)*v(9355)+v(6571)*v(9487)+v(6562)*v(9708)
v(13869)=v(6581)*v(9353)+v(6571)*v(9485)+v(6562)*v(9707)
v(13862)=v(6581)*v(9351)+v(6571)*v(9483)+v(6562)*v(9705)
v(13861)=v(6581)*v(9349)+v(6571)*v(9481)+v(6562)*v(9703)
v(13860)=v(6581)*v(9347)+v(6571)*v(9480)+v(6562)*v(9702)
v(13859)=v(6581)*v(9345)+v(6571)*v(9478)+v(6562)*v(9701)
v(13852)=v(6581)*v(9343)+v(6571)*v(9476)+v(6562)*v(9699)
v(13851)=v(6581)*v(9341)+v(6571)*v(9474)+v(6562)*v(9697)
v(13850)=v(6581)*v(9340)+v(6571)*v(9473)+v(6562)*v(9696)
v(13849)=v(6581)*v(9338)+v(6571)*v(9472)+v(6562)*v(9695)
v(13848)=v(6581)*v(9336)+v(6571)*v(9470)+v(6562)*v(9694)
v(13841)=v(6581)*v(9334)+v(6571)*v(9468)+v(6562)*v(9666)
v(13840)=v(6581)*v(9332)+v(6571)*v(9466)+v(6562)*v(9664)
v(13839)=v(6581)*v(9331)+v(6571)*v(9465)+v(6562)*v(9663)
v(13838)=v(6581)*v(9330)+v(6571)*v(9464)+v(6562)*v(9662)
v(13837)=v(6581)*v(9328)+v(6571)*v(9463)+v(6562)*v(9661)
v(13836)=v(6581)*v(9326)+v(6571)*v(9461)+v(6562)*v(9660)
v(13829)=v(6581)*v(9324)+v(6571)*v(9459)+v(6562)*v(9658)
v(13828)=v(6581)*v(9322)+v(6571)*v(9457)+v(6562)*v(9656)
v(13827)=v(6581)*v(9321)+v(6571)*v(9456)+v(6562)*v(9655)
v(13826)=v(6581)*v(9320)+v(6571)*v(9455)+v(6562)*v(9654)
v(13825)=v(6581)*v(9319)+v(6571)*v(9454)+v(6562)*v(9653)
v(13824)=v(6581)*v(9318)+v(6571)*v(9453)+v(6562)*v(9652)
v(13823)=v(6581)*v(9317)+v(6571)*v(9452)+v(6562)*v(9651)
v(13816)=v(6581)*v(9303)+v(6571)*v(9439)+v(6562)*v(9650)
v(13815)=v(6581)*v(9301)+v(6571)*v(9437)+v(6562)*v(9649)
v(13814)=v(6581)*v(9300)+v(6571)*v(9436)+v(6562)*v(9648)
v(13813)=v(6581)*v(9299)+v(6571)*v(9435)+v(6562)*v(9647)
v(13812)=v(6581)*v(9298)+v(6571)*v(9434)+v(6562)*v(9646)
v(13811)=v(6581)*v(9297)+v(6571)*v(9433)+v(6562)*v(9645)
v(13810)=v(6581)*v(9296)+v(6571)*v(9432)+v(6562)*v(9644)
v(13809)=v(6581)*v(9295)+v(6571)*v(9431)+v(6562)*v(9643)
v(13802)=v(6581)*v(9283)+v(6571)*v(9430)+v(6562)*v(9613)
v(13801)=v(6581)*v(9281)+v(6571)*v(9429)+v(6562)*v(9612)
v(13800)=v(6581)*v(9280)+v(6571)*v(9428)+v(6562)*v(9611)
v(13799)=v(6581)*v(9279)+v(6571)*v(9427)+v(6562)*v(9610)
v(13798)=v(6581)*v(9278)+v(6571)*v(9426)+v(6562)*v(9609)
v(13797)=v(6581)*v(9277)+v(6571)*v(9425)+v(6562)*v(9608)
v(13796)=v(6581)*v(9276)+v(6571)*v(9424)+v(6562)*v(9607)
v(13795)=v(6581)*v(9275)+v(6571)*v(9423)+v(6562)*v(9606)
v(13794)=v(6581)*v(9274)+v(6571)*v(9422)+v(6562)*v(9605)
v(7527)=v(6562)*v(6894)+v(6571)*v(6918)+v(6581)*v(6940)
v(7526)=v(6562)*v(6893)+v(6571)*v(6917)+v(6581)*v(6939)
v(7525)=v(6562)*v(6892)+v(6571)*v(6916)+v(6581)*v(6937)
v(7524)=v(6562)*v(6891)+v(6571)*v(6914)+v(6581)*v(6935)
v(7523)=v(6562)*v(6889)+v(6571)*v(6912)+v(6581)*v(6933)
v(7522)=v(6562)*v(6887)+v(6571)*v(6910)+v(6581)*v(6932)
v(7521)=v(6562)*v(6885)+v(6571)*v(6909)+v(6581)*v(6931)
v(7520)=v(6562)*v(6884)+v(6571)*v(6908)+v(6581)*v(6930)
v(7519)=v(6562)*v(6883)+v(6571)*v(6907)+v(6581)*v(6929)
v(7515)=v(6562)*v(6906)+v(6571)*v(6928)+v(6581)*v(6948)
v(7514)=v(6562)*v(6905)+v(6571)*v(6927)+v(6581)*v(6928)
v(7513)=v(6562)*v(6904)+v(6571)*v(6905)+v(6581)*v(6906)
v(7512)=v(6562)*v(6903)+v(6571)*v(6926)+v(6581)*v(6947)
v(7511)=v(6562)*v(6901)+v(6571)*v(6924)+v(6581)*v(6945)
v(7510)=v(6562)*v(6899)+v(6571)*v(6922)+v(6581)*v(6944)
v(7509)=v(6562)*v(6897)+v(6571)*v(6921)+v(6581)*v(6943)
v(7508)=v(6562)*v(6896)+v(6571)*v(6920)+v(6581)*v(6942)
v(7507)=v(6562)*v(6895)+v(6571)*v(6919)+v(6581)*v(6941)
v(7503)=v(6562)*v(6745)+v(6571)*v(6754)+v(6581)*v(6763)
v(7502)=v(6562)*v(6744)+v(6571)*v(6753)+v(6581)*v(6762)
v(7501)=v(6562)*v(6743)+v(6571)*v(6752)+v(6581)*v(6761)
v(7500)=v(6562)*v(6742)+v(6571)*v(6751)+v(6581)*v(6760)
v(7499)=v(6562)*v(6741)+v(6571)*v(6750)+v(6581)*v(6759)
v(7498)=v(6562)*v(6740)+v(6571)*v(6749)+v(6581)*v(6758)
v(7497)=v(6562)*v(6739)+v(6571)*v(6748)+v(6581)*v(6757)
v(7496)=v(6562)*v(6738)+v(6571)*v(6747)+v(6581)*v(6756)
v(7495)=v(6562)*v(6737)+v(6571)*v(6746)+v(6581)*v(6755)
v(6676)=v(6408)*v(6562)+v(6410)*v(6571)+v(6411)*v(6581)
v(6670)=v(6461)*v(6562)+v(6463)*v(6571)+v(6465)*v(6581)
v(6664)=v(6460)*v(6562)+v(6462)*v(6571)+v(6464)*v(6581)
v(6582)=rio3(3,3)*v(6578)+rio3(1,3)*v(6579)+rio3(2,3)*v(6580)
v(14390)=v(6582)*v(8444)+v(6572)*v(8453)+v(6563)*v(8460)
v(14383)=v(6582)*v(8443)+v(6572)*v(8449)+v(6563)*v(8548)
v(14382)=v(6582)*v(8442)+v(6572)*v(8448)+v(6563)*v(8461)
v(14375)=v(6582)*v(8441)+v(6572)*v(8485)+v(6563)*v(8547)
v(14374)=v(6582)*v(8440)+v(6572)*v(8450)+v(6563)*v(8546)
v(14373)=v(6582)*v(8439)+v(6572)*v(8454)+v(6563)*v(8462)
v(14366)=v(6582)*v(8399)+v(6572)*v(8418)+v(6563)*v(8430)
v(14365)=v(6582)*v(8398)+v(6572)*v(8417)+v(6563)*v(8426)
v(14364)=v(6582)*v(8396)+v(6572)*v(8415)+v(6563)*v(8425)
v(14363)=v(6582)*v(8394)+v(6572)*v(8413)+v(6563)*v(8424)
v(14356)=v(6582)*v(8393)+v(6572)*v(8410)+v(6563)*v(8544)
v(14355)=v(6582)*v(8392)+v(6572)*v(8409)+v(6563)*v(8431)
v(14354)=v(6582)*v(8391)+v(6572)*v(8408)+v(6563)*v(8543)
v(14353)=v(6582)*v(8389)+v(6572)*v(8407)+v(6563)*v(8542)
v(14352)=v(6582)*v(8388)+v(6572)*v(8406)+v(6563)*v(8463)
v(14345)=v(6582)*v(8387)+v(6572)*v(8484)+v(6563)*v(8541)
v(14344)=v(6582)*v(8386)+v(6572)*v(8411)+v(6563)*v(8540)
v(14343)=v(6582)*v(8385)+v(6572)*v(8419)+v(6563)*v(8432)
v(14342)=v(6582)*v(8384)+v(6572)*v(8483)+v(6563)*v(8538)
v(14341)=v(6582)*v(8383)+v(6572)*v(8451)+v(6563)*v(8537)
v(14340)=v(6582)*v(8382)+v(6572)*v(8455)+v(6563)*v(8464)
v(14333)=v(6582)*v(8295)+v(6572)*v(8341)+v(6563)*v(8372)
v(14332)=v(6582)*v(8294)+v(6572)*v(8340)+v(6563)*v(8368)
v(14331)=v(6582)*v(8292)+v(6572)*v(8338)+v(6563)*v(8367)
v(14330)=v(6582)*v(8290)+v(6572)*v(8336)+v(6563)*v(8366)
v(14329)=v(6582)*v(8289)+v(6572)*v(8335)+v(6563)*v(8362)
v(14328)=v(6582)*v(8287)+v(6572)*v(8333)+v(6563)*v(8361)
v(14327)=v(6582)*v(8285)+v(6572)*v(8331)+v(6563)*v(8360)
v(14320)=v(6582)*v(8284)+v(6572)*v(8314)+v(6563)*v(8523)
v(14319)=v(6582)*v(8283)+v(6572)*v(8313)+v(6563)*v(8373)
v(14318)=v(6582)*v(8282)+v(6572)*v(8312)+v(6563)*v(8522)
v(14317)=v(6582)*v(8280)+v(6572)*v(8311)+v(6563)*v(8521)
v(14316)=v(6582)*v(8279)+v(6572)*v(8310)+v(6563)*v(8433)
v(14315)=v(6582)*v(8278)+v(6572)*v(8309)+v(6563)*v(8520)
v(14314)=v(6582)*v(8276)+v(6572)*v(8308)+v(6563)*v(8519)
v(14313)=v(6582)*v(8275)+v(6572)*v(8307)+v(6563)*v(8465)
v(14306)=v(6582)*v(8274)+v(6572)*v(8469)+v(6563)*v(8494)
v(14305)=v(6582)*v(8273)+v(6572)*v(8315)+v(6563)*v(8493)
v(14304)=v(6582)*v(8272)+v(6572)*v(8342)+v(6563)*v(8374)
v(14303)=v(6582)*v(8271)+v(6572)*v(8468)+v(6563)*v(8491)
v(14302)=v(6582)*v(8270)+v(6572)*v(8412)+v(6563)*v(8490)
v(14301)=v(6582)*v(8269)+v(6572)*v(8420)+v(6563)*v(8434)
v(14300)=v(6582)*v(8268)+v(6572)*v(8467)+v(6563)*v(8488)
v(14299)=v(6582)*v(8267)+v(6572)*v(8452)+v(6563)*v(8487)
v(14298)=v(6582)*v(8266)+v(6572)*v(8456)+v(6563)*v(8466)
v(14291)=v(6582)*v(9509)+v(6572)*v(9554)+v(6563)*v(9604)
v(14284)=v(6582)*v(9384)+v(6572)*v(9419)+v(6563)*v(9602)
v(14283)=v(6582)*v(9382)+v(6572)*v(9417)+v(6563)*v(9601)
v(14276)=v(6582)*v(9269)+v(6572)*v(9414)+v(6563)*v(9576)
v(14275)=v(6582)*v(9267)+v(6572)*v(9413)+v(6563)*v(9575)
v(14274)=v(6582)*v(9266)+v(6572)*v(9411)+v(6563)*v(9574)
v(14267)=v(6582)*v(9507)+v(6572)*v(9552)+v(6563)*v(9572)
v(14266)=v(6582)*v(9271)+v(6572)*v(9416)+v(6563)*v(9571)
v(14265)=v(6582)*v(9386)+v(6572)*v(9421)+v(6563)*v(9570)
v(14264)=v(6582)*v(9506)+v(6572)*v(9551)+v(6563)*v(9569)
v(14257)=v(6582)*v(9381)+v(6572)*v(9410)+v(6563)*v(9560)
v(14256)=v(6582)*v(9380)+v(6572)*v(9409)+v(6563)*v(9559)
v(14255)=v(6582)*v(9273)+v(6572)*v(9407)+v(6563)*v(9557)
v(14254)=v(6582)*v(9378)+v(6572)*v(9406)+v(6563)*v(9556)
v(14253)=v(6582)*v(9376)+v(6572)*v(9404)+v(6563)*v(9555)
v(14246)=v(6582)*v(9265)+v(6572)*v(9394)+v(6563)*v(9516)
v(14245)=v(6582)*v(9264)+v(6572)*v(9393)+v(6563)*v(9515)
v(14244)=v(6582)*v(9262)+v(6572)*v(9391)+v(6563)*v(9514)
v(14243)=v(6582)*v(9260)+v(6572)*v(9389)+v(6563)*v(9512)
v(14242)=v(6582)*v(9258)+v(6572)*v(9388)+v(6563)*v(9511)
v(14241)=v(6582)*v(9257)+v(6572)*v(9387)+v(6563)*v(9510)
v(14234)=v(6582)*v(9150)+v(6572)*v(9207)+v(6563)*v(9224)
v(14233)=v(6582)*v(9149)+v(6572)*v(9206)+v(6563)*v(9223)
v(14232)=v(6582)*v(9148)+v(6572)*v(9204)+v(6563)*v(9221)
v(14231)=v(6582)*v(9147)+v(6572)*v(9203)+v(6563)*v(9219)
v(14230)=v(6582)*v(9145)+v(6572)*v(9201)+v(6563)*v(9217)
v(14229)=v(6582)*v(9144)+v(6572)*v(9200)+v(6563)*v(9216)
v(14228)=v(6582)*v(9143)+v(6572)*v(9199)+v(6563)*v(9215)
v(14221)=v(6582)*v(9142)+v(6563)*v(9197)+v(6572)*v(9198)
v(14220)=v(6582)*v(9141)+v(6572)*v(9197)+v(6563)*v(9207)
v(14219)=v(6582)*v(9140)+v(6572)*v(9196)+v(6563)*v(9206)
v(14218)=v(6582)*v(9139)+v(6572)*v(9194)+v(6563)*v(9204)
v(14217)=v(6582)*v(9137)+v(6572)*v(9192)+v(6563)*v(9203)
v(14216)=v(6582)*v(9135)+v(6572)*v(9190)+v(6563)*v(9201)
v(14215)=v(6582)*v(9134)+v(6572)*v(9189)+v(6563)*v(9200)
v(14214)=v(6582)*v(9133)+v(6572)*v(9188)+v(6563)*v(9199)
v(14207)=v(6563)*v(9130)+v(6572)*v(9131)+v(6582)*v(9132)
v(14206)=v(6582)*v(9131)+v(6563)*v(9141)+v(6572)*v(9142)
v(14205)=v(6582)*v(9130)+v(6572)*v(9141)+v(6563)*v(9150)
v(14204)=v(6582)*v(9129)+v(6572)*v(9140)+v(6563)*v(9149)
v(14203)=v(6582)*v(9127)+v(6572)*v(9139)+v(6563)*v(9148)
v(14202)=v(6582)*v(9125)+v(6572)*v(9137)+v(6563)*v(9147)
v(14201)=v(6582)*v(9123)+v(6572)*v(9135)+v(6563)*v(9145)
v(14200)=v(6582)*v(9122)+v(6572)*v(9134)+v(6563)*v(9144)
v(14199)=v(6582)*v(9121)+v(6572)*v(9133)+v(6563)*v(9143)
v(14192)=v(6582)*v(9366)+v(6572)*v(9497)+v(6563)*v(9740)
v(14185)=v(6582)*v(9363)+v(6572)*v(9494)+v(6563)*v(9737)
v(14184)=v(6582)*v(9360)+v(6572)*v(9491)+v(6563)*v(9735)
v(14177)=v(6582)*v(9358)+v(6572)*v(9489)+v(6563)*v(9710)
v(14176)=v(6582)*v(9355)+v(6572)*v(9487)+v(6563)*v(9708)
v(14175)=v(6582)*v(9353)+v(6572)*v(9485)+v(6563)*v(9707)
v(14168)=v(6582)*v(9351)+v(6572)*v(9483)+v(6563)*v(9705)
v(14167)=v(6582)*v(9349)+v(6572)*v(9481)+v(6563)*v(9703)
v(14166)=v(6582)*v(9347)+v(6572)*v(9480)+v(6563)*v(9702)
v(14165)=v(6582)*v(9345)+v(6572)*v(9478)+v(6563)*v(9701)
v(14158)=v(6582)*v(9343)+v(6572)*v(9476)+v(6563)*v(9699)
v(14157)=v(6582)*v(9341)+v(6572)*v(9474)+v(6563)*v(9697)
v(14156)=v(6582)*v(9340)+v(6572)*v(9473)+v(6563)*v(9696)
v(14155)=v(6582)*v(9338)+v(6572)*v(9472)+v(6563)*v(9695)
v(14154)=v(6582)*v(9336)+v(6572)*v(9470)+v(6563)*v(9694)
v(14147)=v(6582)*v(9334)+v(6572)*v(9468)+v(6563)*v(9666)
v(14146)=v(6582)*v(9332)+v(6572)*v(9466)+v(6563)*v(9664)
v(14145)=v(6582)*v(9331)+v(6572)*v(9465)+v(6563)*v(9663)
v(14144)=v(6582)*v(9330)+v(6572)*v(9464)+v(6563)*v(9662)
v(14143)=v(6582)*v(9328)+v(6572)*v(9463)+v(6563)*v(9661)
v(14142)=v(6582)*v(9326)+v(6572)*v(9461)+v(6563)*v(9660)
v(14135)=v(6582)*v(9324)+v(6572)*v(9459)+v(6563)*v(9658)
v(14134)=v(6582)*v(9322)+v(6572)*v(9457)+v(6563)*v(9656)
v(14133)=v(6582)*v(9321)+v(6572)*v(9456)+v(6563)*v(9655)
v(14132)=v(6582)*v(9320)+v(6572)*v(9455)+v(6563)*v(9654)
v(14131)=v(6582)*v(9319)+v(6572)*v(9454)+v(6563)*v(9653)
v(14130)=v(6582)*v(9318)+v(6572)*v(9453)+v(6563)*v(9652)
v(14129)=v(6582)*v(9317)+v(6572)*v(9452)+v(6563)*v(9651)
v(14122)=v(6582)*v(9303)+v(6572)*v(9439)+v(6563)*v(9650)
v(14121)=v(6582)*v(9301)+v(6572)*v(9437)+v(6563)*v(9649)
v(14120)=v(6582)*v(9300)+v(6572)*v(9436)+v(6563)*v(9648)
v(14119)=v(6582)*v(9299)+v(6572)*v(9435)+v(6563)*v(9647)
v(14118)=v(6582)*v(9298)+v(6572)*v(9434)+v(6563)*v(9646)
v(14117)=v(6582)*v(9297)+v(6572)*v(9433)+v(6563)*v(9645)
v(14116)=v(6582)*v(9296)+v(6572)*v(9432)+v(6563)*v(9644)
v(14115)=v(6582)*v(9295)+v(6572)*v(9431)+v(6563)*v(9643)
v(14108)=v(6582)*v(9283)+v(6572)*v(9430)+v(6563)*v(9613)
v(14107)=v(6582)*v(9281)+v(6572)*v(9429)+v(6563)*v(9612)
v(14106)=v(6582)*v(9280)+v(6572)*v(9428)+v(6563)*v(9611)
v(14105)=v(6582)*v(9279)+v(6572)*v(9427)+v(6563)*v(9610)
v(14104)=v(6582)*v(9278)+v(6572)*v(9426)+v(6563)*v(9609)
v(14103)=v(6582)*v(9277)+v(6572)*v(9425)+v(6563)*v(9608)
v(14102)=v(6582)*v(9276)+v(6572)*v(9424)+v(6563)*v(9607)
v(14101)=v(6582)*v(9275)+v(6572)*v(9423)+v(6563)*v(9606)
v(14100)=v(6582)*v(9274)+v(6572)*v(9422)+v(6563)*v(9605)
v(7566)=v(6563)*v(6894)+v(6572)*v(6918)+v(6582)*v(6940)
v(7565)=v(6563)*v(6893)+v(6572)*v(6917)+v(6582)*v(6939)
v(7564)=v(6563)*v(6892)+v(6572)*v(6916)+v(6582)*v(6937)
v(7563)=v(6563)*v(6891)+v(6572)*v(6914)+v(6582)*v(6935)
v(7562)=v(6563)*v(6889)+v(6572)*v(6912)+v(6582)*v(6933)
v(7561)=v(6563)*v(6887)+v(6572)*v(6910)+v(6582)*v(6932)
v(7560)=v(6563)*v(6885)+v(6572)*v(6909)+v(6582)*v(6931)
v(7559)=v(6563)*v(6884)+v(6572)*v(6908)+v(6582)*v(6930)
v(7558)=v(6563)*v(6883)+v(6572)*v(6907)+v(6582)*v(6929)
v(7554)=v(6563)*v(6906)+v(6572)*v(6928)+v(6582)*v(6948)
v(7553)=v(6563)*v(6905)+v(6572)*v(6927)+v(6582)*v(6928)
v(7552)=v(6563)*v(6904)+v(6572)*v(6905)+v(6582)*v(6906)
v(7551)=v(6563)*v(6903)+v(6572)*v(6926)+v(6582)*v(6947)
v(7550)=v(6563)*v(6901)+v(6572)*v(6924)+v(6582)*v(6945)
v(7549)=v(6563)*v(6899)+v(6572)*v(6922)+v(6582)*v(6944)
v(7548)=v(6563)*v(6897)+v(6572)*v(6921)+v(6582)*v(6943)
v(7547)=v(6563)*v(6896)+v(6572)*v(6920)+v(6582)*v(6942)
v(7546)=v(6563)*v(6895)+v(6572)*v(6919)+v(6582)*v(6941)
v(7542)=v(6563)*v(6745)+v(6572)*v(6754)+v(6582)*v(6763)
v(7541)=v(6563)*v(6744)+v(6572)*v(6753)+v(6582)*v(6762)
v(7540)=v(6563)*v(6743)+v(6572)*v(6752)+v(6582)*v(6761)
v(7539)=v(6563)*v(6742)+v(6572)*v(6751)+v(6582)*v(6760)
v(7538)=v(6563)*v(6741)+v(6572)*v(6750)+v(6582)*v(6759)
v(7537)=v(6563)*v(6740)+v(6572)*v(6749)+v(6582)*v(6758)
v(7536)=v(6563)*v(6739)+v(6572)*v(6748)+v(6582)*v(6757)
v(7535)=v(6563)*v(6738)+v(6572)*v(6747)+v(6582)*v(6756)
v(7534)=v(6563)*v(6737)+v(6572)*v(6746)+v(6582)*v(6755)
v(6677)=v(6408)*v(6563)+v(6410)*v(6572)+v(6411)*v(6582)
v(6671)=v(6461)*v(6563)+v(6463)*v(6572)+v(6465)*v(6582)
v(6665)=v(6460)*v(6563)+v(6462)*v(6572)+v(6464)*v(6582)
v(6592)=v(6429)-v(6430)
v(6593)=-v(6430)+v(6431)
v(6598)=-v(6595)-v(6596)-v(6597)
v(16558)=v(6446)*v(9360)+v(6444)*v(9491)+v(6442)*v(9735)+v(9742)+v(9855)
v(16559)=v(6446)*v(9353)+v(6444)*v(9485)+v(6442)*v(9707)+v(9722)+v(9925)
v(16560)=v(6446)*v(9345)+v(6444)*v(9478)+v(6442)*v(9701)+v(9743)+v(9761)
v(16561)=v(6446)*v(9336)+v(6444)*v(9470)+v(6442)*v(9694)+v(9744)+v(9870)
v(16562)=v(6446)*v(9326)+v(6444)*v(9461)+v(6442)*v(9660)+v(9679)+v(9934)
v(16563)=v(6446)*v(9317)+v(6444)*v(9452)+v(6442)*v(9651)+v(9745)+v(9761)
v(16564)=v(6446)*v(9295)+v(6444)*v(9431)+v(6442)*v(9643)+v(9746)+v(9870)
v(16565)=v(6446)*v(9274)+v(6444)*v(9422)+v(6442)*v(9605)+v(9627)+v(9934)
v(16567)=v(6446)*v(9382)+v(6444)*v(9417)+v(6442)*v(9601)+v(9799)+v(9891)
v(16568)=v(6446)*v(9266)+v(6444)*v(9411)+v(6442)*v(9574)+v(9588)+v(9943)
v(16569)=v(6446)*v(9506)+v(6444)*v(9551)+v(6442)*v(9569)+v(9800)+v(9818)
v(16570)=v(6446)*v(9376)+v(6444)*v(9404)+v(6442)*v(9555)+v(9801)+v(9905)
v(16571)=v(6446)*v(9257)+v(6444)*v(9387)+v(6442)*v(9510)+v(9529)+v(9950)
v(16572)=v(6446)*v(9143)+v(6444)*v(9199)+v(6442)*v(9215)+v(9802)+v(9818)
v(16573)=v(6446)*v(9133)+v(6444)*v(9188)+v(6442)*v(9199)+v(9803)+v(9905)
v(16574)=v(6446)*v(9121)+v(6444)*v(9133)+v(6442)*v(9143)+v(9164)+v(9950)
v(16576)=(-(v(10711)*v(6422))-v(11017)*v(6424)-v(11323)*v(6425)+v(10810)*v(6426)+v(11116)*v(6427)+v(11422)*v(6428))/2d0
v(16577)=(-(v(10702)*v(6422))-v(11008)*v(6424)-v(11314)*v(6425)+v(10801)*v(6426)+v(11107)*v(6427)+v(11413)*v(6428))/2d0
v(16581)=(-(v(10692)*v(6422))-v(10998)*v(6424)-v(11304)*v(6425)+v(10791)*v(6426)+v(11097)*v(6427)+v(11403)*v(6428))/2d0
v(16582)=(-(v(10681)*v(6422))-v(10987)*v(6424)-v(11293)*v(6425)+v(10780)*v(6426)+v(11086)*v(6427)+v(11392)*v(6428))/2d0
v(16583)=(-(v(10669)*v(6422))-v(10975)*v(6424)-v(11281)*v(6425)+v(10768)*v(6426)+v(11074)*v(6427)+v(11380)*v(6428))/2d0
v(16584)=(-(v(10656)*v(6422))-v(10962)*v(6424)-v(11268)*v(6425)+v(10755)*v(6426)+v(11061)*v(6427)+v(11367)*v(6428))/2d0
v(16585)=(-(v(10642)*v(6422))-v(10948)*v(6424)-v(11254)*v(6425)+v(10741)*v(6426)+v(11047)*v(6427)+v(11353)*v(6428))/2d0
v(16586)=(-(v(10627)*v(6422))-v(10933)*v(6424)-v(11239)*v(6425)+v(10726)*v(6426)+v(11032)*v(6427)+v(11338)*v(6428))/2d0
v(16588)=(-(v(10810)*v(6415))-v(11116)*v(6417)-v(11422)*v(6418)+v(10612)*v(6422)+v(10918)*v(6424)+v(11224)*v(6425))/2d0
v(16589)=(-(v(10801)*v(6415))-v(11107)*v(6417)-v(11413)*v(6418)+v(10603)*v(6422)+v(10909)*v(6424)+v(11215)*v(6425))/2d0
v(16593)=(-(v(10791)*v(6415))-v(11097)*v(6417)-v(11403)*v(6418)+v(10593)*v(6422)+v(10899)*v(6424)+v(11205)*v(6425))/2d0
v(16594)=(-(v(10780)*v(6415))-v(11086)*v(6417)-v(11392)*v(6418)+v(10582)*v(6422)+v(10888)*v(6424)+v(11194)*v(6425))/2d0
v(16595)=(-(v(10768)*v(6415))-v(11074)*v(6417)-v(11380)*v(6418)+v(10570)*v(6422)+v(10876)*v(6424)+v(11182)*v(6425))/2d0
v(16596)=(-(v(10755)*v(6415))-v(11061)*v(6417)-v(11367)*v(6418)+v(10557)*v(6422)+v(10863)*v(6424)+v(11169)*v(6425))/2d0
v(16597)=(-(v(10741)*v(6415))-v(11047)*v(6417)-v(11353)*v(6418)+v(10543)*v(6422)+v(10849)*v(6424)+v(11155)*v(6425))/2d0
v(16598)=(-(v(10726)*v(6415))-v(11032)*v(6417)-v(11338)*v(6418)+v(10528)*v(6422)+v(10834)*v(6424)+v(11140)*v(6425))/2d0
v(16600)=(v(10711)*v(6415)+v(11017)*v(6417)+v(11323)*v(6418)-v(10612)*v(6426)-v(10918)*v(6427)-v(11224)*v(6428))/2d0
v(16601)=(v(10702)*v(6415)+v(11008)*v(6417)+v(11314)*v(6418)-v(10603)*v(6426)-v(10909)*v(6427)-v(11215)*v(6428))/2d0
v(16605)=(v(10692)*v(6415)+v(10998)*v(6417)+v(11304)*v(6418)-v(10593)*v(6426)-v(10899)*v(6427)-v(11205)*v(6428))/2d0
v(16606)=(v(10681)*v(6415)+v(10987)*v(6417)+v(11293)*v(6418)-v(10582)*v(6426)-v(10888)*v(6427)-v(11194)*v(6428))/2d0
v(16607)=(v(10669)*v(6415)+v(10975)*v(6417)+v(11281)*v(6418)-v(10570)*v(6426)-v(10876)*v(6427)-v(11182)*v(6428))/2d0
v(16608)=(v(10656)*v(6415)+v(10962)*v(6417)+v(11268)*v(6418)-v(10557)*v(6426)-v(10863)*v(6427)-v(11169)*v(6428))/2d0
v(16609)=(v(10642)*v(6415)+v(10948)*v(6417)+v(11254)*v(6418)-v(10543)*v(6426)-v(10849)*v(6427)-v(11155)*v(6428))/2d0
v(16610)=(v(10627)*v(6415)+v(10933)*v(6417)+v(11239)*v(6418)-v(10528)*v(6426)-v(10834)*v(6427)-v(11140)*v(6428))/2d0
v(16612)=v(18047)+v(6608)*v(9360)+v(6604)*v(9491)+v(6600)*v(9735)
v(16613)=v(18048)+v(6608)*v(9353)+v(6604)*v(9485)+v(6600)*v(9707)
v(16614)=v(6608)*v(9345)+v(6604)*v(9478)+v(6600)*v(9701)+v(9741)+v(9758)
v(16615)=v(6608)*v(9336)+v(6604)*v(9470)+v(6600)*v(9694)+v(9763)+v(9855)
v(16616)=v(6608)*v(9326)+v(6604)*v(9461)+v(6600)*v(9660)+v(9670)+v(9925)
v(16617)=v(6608)*v(9317)+v(6604)*v(9452)+v(6600)*v(9651)+v(9749)+v(9761)
v(16618)=v(6608)*v(9295)+v(6604)*v(9431)+v(6600)*v(9643)+v(9764)+v(9870)
v(16619)=v(6608)*v(9274)+v(6604)*v(9422)+v(6600)*v(9605)+v(9617)+v(9934)
v(16621)=v(18049)+v(6608)*v(9382)+v(6604)*v(9417)+v(6600)*v(9601)
v(16622)=v(18050)+v(6608)*v(9266)+v(6604)*v(9411)+v(6600)*v(9574)
v(16623)=v(6608)*v(9506)+v(6604)*v(9551)+v(6600)*v(9569)+v(9798)+v(9815)
v(16624)=v(6608)*v(9376)+v(6604)*v(9404)+v(6600)*v(9555)+v(9820)+v(9891)
v(16625)=v(6608)*v(9257)+v(6604)*v(9387)+v(6600)*v(9510)+v(9520)+v(9943)
v(16626)=v(6608)*v(9143)+v(6604)*v(9199)+v(6600)*v(9215)+v(9806)+v(9818)
v(16627)=v(6608)*v(9133)+v(6604)*v(9188)+v(6600)*v(9199)+v(9821)+v(9905)
v(16628)=v(6608)*v(9121)+v(6604)*v(9133)+v(6600)*v(9143)+v(9154)+v(9950)
v(16630)=(-(v(12191)*v(6422))-v(12497)*v(6424)-v(12803)*v(6425)+v(12290)*v(6426)+v(12596)*v(6427)+v(12902)*v(6428))/2d0
v(16631)=(-(v(12182)*v(6422))-v(12488)*v(6424)-v(12794)*v(6425)+v(12281)*v(6426)+v(12587)*v(6427)+v(12893)*v(6428))/2d0
v(16632)=(-(v(12172)*v(6422))-v(12478)*v(6424)-v(12784)*v(6425)+v(12271)*v(6426)+v(12577)*v(6427)+v(12883)*v(6428))/2d0
v(16633)=(-(v(12161)*v(6422))-v(12467)*v(6424)-v(12773)*v(6425)+v(12260)*v(6426)+v(12566)*v(6427)+v(12872)*v(6428))/2d0
v(16634)=(-(v(12149)*v(6422))-v(12455)*v(6424)-v(12761)*v(6425)+v(12248)*v(6426)+v(12554)*v(6427)+v(12860)*v(6428))/2d0
v(16638)=(-(v(12136)*v(6422))-v(12442)*v(6424)-v(12748)*v(6425)+v(12235)*v(6426)+v(12541)*v(6427)+v(12847)*v(6428))/2d0
v(16639)=(-(v(12122)*v(6422))-v(12428)*v(6424)-v(12734)*v(6425)+v(12221)*v(6426)+v(12527)*v(6427)+v(12833)*v(6428))/2d0
v(16640)=(-(v(12107)*v(6422))-v(12413)*v(6424)-v(12719)*v(6425)+v(12206)*v(6426)+v(12512)*v(6427)+v(12818)*v(6428))/2d0
v(16642)=(-(v(12290)*v(6415))-v(12596)*v(6417)-v(12902)*v(6418)+v(12092)*v(6422)+v(12398)*v(6424)+v(12704)*v(6425))/2d0
v(16643)=(-(v(12281)*v(6415))-v(12587)*v(6417)-v(12893)*v(6418)+v(12083)*v(6422)+v(12389)*v(6424)+v(12695)*v(6425))/2d0
v(16644)=(-(v(12271)*v(6415))-v(12577)*v(6417)-v(12883)*v(6418)+v(12073)*v(6422)+v(12379)*v(6424)+v(12685)*v(6425))/2d0
v(16645)=(-(v(12260)*v(6415))-v(12566)*v(6417)-v(12872)*v(6418)+v(12062)*v(6422)+v(12368)*v(6424)+v(12674)*v(6425))/2d0
v(16646)=(-(v(12248)*v(6415))-v(12554)*v(6417)-v(12860)*v(6418)+v(12050)*v(6422)+v(12356)*v(6424)+v(12662)*v(6425))/2d0
v(16650)=(-(v(12235)*v(6415))-v(12541)*v(6417)-v(12847)*v(6418)+v(12037)*v(6422)+v(12343)*v(6424)+v(12649)*v(6425))/2d0
v(16651)=(-(v(12221)*v(6415))-v(12527)*v(6417)-v(12833)*v(6418)+v(12023)*v(6422)+v(12329)*v(6424)+v(12635)*v(6425))/2d0
v(16652)=(-(v(12206)*v(6415))-v(12512)*v(6417)-v(12818)*v(6418)+v(12008)*v(6422)+v(12314)*v(6424)+v(12620)*v(6425))/2d0
v(16654)=(v(12191)*v(6415)+v(12497)*v(6417)+v(12803)*v(6418)-v(12092)*v(6426)-v(12398)*v(6427)-v(12704)*v(6428))/2d0
v(16655)=(v(12182)*v(6415)+v(12488)*v(6417)+v(12794)*v(6418)-v(12083)*v(6426)-v(12389)*v(6427)-v(12695)*v(6428))/2d0
v(16656)=(v(12172)*v(6415)+v(12478)*v(6417)+v(12784)*v(6418)-v(12073)*v(6426)-v(12379)*v(6427)-v(12685)*v(6428))/2d0
v(16657)=(v(12161)*v(6415)+v(12467)*v(6417)+v(12773)*v(6418)-v(12062)*v(6426)-v(12368)*v(6427)-v(12674)*v(6428))/2d0
v(16658)=(v(12149)*v(6415)+v(12455)*v(6417)+v(12761)*v(6418)-v(12050)*v(6426)-v(12356)*v(6427)-v(12662)*v(6428))/2d0
v(16662)=(v(12136)*v(6415)+v(12442)*v(6417)+v(12748)*v(6418)-v(12037)*v(6426)-v(12343)*v(6427)-v(12649)*v(6428))/2d0
v(16663)=(v(12122)*v(6415)+v(12428)*v(6417)+v(12734)*v(6418)-v(12023)*v(6426)-v(12329)*v(6427)-v(12635)*v(6428))/2d0
v(16664)=(v(12107)*v(6415)+v(12413)*v(6417)+v(12719)*v(6418)-v(12008)*v(6426)-v(12314)*v(6427)-v(12620)*v(6428))/2d0
v(16666)=v(18047)+v(6447)*v(9360)+v(6445)*v(9491)+v(6443)*v(9735)
v(16667)=v(18048)+v(6447)*v(9353)+v(6445)*v(9485)+v(6443)*v(9707)
v(16668)=v(6447)*v(9345)+v(6445)*v(9478)+v(6443)*v(9701)+v(9758)+v(9761)
v(16669)=v(6447)*v(9336)+v(6445)*v(9470)+v(6443)*v(9694)+v(9763)+v(9870)
v(16670)=v(6447)*v(9326)+v(6445)*v(9461)+v(6443)*v(9660)+v(9670)+v(9934)
v(16671)=v(6447)*v(9317)+v(6445)*v(9452)+v(6443)*v(9651)+v(9741)+v(9749)
v(16672)=v(6447)*v(9295)+v(6445)*v(9431)+v(6443)*v(9643)+v(9764)+v(9855)
v(16673)=v(6447)*v(9274)+v(6445)*v(9422)+v(6443)*v(9605)+v(9617)+v(9925)
v(16675)=v(18049)+v(6447)*v(9382)+v(6445)*v(9417)+v(6443)*v(9601)
v(16676)=v(18050)+v(6447)*v(9266)+v(6445)*v(9411)+v(6443)*v(9574)
v(16677)=v(6447)*v(9506)+v(6445)*v(9551)+v(6443)*v(9569)+v(9815)+v(9818)
v(16678)=v(6447)*v(9376)+v(6445)*v(9404)+v(6443)*v(9555)+v(9820)+v(9905)
v(16679)=v(6447)*v(9257)+v(6445)*v(9387)+v(6443)*v(9510)+v(9520)+v(9950)
v(16680)=v(6447)*v(9143)+v(6445)*v(9199)+v(6443)*v(9215)+v(9798)+v(9806)
v(16681)=v(6447)*v(9133)+v(6445)*v(9188)+v(6443)*v(9199)+v(9821)+v(9891)
v(16682)=v(6447)*v(9121)+v(6445)*v(9133)+v(6443)*v(9143)+v(9154)+v(9943)
v(16684)=(-(v(13671)*v(6422))-v(13977)*v(6424)-v(14283)*v(6425)+v(13770)*v(6426)+v(14076)*v(6427)+v(14382)*v(6428))/2d0
v(16685)=(-(v(13662)*v(6422))-v(13968)*v(6424)-v(14274)*v(6425)+v(13761)*v(6426)+v(14067)*v(6427)+v(14373)*v(6428))/2d0
v(16686)=(-(v(13652)*v(6422))-v(13958)*v(6424)-v(14264)*v(6425)+v(13751)*v(6426)+v(14057)*v(6427)+v(14363)*v(6428))/2d0
v(16687)=(-(v(13641)*v(6422))-v(13947)*v(6424)-v(14253)*v(6425)+v(13740)*v(6426)+v(14046)*v(6427)+v(14352)*v(6428))/2d0
v(16688)=(-(v(13629)*v(6422))-v(13935)*v(6424)-v(14241)*v(6425)+v(13728)*v(6426)+v(14034)*v(6427)+v(14340)*v(6428))/2d0
v(16689)=(-(v(13616)*v(6422))-v(13922)*v(6424)-v(14228)*v(6425)+v(13715)*v(6426)+v(14021)*v(6427)+v(14327)*v(6428))/2d0
v(16690)=(-(v(13602)*v(6422))-v(13908)*v(6424)-v(14214)*v(6425)+v(13701)*v(6426)+v(14007)*v(6427)+v(14313)*v(6428))/2d0
v(16691)=(-(v(13587)*v(6422))-v(13893)*v(6424)-v(14199)*v(6425)+v(13686)*v(6426)+v(13992)*v(6427)+v(14298)*v(6428))/2d0
v(16696)=(-(v(13770)*v(6415))-v(14076)*v(6417)-v(14382)*v(6418)+v(13572)*v(6422)+v(13878)*v(6424)+v(14184)*v(6425))/2d0
v(16697)=(-(v(13761)*v(6415))-v(14067)*v(6417)-v(14373)*v(6418)+v(13563)*v(6422)+v(13869)*v(6424)+v(14175)*v(6425))/2d0
v(16698)=(-(v(13751)*v(6415))-v(14057)*v(6417)-v(14363)*v(6418)+v(13553)*v(6422)+v(13859)*v(6424)+v(14165)*v(6425))/2d0
v(16699)=(-(v(13740)*v(6415))-v(14046)*v(6417)-v(14352)*v(6418)+v(13542)*v(6422)+v(13848)*v(6424)+v(14154)*v(6425))/2d0
v(16700)=(-(v(13728)*v(6415))-v(14034)*v(6417)-v(14340)*v(6418)+v(13530)*v(6422)+v(13836)*v(6424)+v(14142)*v(6425))/2d0
v(16701)=(-(v(13715)*v(6415))-v(14021)*v(6417)-v(14327)*v(6418)+v(13517)*v(6422)+v(13823)*v(6424)+v(14129)*v(6425))/2d0
v(16702)=(-(v(13701)*v(6415))-v(14007)*v(6417)-v(14313)*v(6418)+v(13503)*v(6422)+v(13809)*v(6424)+v(14115)*v(6425))/2d0
v(16703)=(-(v(13686)*v(6415))-v(13992)*v(6417)-v(14298)*v(6418)+v(13488)*v(6422)+v(13794)*v(6424)+v(14100)*v(6425))/2d0
v(16708)=(v(13671)*v(6415)+v(13977)*v(6417)+v(14283)*v(6418)-v(13572)*v(6426)-v(13878)*v(6427)-v(14184)*v(6428))/2d0
v(16709)=(v(13662)*v(6415)+v(13968)*v(6417)+v(14274)*v(6418)-v(13563)*v(6426)-v(13869)*v(6427)-v(14175)*v(6428))/2d0
v(16710)=(v(13652)*v(6415)+v(13958)*v(6417)+v(14264)*v(6418)-v(13553)*v(6426)-v(13859)*v(6427)-v(14165)*v(6428))/2d0
v(16711)=(v(13641)*v(6415)+v(13947)*v(6417)+v(14253)*v(6418)-v(13542)*v(6426)-v(13848)*v(6427)-v(14154)*v(6428))/2d0
v(16712)=(v(13629)*v(6415)+v(13935)*v(6417)+v(14241)*v(6418)-v(13530)*v(6426)-v(13836)*v(6427)-v(14142)*v(6428))/2d0
v(16713)=(v(13616)*v(6415)+v(13922)*v(6417)+v(14228)*v(6418)-v(13517)*v(6426)-v(13823)*v(6427)-v(14129)*v(6428))/2d0
v(16714)=(v(13602)*v(6415)+v(13908)*v(6417)+v(14214)*v(6418)-v(13503)*v(6426)-v(13809)*v(6427)-v(14115)*v(6428))/2d0
v(16715)=(v(13587)*v(6415)+v(13893)*v(6417)+v(14199)*v(6418)-v(13488)*v(6426)-v(13794)*v(6427)-v(14100)*v(6428))/2d0
v(16720)=v(6446)*v(9355)+v(6444)*v(9487)+v(6442)*v(9708)+v(9857)+v(9926)
v(16721)=v(6446)*v(9347)+v(6444)*v(9480)+v(6442)*v(9702)+v(9762)+v(9858)
v(16722)=v(6446)*v(9338)+v(6444)*v(9472)+v(6442)*v(9695)+v(9859)+v(9871)
v(16723)=v(6446)*v(9328)+v(6444)*v(9463)+v(6442)*v(9661)+v(9860)+v(9935)
v(16724)=v(6446)*v(9318)+v(6444)*v(9453)+v(6442)*v(9652)+v(9762)+v(9861)
v(16725)=v(6446)*v(9296)+v(6444)*v(9432)+v(6442)*v(9644)+v(9862)+v(9871)
v(16726)=v(6446)*v(9275)+v(6444)*v(9423)+v(6442)*v(9606)+v(9863)+v(9935)
v(16728)=v(6446)*v(9267)+v(6444)*v(9413)+v(6442)*v(9575)+v(9893)+v(9944)
v(16729)=v(6446)*v(9386)+v(6444)*v(9421)+v(6442)*v(9570)+v(9819)+v(9894)
v(16730)=v(6446)*v(9378)+v(6444)*v(9406)+v(6442)*v(9556)+v(9895)+v(9906)
v(16731)=v(6446)*v(9258)+v(6444)*v(9388)+v(6442)*v(9511)+v(9896)+v(9951)
v(16732)=v(6446)*v(9144)+v(6444)*v(9200)+v(6442)*v(9216)+v(9803)+v(9819)
v(16733)=v(6446)*v(9134)+v(6444)*v(9189)+v(6442)*v(9200)+v(9897)+v(9906)
v(16734)=v(6446)*v(9122)+v(6444)*v(9134)+v(6442)*v(9144)+v(9898)+v(9951)
v(16736)=(-(v(10703)*v(6422))-v(11009)*v(6424)-v(11315)*v(6425)+v(10802)*v(6426)+v(11108)*v(6427)+v(11414)*v(6428))/2d0
v(16740)=(-(v(10693)*v(6422))-v(10999)*v(6424)-v(11305)*v(6425)+v(10792)*v(6426)+v(11098)*v(6427)+v(11404)*v(6428))/2d0
v(16741)=(-(v(10682)*v(6422))-v(10988)*v(6424)-v(11294)*v(6425)+v(10781)*v(6426)+v(11087)*v(6427)+v(11393)*v(6428))/2d0
v(16742)=(-(v(10670)*v(6422))-v(10976)*v(6424)-v(11282)*v(6425)+v(10769)*v(6426)+v(11075)*v(6427)+v(11381)*v(6428))/2d0
v(16743)=(-(v(10657)*v(6422))-v(10963)*v(6424)-v(11269)*v(6425)+v(10756)*v(6426)+v(11062)*v(6427)+v(11368)*v(6428))/2d0
v(16744)=(-(v(10643)*v(6422))-v(10949)*v(6424)-v(11255)*v(6425)+v(10742)*v(6426)+v(11048)*v(6427)+v(11354)*v(6428))/2d0
v(16745)=(-(v(10628)*v(6422))-v(10934)*v(6424)-v(11240)*v(6425)+v(10727)*v(6426)+v(11033)*v(6427)+v(11339)*v(6428))/2d0
v(16747)=(-(v(10802)*v(6415))-v(11108)*v(6417)-v(11414)*v(6418)+v(10604)*v(6422)+v(10910)*v(6424)+v(11216)*v(6425))/2d0
v(16751)=(-(v(10792)*v(6415))-v(11098)*v(6417)-v(11404)*v(6418)+v(10594)*v(6422)+v(10900)*v(6424)+v(11206)*v(6425))/2d0
v(16752)=(-(v(10781)*v(6415))-v(11087)*v(6417)-v(11393)*v(6418)+v(10583)*v(6422)+v(10889)*v(6424)+v(11195)*v(6425))/2d0
v(16753)=(-(v(10769)*v(6415))-v(11075)*v(6417)-v(11381)*v(6418)+v(10571)*v(6422)+v(10877)*v(6424)+v(11183)*v(6425))/2d0
v(16754)=(-(v(10756)*v(6415))-v(11062)*v(6417)-v(11368)*v(6418)+v(10558)*v(6422)+v(10864)*v(6424)+v(11170)*v(6425))/2d0
v(16755)=(-(v(10742)*v(6415))-v(11048)*v(6417)-v(11354)*v(6418)+v(10544)*v(6422)+v(10850)*v(6424)+v(11156)*v(6425))/2d0
v(16756)=(-(v(10727)*v(6415))-v(11033)*v(6417)-v(11339)*v(6418)+v(10529)*v(6422)+v(10835)*v(6424)+v(11141)*v(6425))/2d0
v(16758)=(v(10703)*v(6415)+v(11009)*v(6417)+v(11315)*v(6418)-v(10604)*v(6426)-v(10910)*v(6427)-v(11216)*v(6428))/2d0
v(16762)=(v(10693)*v(6415)+v(10999)*v(6417)+v(11305)*v(6418)-v(10594)*v(6426)-v(10900)*v(6427)-v(11206)*v(6428))/2d0
v(16763)=(v(10682)*v(6415)+v(10988)*v(6417)+v(11294)*v(6418)-v(10583)*v(6426)-v(10889)*v(6427)-v(11195)*v(6428))/2d0
v(16764)=(v(10670)*v(6415)+v(10976)*v(6417)+v(11282)*v(6418)-v(10571)*v(6426)-v(10877)*v(6427)-v(11183)*v(6428))/2d0
v(16765)=(v(10657)*v(6415)+v(10963)*v(6417)+v(11269)*v(6418)-v(10558)*v(6426)-v(10864)*v(6427)-v(11170)*v(6428))/2d0
v(16766)=(v(10643)*v(6415)+v(10949)*v(6417)+v(11255)*v(6418)-v(10544)*v(6426)-v(10850)*v(6427)-v(11156)*v(6428))/2d0
v(16767)=(v(10628)*v(6415)+v(10934)*v(6417)+v(11240)*v(6418)-v(10529)*v(6426)-v(10835)*v(6427)-v(11141)*v(6428))/2d0
v(16769)=v(18051)+v(6608)*v(9355)+v(6604)*v(9487)+v(6600)*v(9708)
v(16770)=v(6608)*v(9347)+v(6604)*v(9480)+v(6600)*v(9702)+v(9742)+v(9873)
v(16771)=v(6608)*v(9338)+v(6604)*v(9472)+v(6600)*v(9695)+v(9856)+v(9874)
v(16772)=v(6608)*v(9328)+v(6604)*v(9463)+v(6600)*v(9661)+v(9875)+v(9926)
v(16773)=v(6608)*v(9318)+v(6604)*v(9453)+v(6600)*v(9652)+v(9762)+v(9876)
v(16774)=v(6608)*v(9296)+v(6604)*v(9432)+v(6600)*v(9644)+v(9871)+v(9877)
v(16775)=v(6608)*v(9275)+v(6604)*v(9423)+v(6600)*v(9606)+v(9878)+v(9935)
v(16777)=v(18052)+v(6608)*v(9267)+v(6604)*v(9413)+v(6600)*v(9575)
v(16778)=v(6608)*v(9386)+v(6604)*v(9421)+v(6600)*v(9570)+v(9799)+v(9908)
v(16779)=v(6608)*v(9378)+v(6604)*v(9406)+v(6600)*v(9556)+v(9892)+v(9909)
v(16780)=v(6608)*v(9258)+v(6604)*v(9388)+v(6600)*v(9511)+v(9910)+v(9944)
v(16781)=v(6608)*v(9144)+v(6604)*v(9200)+v(6600)*v(9216)+v(9819)+v(9821)
v(16782)=v(6608)*v(9134)+v(6604)*v(9189)+v(6600)*v(9200)+v(9906)+v(9911)
v(16783)=v(6608)*v(9122)+v(6604)*v(9134)+v(6600)*v(9144)+v(9912)+v(9951)
v(16785)=(-(v(12183)*v(6422))-v(12489)*v(6424)-v(12795)*v(6425)+v(12282)*v(6426)+v(12588)*v(6427)+v(12894)*v(6428))/2d0
v(16786)=(-(v(12173)*v(6422))-v(12479)*v(6424)-v(12785)*v(6425)+v(12272)*v(6426)+v(12578)*v(6427)+v(12884)*v(6428))/2d0
v(16787)=(-(v(12162)*v(6422))-v(12468)*v(6424)-v(12774)*v(6425)+v(12261)*v(6426)+v(12567)*v(6427)+v(12873)*v(6428))/2d0
v(16788)=(-(v(12150)*v(6422))-v(12456)*v(6424)-v(12762)*v(6425)+v(12249)*v(6426)+v(12555)*v(6427)+v(12861)*v(6428))/2d0
v(16792)=(-(v(12137)*v(6422))-v(12443)*v(6424)-v(12749)*v(6425)+v(12236)*v(6426)+v(12542)*v(6427)+v(12848)*v(6428))/2d0
v(16793)=(-(v(12123)*v(6422))-v(12429)*v(6424)-v(12735)*v(6425)+v(12222)*v(6426)+v(12528)*v(6427)+v(12834)*v(6428))/2d0
v(16794)=(-(v(12108)*v(6422))-v(12414)*v(6424)-v(12720)*v(6425)+v(12207)*v(6426)+v(12513)*v(6427)+v(12819)*v(6428))/2d0
v(16796)=(-(v(12282)*v(6415))-v(12588)*v(6417)-v(12894)*v(6418)+v(12084)*v(6422)+v(12390)*v(6424)+v(12696)*v(6425))/2d0
v(16797)=(-(v(12272)*v(6415))-v(12578)*v(6417)-v(12884)*v(6418)+v(12074)*v(6422)+v(12380)*v(6424)+v(12686)*v(6425))/2d0
v(16798)=(-(v(12261)*v(6415))-v(12567)*v(6417)-v(12873)*v(6418)+v(12063)*v(6422)+v(12369)*v(6424)+v(12675)*v(6425))/2d0
v(16799)=(-(v(12249)*v(6415))-v(12555)*v(6417)-v(12861)*v(6418)+v(12051)*v(6422)+v(12357)*v(6424)+v(12663)*v(6425))/2d0
v(16803)=(-(v(12236)*v(6415))-v(12542)*v(6417)-v(12848)*v(6418)+v(12038)*v(6422)+v(12344)*v(6424)+v(12650)*v(6425))/2d0
v(16804)=(-(v(12222)*v(6415))-v(12528)*v(6417)-v(12834)*v(6418)+v(12024)*v(6422)+v(12330)*v(6424)+v(12636)*v(6425))/2d0
v(16805)=(-(v(12207)*v(6415))-v(12513)*v(6417)-v(12819)*v(6418)+v(12009)*v(6422)+v(12315)*v(6424)+v(12621)*v(6425))/2d0
v(16807)=(v(12183)*v(6415)+v(12489)*v(6417)+v(12795)*v(6418)-v(12084)*v(6426)-v(12390)*v(6427)-v(12696)*v(6428))/2d0
v(16808)=(v(12173)*v(6415)+v(12479)*v(6417)+v(12785)*v(6418)-v(12074)*v(6426)-v(12380)*v(6427)-v(12686)*v(6428))/2d0
v(16809)=(v(12162)*v(6415)+v(12468)*v(6417)+v(12774)*v(6418)-v(12063)*v(6426)-v(12369)*v(6427)-v(12675)*v(6428))/2d0
v(16810)=(v(12150)*v(6415)+v(12456)*v(6417)+v(12762)*v(6418)-v(12051)*v(6426)-v(12357)*v(6427)-v(12663)*v(6428))/2d0
v(16814)=(v(12137)*v(6415)+v(12443)*v(6417)+v(12749)*v(6418)-v(12038)*v(6426)-v(12344)*v(6427)-v(12650)*v(6428))/2d0
v(16815)=(v(12123)*v(6415)+v(12429)*v(6417)+v(12735)*v(6418)-v(12024)*v(6426)-v(12330)*v(6427)-v(12636)*v(6428))/2d0
v(16816)=(v(12108)*v(6415)+v(12414)*v(6417)+v(12720)*v(6418)-v(12009)*v(6426)-v(12315)*v(6427)-v(12621)*v(6428))/2d0
v(16818)=v(18051)+v(6447)*v(9355)+v(6445)*v(9487)+v(6443)*v(9708)
v(16819)=v(6447)*v(9347)+v(6445)*v(9480)+v(6443)*v(9702)+v(9762)+v(9873)
v(16820)=v(6447)*v(9338)+v(6445)*v(9472)+v(6443)*v(9695)+v(9871)+v(9874)
v(16821)=v(6447)*v(9328)+v(6445)*v(9463)+v(6443)*v(9661)+v(9875)+v(9935)
v(16822)=v(6447)*v(9318)+v(6445)*v(9453)+v(6443)*v(9652)+v(9742)+v(9876)
v(16823)=v(6447)*v(9296)+v(6445)*v(9432)+v(6443)*v(9644)+v(9856)+v(9877)
v(16824)=v(6447)*v(9275)+v(6445)*v(9423)+v(6443)*v(9606)+v(9878)+v(9926)
v(16826)=v(18052)+v(6447)*v(9267)+v(6445)*v(9413)+v(6443)*v(9575)
v(16827)=v(6447)*v(9386)+v(6445)*v(9421)+v(6443)*v(9570)+v(9819)+v(9908)
v(16828)=v(6447)*v(9378)+v(6445)*v(9406)+v(6443)*v(9556)+v(9906)+v(9909)
v(16829)=v(6447)*v(9258)+v(6445)*v(9388)+v(6443)*v(9511)+v(9910)+v(9951)
v(16830)=v(6447)*v(9144)+v(6445)*v(9200)+v(6443)*v(9216)+v(9799)+v(9821)
v(16831)=v(6447)*v(9134)+v(6445)*v(9189)+v(6443)*v(9200)+v(9892)+v(9911)
v(16832)=v(6447)*v(9122)+v(6445)*v(9134)+v(6443)*v(9144)+v(9912)+v(9944)
v(16834)=(-(v(13663)*v(6422))-v(13969)*v(6424)-v(14275)*v(6425)+v(13762)*v(6426)+v(14068)*v(6427)+v(14374)*v(6428))/2d0
v(16835)=(-(v(13653)*v(6422))-v(13959)*v(6424)-v(14265)*v(6425)+v(13752)*v(6426)+v(14058)*v(6427)+v(14364)*v(6428))/2d0
v(16836)=(-(v(13642)*v(6422))-v(13948)*v(6424)-v(14254)*v(6425)+v(13741)*v(6426)+v(14047)*v(6427)+v(14353)*v(6428))/2d0
v(16837)=(-(v(13630)*v(6422))-v(13936)*v(6424)-v(14242)*v(6425)+v(13729)*v(6426)+v(14035)*v(6427)+v(14341)*v(6428))/2d0
v(16838)=(-(v(13617)*v(6422))-v(13923)*v(6424)-v(14229)*v(6425)+v(13716)*v(6426)+v(14022)*v(6427)+v(14328)*v(6428))/2d0
v(16839)=(-(v(13603)*v(6422))-v(13909)*v(6424)-v(14215)*v(6425)+v(13702)*v(6426)+v(14008)*v(6427)+v(14314)*v(6428))/2d0
v(16840)=(-(v(13588)*v(6422))-v(13894)*v(6424)-v(14200)*v(6425)+v(13687)*v(6426)+v(13993)*v(6427)+v(14299)*v(6428))/2d0
v(16845)=(-(v(13762)*v(6415))-v(14068)*v(6417)-v(14374)*v(6418)+v(13564)*v(6422)+v(13870)*v(6424)+v(14176)*v(6425))/2d0
v(16846)=(-(v(13752)*v(6415))-v(14058)*v(6417)-v(14364)*v(6418)+v(13554)*v(6422)+v(13860)*v(6424)+v(14166)*v(6425))/2d0
v(16847)=(-(v(13741)*v(6415))-v(14047)*v(6417)-v(14353)*v(6418)+v(13543)*v(6422)+v(13849)*v(6424)+v(14155)*v(6425))/2d0
v(16848)=(-(v(13729)*v(6415))-v(14035)*v(6417)-v(14341)*v(6418)+v(13531)*v(6422)+v(13837)*v(6424)+v(14143)*v(6425))/2d0
v(16849)=(-(v(13716)*v(6415))-v(14022)*v(6417)-v(14328)*v(6418)+v(13518)*v(6422)+v(13824)*v(6424)+v(14130)*v(6425))/2d0
v(16850)=(-(v(13702)*v(6415))-v(14008)*v(6417)-v(14314)*v(6418)+v(13504)*v(6422)+v(13810)*v(6424)+v(14116)*v(6425))/2d0
v(16851)=(-(v(13687)*v(6415))-v(13993)*v(6417)-v(14299)*v(6418)+v(13489)*v(6422)+v(13795)*v(6424)+v(14101)*v(6425))/2d0
v(16856)=(v(13663)*v(6415)+v(13969)*v(6417)+v(14275)*v(6418)-v(13564)*v(6426)-v(13870)*v(6427)-v(14176)*v(6428))/2d0
v(16857)=(v(13653)*v(6415)+v(13959)*v(6417)+v(14265)*v(6418)-v(13554)*v(6426)-v(13860)*v(6427)-v(14166)*v(6428))/2d0
v(16858)=(v(13642)*v(6415)+v(13948)*v(6417)+v(14254)*v(6418)-v(13543)*v(6426)-v(13849)*v(6427)-v(14155)*v(6428))/2d0
v(16859)=(v(13630)*v(6415)+v(13936)*v(6417)+v(14242)*v(6418)-v(13531)*v(6426)-v(13837)*v(6427)-v(14143)*v(6428))/2d0
v(16860)=(v(13617)*v(6415)+v(13923)*v(6417)+v(14229)*v(6418)-v(13518)*v(6426)-v(13824)*v(6427)-v(14130)*v(6428))/2d0
v(16861)=(v(13603)*v(6415)+v(13909)*v(6417)+v(14215)*v(6418)-v(13504)*v(6426)-v(13810)*v(6427)-v(14116)*v(6428))/2d0
v(16862)=(v(13588)*v(6415)+v(13894)*v(6417)+v(14200)*v(6418)-v(13489)*v(6426)-v(13795)*v(6427)-v(14101)*v(6428))/2d0
v(16867)=v(6446)*v(9349)+v(6444)*v(9481)+v(6442)*v(9703)+v(9714)+v(9928)
v(16868)=v(6446)*v(9340)+v(6444)*v(9473)+v(6442)*v(9696)+v(9872)+v(9929)
v(16869)=v(6446)*v(9330)+v(6444)*v(9464)+v(6442)*v(9662)+v(9930)+v(9936)
v(16870)=v(6446)*v(9319)+v(6444)*v(9454)+v(6442)*v(9653)+v(9714)+v(9931)
v(16871)=v(6446)*v(9297)+v(6444)*v(9433)+v(6442)*v(9645)+v(9872)+v(9932)
v(16872)=v(6446)*v(9276)+v(6444)*v(9424)+v(6442)*v(9607)+v(9933)+v(9936)
v(16874)=v(6446)*v(9271)+v(6444)*v(9416)+v(6442)*v(9571)+v(9580)+v(9946)
v(16875)=v(6446)*v(9273)+v(6444)*v(9407)+v(6442)*v(9557)+v(9907)+v(9947)
v(16876)=v(6446)*v(9260)+v(6444)*v(9389)+v(6442)*v(9512)+v(9948)+v(9952)
v(16877)=v(6446)*v(9145)+v(9164)+v(6444)*v(9201)+v(6442)*v(9217)+v(9580)
v(16878)=v(6446)*v(9135)+v(6444)*v(9190)+v(6442)*v(9201)+v(9898)+v(9907)
v(16879)=v(6446)*v(9123)+v(6444)*v(9135)+v(6442)*v(9145)+v(9949)+v(9952)
v(16884)=(-(v(10694)*v(6422))-v(11000)*v(6424)-v(11306)*v(6425)+v(10793)*v(6426)+v(11099)*v(6427)+v(11405)*v(6428))/2d0
v(16885)=(-(v(10683)*v(6422))-v(10989)*v(6424)-v(11295)*v(6425)+v(10782)*v(6426)+v(11088)*v(6427)+v(11394)*v(6428))/2d0
v(16886)=(-(v(10671)*v(6422))-v(10977)*v(6424)-v(11283)*v(6425)+v(10770)*v(6426)+v(11076)*v(6427)+v(11382)*v(6428))/2d0
v(16887)=(-(v(10658)*v(6422))-v(10964)*v(6424)-v(11270)*v(6425)+v(10757)*v(6426)+v(11063)*v(6427)+v(11369)*v(6428))/2d0
v(16888)=(-(v(10644)*v(6422))-v(10950)*v(6424)-v(11256)*v(6425)+v(10743)*v(6426)+v(11049)*v(6427)+v(11355)*v(6428))/2d0
v(16889)=(-(v(10629)*v(6422))-v(10935)*v(6424)-v(11241)*v(6425)+v(10728)*v(6426)+v(11034)*v(6427)+v(11340)*v(6428))/2d0
v(16894)=(-(v(10793)*v(6415))-v(11099)*v(6417)-v(11405)*v(6418)+v(10595)*v(6422)+v(10901)*v(6424)+v(11207)*v(6425))/2d0
v(16895)=(-(v(10782)*v(6415))-v(11088)*v(6417)-v(11394)*v(6418)+v(10584)*v(6422)+v(10890)*v(6424)+v(11196)*v(6425))/2d0
v(16896)=(-(v(10770)*v(6415))-v(11076)*v(6417)-v(11382)*v(6418)+v(10572)*v(6422)+v(10878)*v(6424)+v(11184)*v(6425))/2d0
v(16897)=(-(v(10757)*v(6415))-v(11063)*v(6417)-v(11369)*v(6418)+v(10559)*v(6422)+v(10865)*v(6424)+v(11171)*v(6425))/2d0
v(16898)=(-(v(10743)*v(6415))-v(11049)*v(6417)-v(11355)*v(6418)+v(10545)*v(6422)+v(10851)*v(6424)+v(11157)*v(6425))/2d0
v(16899)=(-(v(10728)*v(6415))-v(11034)*v(6417)-v(11340)*v(6418)+v(10530)*v(6422)+v(10836)*v(6424)+v(11142)*v(6425))/2d0
v(16904)=(v(10694)*v(6415)+v(11000)*v(6417)+v(11306)*v(6418)-v(10595)*v(6426)-v(10901)*v(6427)-v(11207)*v(6428))/2d0
v(16905)=(v(10683)*v(6415)+v(10989)*v(6417)+v(11295)*v(6418)-v(10584)*v(6426)-v(10890)*v(6427)-v(11196)*v(6428))/2d0
v(16906)=(v(10671)*v(6415)+v(10977)*v(6417)+v(11283)*v(6418)-v(10572)*v(6426)-v(10878)*v(6427)-v(11184)*v(6428))/2d0
v(16907)=(v(10658)*v(6415)+v(10964)*v(6417)+v(11270)*v(6418)-v(10559)*v(6426)-v(10865)*v(6427)-v(11171)*v(6428))/2d0
v(16908)=(v(10644)*v(6415)+v(10950)*v(6417)+v(11256)*v(6418)-v(10545)*v(6426)-v(10851)*v(6427)-v(11157)*v(6428))/2d0
v(16909)=(v(10629)*v(6415)+v(10935)*v(6417)+v(11241)*v(6418)-v(10530)*v(6426)-v(10836)*v(6427)-v(11142)*v(6428))/2d0
v(16911)=v(6608)*v(9349)+v(6604)*v(9481)+v(6600)*v(9703)+v(9722)+v(9937)
v(16912)=v(6608)*v(9340)+v(6604)*v(9473)+v(6600)*v(9696)+v(9857)+v(9938)
v(16913)=v(6608)*v(9330)+v(6604)*v(9464)+v(6600)*v(9662)+v(9927)+v(9939)
v(16914)=v(6608)*v(9319)+v(6604)*v(9454)+v(6600)*v(9653)+v(9714)+v(9940)
v(16915)=v(6608)*v(9297)+v(6604)*v(9433)+v(6600)*v(9645)+v(9872)+v(9941)
v(16916)=v(6608)*v(9276)+v(6604)*v(9424)+v(6600)*v(9607)+v(9936)+v(9942)
v(16918)=v(6608)*v(9271)+v(6604)*v(9416)+v(6600)*v(9571)+v(9588)+v(9953)
v(16919)=v(6608)*v(9273)+v(6604)*v(9407)+v(6600)*v(9557)+v(9893)+v(9954)
v(16920)=v(6608)*v(9260)+v(6604)*v(9389)+v(6600)*v(9512)+v(9945)+v(9955)
v(16921)=v(6608)*v(9145)+v(9154)+v(6604)*v(9201)+v(6600)*v(9217)+v(9580)
v(16922)=v(6608)*v(9135)+v(6604)*v(9190)+v(6600)*v(9201)+v(9907)+v(9912)
v(16923)=v(6608)*v(9123)+v(6604)*v(9135)+v(6600)*v(9145)+v(9952)+v(9956)
v(16925)=(-(v(12174)*v(6422))-v(12480)*v(6424)-v(12786)*v(6425)+v(12273)*v(6426)+v(12579)*v(6427)+v(12885)*v(6428))/2d0
v(16926)=(-(v(12163)*v(6422))-v(12469)*v(6424)-v(12775)*v(6425)+v(12262)*v(6426)+v(12568)*v(6427)+v(12874)*v(6428))/2d0
v(16927)=(-(v(12151)*v(6422))-v(12457)*v(6424)-v(12763)*v(6425)+v(12250)*v(6426)+v(12556)*v(6427)+v(12862)*v(6428))/2d0
v(16931)=(-(v(12138)*v(6422))-v(12444)*v(6424)-v(12750)*v(6425)+v(12237)*v(6426)+v(12543)*v(6427)+v(12849)*v(6428))/2d0
v(16932)=(-(v(12124)*v(6422))-v(12430)*v(6424)-v(12736)*v(6425)+v(12223)*v(6426)+v(12529)*v(6427)+v(12835)*v(6428))/2d0
v(16933)=(-(v(12109)*v(6422))-v(12415)*v(6424)-v(12721)*v(6425)+v(12208)*v(6426)+v(12514)*v(6427)+v(12820)*v(6428))/2d0
v(16935)=(-(v(12273)*v(6415))-v(12579)*v(6417)-v(12885)*v(6418)+v(12075)*v(6422)+v(12381)*v(6424)+v(12687)*v(6425))/2d0
v(16936)=(-(v(12262)*v(6415))-v(12568)*v(6417)-v(12874)*v(6418)+v(12064)*v(6422)+v(12370)*v(6424)+v(12676)*v(6425))/2d0
v(16937)=(-(v(12250)*v(6415))-v(12556)*v(6417)-v(12862)*v(6418)+v(12052)*v(6422)+v(12358)*v(6424)+v(12664)*v(6425))/2d0
v(16941)=(-(v(12237)*v(6415))-v(12543)*v(6417)-v(12849)*v(6418)+v(12039)*v(6422)+v(12345)*v(6424)+v(12651)*v(6425))/2d0
v(16942)=(-(v(12223)*v(6415))-v(12529)*v(6417)-v(12835)*v(6418)+v(12025)*v(6422)+v(12331)*v(6424)+v(12637)*v(6425))/2d0
v(16943)=(-(v(12208)*v(6415))-v(12514)*v(6417)-v(12820)*v(6418)+v(12010)*v(6422)+v(12316)*v(6424)+v(12622)*v(6425))/2d0
v(16945)=(v(12174)*v(6415)+v(12480)*v(6417)+v(12786)*v(6418)-v(12075)*v(6426)-v(12381)*v(6427)-v(12687)*v(6428))/2d0
v(16946)=(v(12163)*v(6415)+v(12469)*v(6417)+v(12775)*v(6418)-v(12064)*v(6426)-v(12370)*v(6427)-v(12676)*v(6428))/2d0
v(16947)=(v(12151)*v(6415)+v(12457)*v(6417)+v(12763)*v(6418)-v(12052)*v(6426)-v(12358)*v(6427)-v(12664)*v(6428))/2d0
v(16951)=(v(12138)*v(6415)+v(12444)*v(6417)+v(12750)*v(6418)-v(12039)*v(6426)-v(12345)*v(6427)-v(12651)*v(6428))/2d0
v(16952)=(v(12124)*v(6415)+v(12430)*v(6417)+v(12736)*v(6418)-v(12025)*v(6426)-v(12331)*v(6427)-v(12637)*v(6428))/2d0
v(16953)=(v(12109)*v(6415)+v(12415)*v(6417)+v(12721)*v(6418)-v(12010)*v(6426)-v(12316)*v(6427)-v(12622)*v(6428))/2d0
v(16955)=v(6447)*v(9349)+v(6445)*v(9481)+v(6443)*v(9703)+v(9714)+v(9937)
v(16956)=v(6447)*v(9340)+v(6445)*v(9473)+v(6443)*v(9696)+v(9872)+v(9938)
v(16957)=v(6447)*v(9330)+v(6445)*v(9464)+v(6443)*v(9662)+v(9936)+v(9939)
v(16958)=v(6447)*v(9319)+v(6445)*v(9454)+v(6443)*v(9653)+v(9722)+v(9940)
v(16959)=v(6447)*v(9297)+v(6445)*v(9433)+v(6443)*v(9645)+v(9857)+v(9941)
v(16960)=v(6447)*v(9276)+v(6445)*v(9424)+v(6443)*v(9607)+v(9927)+v(9942)
v(16962)=v(6447)*v(9271)+v(6445)*v(9416)+v(6443)*v(9571)+v(9580)+v(9953)
v(16963)=v(6447)*v(9273)+v(6445)*v(9407)+v(6443)*v(9557)+v(9907)+v(9954)
v(16964)=v(6447)*v(9260)+v(6445)*v(9389)+v(6443)*v(9512)+v(9952)+v(9955)
v(16965)=v(6447)*v(9145)+v(9154)+v(6445)*v(9201)+v(6443)*v(9217)+v(9588)
v(16966)=v(6447)*v(9135)+v(6445)*v(9190)+v(6443)*v(9201)+v(9893)+v(9912)
v(16967)=v(6447)*v(9123)+v(6445)*v(9135)+v(6443)*v(9145)+v(9945)+v(9956)
v(16969)=(-(v(13654)*v(6422))-v(13960)*v(6424)-v(14266)*v(6425)+v(13753)*v(6426)+v(14059)*v(6427)+v(14365)*v(6428))/2d0
v(16970)=(-(v(13643)*v(6422))-v(13949)*v(6424)-v(14255)*v(6425)+v(13742)*v(6426)+v(14048)*v(6427)+v(14354)*v(6428))/2d0
v(16971)=(-(v(13631)*v(6422))-v(13937)*v(6424)-v(14243)*v(6425)+v(13730)*v(6426)+v(14036)*v(6427)+v(14342)*v(6428))/2d0
v(16972)=(-(v(13618)*v(6422))-v(13924)*v(6424)-v(14230)*v(6425)+v(13717)*v(6426)+v(14023)*v(6427)+v(14329)*v(6428))/2d0
v(16973)=(-(v(13604)*v(6422))-v(13910)*v(6424)-v(14216)*v(6425)+v(13703)*v(6426)+v(14009)*v(6427)+v(14315)*v(6428))/2d0
v(16974)=(-(v(13589)*v(6422))-v(13895)*v(6424)-v(14201)*v(6425)+v(13688)*v(6426)+v(13994)*v(6427)+v(14300)*v(6428))/2d0
v(16979)=(-(v(13753)*v(6415))-v(14059)*v(6417)-v(14365)*v(6418)+v(13555)*v(6422)+v(13861)*v(6424)+v(14167)*v(6425))/2d0
v(16980)=(-(v(13742)*v(6415))-v(14048)*v(6417)-v(14354)*v(6418)+v(13544)*v(6422)+v(13850)*v(6424)+v(14156)*v(6425))/2d0
v(16981)=(-(v(13730)*v(6415))-v(14036)*v(6417)-v(14342)*v(6418)+v(13532)*v(6422)+v(13838)*v(6424)+v(14144)*v(6425))/2d0
v(16982)=(-(v(13717)*v(6415))-v(14023)*v(6417)-v(14329)*v(6418)+v(13519)*v(6422)+v(13825)*v(6424)+v(14131)*v(6425))/2d0
v(16983)=(-(v(13703)*v(6415))-v(14009)*v(6417)-v(14315)*v(6418)+v(13505)*v(6422)+v(13811)*v(6424)+v(14117)*v(6425))/2d0
v(16984)=(-(v(13688)*v(6415))-v(13994)*v(6417)-v(14300)*v(6418)+v(13490)*v(6422)+v(13796)*v(6424)+v(14102)*v(6425))/2d0
v(16989)=(v(13654)*v(6415)+v(13960)*v(6417)+v(14266)*v(6418)-v(13555)*v(6426)-v(13861)*v(6427)-v(14167)*v(6428))/2d0
v(16990)=(v(13643)*v(6415)+v(13949)*v(6417)+v(14255)*v(6418)-v(13544)*v(6426)-v(13850)*v(6427)-v(14156)*v(6428))/2d0
v(16991)=(v(13631)*v(6415)+v(13937)*v(6417)+v(14243)*v(6418)-v(13532)*v(6426)-v(13838)*v(6427)-v(14144)*v(6428))/2d0
v(16992)=(v(13618)*v(6415)+v(13924)*v(6417)+v(14230)*v(6418)-v(13519)*v(6426)-v(13825)*v(6427)-v(14131)*v(6428))/2d0
v(16993)=(v(13604)*v(6415)+v(13910)*v(6417)+v(14216)*v(6418)-v(13505)*v(6426)-v(13811)*v(6427)-v(14117)*v(6428))/2d0
v(16994)=(v(13589)*v(6415)+v(13895)*v(6417)+v(14201)*v(6418)-v(13490)*v(6426)-v(13796)*v(6427)-v(14102)*v(6428))/2d0
v(17002)=(-(v(10359)*v(6422))-v(10324)*v(6424)-v(10289)*v(6425)+v(10370)*v(6426)+v(10335)*v(6427)+v(10300)*v(6428))/2d0
v(17003)=(-(v(10236)*v(6422))-v(10197)*v(6424)-v(10158)*v(6425)+v(10248)*v(6426)+v(10209)*v(6427)+v(10170)*v(6428))/2d0
v(17014)=(-(v(10370)*v(6415))-v(10335)*v(6417)-v(10300)*v(6418)+v(10348)*v(6422)+v(10313)*v(6424)+v(10278)*v(6425))/2d0
v(17015)=(-(v(10248)*v(6415))-v(10209)*v(6417)-v(10170)*v(6418)+v(10224)*v(6422)+v(10185)*v(6424)+v(10146)*v(6425))/2d0
v(17026)=(v(10359)*v(6415)+v(10324)*v(6417)+v(10289)*v(6418)-v(10348)*v(6426)-v(10313)*v(6427)-v(10278)*v(6428))/2d0
v(17027)=(v(10236)*v(6415)+v(10197)*v(6417)+v(10158)*v(6418)-v(10224)*v(6426)-v(10185)*v(6427)-v(10146)*v(6428))/2d0
v(17038)=(-(v(10237)*v(6422))-v(10198)*v(6424)-v(10159)*v(6425)+v(10249)*v(6426)+v(10210)*v(6427)+v(10171)*v(6428))/2d0
v(17049)=(-(v(10249)*v(6415))-v(10210)*v(6417)-v(10171)*v(6418)+v(10225)*v(6422)+v(10186)*v(6424)+v(10147)*v(6425))/2d0
v(17060)=(v(10237)*v(6415)+v(10198)*v(6417)+v(10159)*v(6418)-v(10225)*v(6426)-v(10186)*v(6427)-v(10147)*v(6428))/2d0
v(17098)=v(18053)+v(6446)*v(9341)+v(6444)*v(9474)+v(6442)*v(9697)
v(17099)=v(18054)+v(6446)*v(9331)+v(6444)*v(9465)+v(6442)*v(9663)
v(17100)=v(6446)*v(9320)+v(6444)*v(9455)+v(6442)*v(9654)+v(9749)+v(9758)
v(17101)=v(6446)*v(9298)+v(6444)*v(9434)+v(6442)*v(9646)+v(9764)+v(9873)
v(17102)=v(6446)*v(9277)+v(6444)*v(9425)+v(6442)*v(9608)+v(9617)+v(9937)
v(17104)=v(18055)+v(6446)*v(9380)+v(6444)*v(9409)+v(6442)*v(9559)
v(17105)=v(18056)+v(6446)*v(9262)+v(6444)*v(9391)+v(6442)*v(9514)
v(17106)=v(6446)*v(9147)+v(6444)*v(9203)+v(6442)*v(9219)+v(9806)+v(9815)
v(17107)=v(6446)*v(9137)+v(6444)*v(9192)+v(6442)*v(9203)+v(9821)+v(9908)
v(17108)=v(6446)*v(9125)+v(6444)*v(9137)+v(6442)*v(9147)+v(9154)+v(9953)
v(17113)=(-(v(10690)*v(6422))-v(10996)*v(6424)-v(11302)*v(6425)+v(10789)*v(6426)+v(11095)*v(6427)+v(11401)*v(6428))/2d0
v(17114)=(-(v(10678)*v(6422))-v(10984)*v(6424)-v(11290)*v(6425)+v(10777)*v(6426)+v(11083)*v(6427)+v(11389)*v(6428))/2d0
v(17115)=(-(v(10665)*v(6422))-v(10971)*v(6424)-v(11277)*v(6425)+v(10764)*v(6426)+v(11070)*v(6427)+v(11376)*v(6428))/2d0
v(17116)=(-(v(10651)*v(6422))-v(10957)*v(6424)-v(11263)*v(6425)+v(10750)*v(6426)+v(11056)*v(6427)+v(11362)*v(6428))/2d0
v(17117)=(-(v(10636)*v(6422))-v(10942)*v(6424)-v(11248)*v(6425)+v(10735)*v(6426)+v(11041)*v(6427)+v(11347)*v(6428))/2d0
v(17122)=(-(v(10789)*v(6415))-v(11095)*v(6417)-v(11401)*v(6418)+v(10591)*v(6422)+v(10897)*v(6424)+v(11203)*v(6425))/2d0
v(17123)=(-(v(10777)*v(6415))-v(11083)*v(6417)-v(11389)*v(6418)+v(10579)*v(6422)+v(10885)*v(6424)+v(11191)*v(6425))/2d0
v(17124)=(-(v(10764)*v(6415))-v(11070)*v(6417)-v(11376)*v(6418)+v(10566)*v(6422)+v(10872)*v(6424)+v(11178)*v(6425))/2d0
v(17125)=(-(v(10750)*v(6415))-v(11056)*v(6417)-v(11362)*v(6418)+v(10552)*v(6422)+v(10858)*v(6424)+v(11164)*v(6425))/2d0
v(17126)=(-(v(10735)*v(6415))-v(11041)*v(6417)-v(11347)*v(6418)+v(10537)*v(6422)+v(10843)*v(6424)+v(11149)*v(6425))/2d0
v(17131)=(v(10690)*v(6415)+v(10996)*v(6417)+v(11302)*v(6418)-v(10591)*v(6426)-v(10897)*v(6427)-v(11203)*v(6428))/2d0
v(17132)=(v(10678)*v(6415)+v(10984)*v(6417)+v(11290)*v(6418)-v(10579)*v(6426)-v(10885)*v(6427)-v(11191)*v(6428))/2d0
v(17133)=(v(10665)*v(6415)+v(10971)*v(6417)+v(11277)*v(6418)-v(10566)*v(6426)-v(10872)*v(6427)-v(11178)*v(6428))/2d0
v(17134)=(v(10651)*v(6415)+v(10957)*v(6417)+v(11263)*v(6418)-v(10552)*v(6426)-v(10858)*v(6427)-v(11164)*v(6428))/2d0
v(17135)=(v(10636)*v(6415)+v(10942)*v(6417)+v(11248)*v(6418)-v(10537)*v(6426)-v(10843)*v(6427)-v(11149)*v(6428))/2d0
v(17137)=v(6608)*v(9341)+v(6604)*v(9474)+v(6600)*v(9697)+v(9744)+v(9858)
v(17138)=v(6608)*v(9331)+v(6604)*v(9465)+v(6600)*v(9663)+v(9679)+v(9928)
v(17139)=v(6608)*v(9320)+v(6604)*v(9455)+v(6600)*v(9654)+v(9745)+v(9758)
v(17140)=v(6608)*v(9298)+v(6604)*v(9434)+v(6600)*v(9646)+v(9746)+v(9873)
v(17141)=v(6608)*v(9277)+v(6604)*v(9425)+v(6600)*v(9608)+v(9627)+v(9937)
v(17143)=v(6608)*v(9380)+v(6604)*v(9409)+v(6600)*v(9559)+v(9801)+v(9894)
v(17144)=v(6608)*v(9262)+v(6604)*v(9391)+v(6600)*v(9514)+v(9529)+v(9946)
v(17145)=v(6608)*v(9147)+v(6604)*v(9203)+v(6600)*v(9219)+v(9802)+v(9815)
v(17146)=v(6608)*v(9137)+v(6604)*v(9192)+v(6600)*v(9203)+v(9803)+v(9908)
v(17147)=v(6608)*v(9125)+v(6604)*v(9137)+v(6600)*v(9147)+v(9164)+v(9953)
v(17149)=(-(v(12164)*v(6422))-v(12470)*v(6424)-v(12776)*v(6425)+v(12263)*v(6426)+v(12569)*v(6427)+v(12875)*v(6428))/2d0
v(17150)=(-(v(12152)*v(6422))-v(12458)*v(6424)-v(12764)*v(6425)+v(12251)*v(6426)+v(12557)*v(6427)+v(12863)*v(6428))/2d0
v(17154)=(-(v(12139)*v(6422))-v(12445)*v(6424)-v(12751)*v(6425)+v(12238)*v(6426)+v(12544)*v(6427)+v(12850)*v(6428))/2d0
v(17155)=(-(v(12125)*v(6422))-v(12431)*v(6424)-v(12737)*v(6425)+v(12224)*v(6426)+v(12530)*v(6427)+v(12836)*v(6428))/2d0
v(17156)=(-(v(12110)*v(6422))-v(12416)*v(6424)-v(12722)*v(6425)+v(12209)*v(6426)+v(12515)*v(6427)+v(12821)*v(6428))/2d0
v(17158)=(-(v(12263)*v(6415))-v(12569)*v(6417)-v(12875)*v(6418)+v(12065)*v(6422)+v(12371)*v(6424)+v(12677)*v(6425))/2d0
v(17159)=(-(v(12251)*v(6415))-v(12557)*v(6417)-v(12863)*v(6418)+v(12053)*v(6422)+v(12359)*v(6424)+v(12665)*v(6425))/2d0
v(17163)=(-(v(12238)*v(6415))-v(12544)*v(6417)-v(12850)*v(6418)+v(12040)*v(6422)+v(12346)*v(6424)+v(12652)*v(6425))/2d0
v(17164)=(-(v(12224)*v(6415))-v(12530)*v(6417)-v(12836)*v(6418)+v(12026)*v(6422)+v(12332)*v(6424)+v(12638)*v(6425))/2d0
v(17165)=(-(v(12209)*v(6415))-v(12515)*v(6417)-v(12821)*v(6418)+v(12011)*v(6422)+v(12317)*v(6424)+v(12623)*v(6425))/2d0
v(17167)=(v(12164)*v(6415)+v(12470)*v(6417)+v(12776)*v(6418)-v(12065)*v(6426)-v(12371)*v(6427)-v(12677)*v(6428))/2d0
v(17168)=(v(12152)*v(6415)+v(12458)*v(6417)+v(12764)*v(6418)-v(12053)*v(6426)-v(12359)*v(6427)-v(12665)*v(6428))/2d0
v(17172)=(v(12139)*v(6415)+v(12445)*v(6417)+v(12751)*v(6418)-v(12040)*v(6426)-v(12346)*v(6427)-v(12652)*v(6428))/2d0
v(17173)=(v(12125)*v(6415)+v(12431)*v(6417)+v(12737)*v(6418)-v(12026)*v(6426)-v(12332)*v(6427)-v(12638)*v(6428))/2d0
v(17174)=(v(12110)*v(6415)+v(12416)*v(6417)+v(12722)*v(6418)-v(12011)*v(6426)-v(12317)*v(6427)-v(12623)*v(6428))/2d0
v(17176)=v(18053)+v(6447)*v(9341)+v(6445)*v(9474)+v(6443)*v(9697)
v(17177)=v(18054)+v(6447)*v(9331)+v(6445)*v(9465)+v(6443)*v(9663)
v(17178)=v(6447)*v(9320)+v(6445)*v(9455)+v(6443)*v(9654)+v(9743)+v(9749)
v(17179)=v(6447)*v(9298)+v(6445)*v(9434)+v(6443)*v(9646)+v(9764)+v(9858)
v(17180)=v(6447)*v(9277)+v(6445)*v(9425)+v(6443)*v(9608)+v(9617)+v(9928)
v(17182)=v(18055)+v(6447)*v(9380)+v(6445)*v(9409)+v(6443)*v(9559)
v(17183)=v(18056)+v(6447)*v(9262)+v(6445)*v(9391)+v(6443)*v(9514)
v(17184)=v(6447)*v(9147)+v(6445)*v(9203)+v(6443)*v(9219)+v(9800)+v(9806)
v(17185)=v(6447)*v(9137)+v(6445)*v(9192)+v(6443)*v(9203)+v(9821)+v(9894)
v(17186)=v(6447)*v(9125)+v(6445)*v(9137)+v(6443)*v(9147)+v(9154)+v(9946)
v(17188)=(-(v(13644)*v(6422))-v(13950)*v(6424)-v(14256)*v(6425)+v(13743)*v(6426)+v(14049)*v(6427)+v(14355)*v(6428))/2d0
v(17189)=(-(v(13632)*v(6422))-v(13938)*v(6424)-v(14244)*v(6425)+v(13731)*v(6426)+v(14037)*v(6427)+v(14343)*v(6428))/2d0
v(17190)=(-(v(13619)*v(6422))-v(13925)*v(6424)-v(14231)*v(6425)+v(13718)*v(6426)+v(14024)*v(6427)+v(14330)*v(6428))/2d0
v(17191)=(-(v(13605)*v(6422))-v(13911)*v(6424)-v(14217)*v(6425)+v(13704)*v(6426)+v(14010)*v(6427)+v(14316)*v(6428))/2d0
v(17192)=(-(v(13590)*v(6422))-v(13896)*v(6424)-v(14202)*v(6425)+v(13689)*v(6426)+v(13995)*v(6427)+v(14301)*v(6428))/2d0
v(17197)=(-(v(13743)*v(6415))-v(14049)*v(6417)-v(14355)*v(6418)+v(13545)*v(6422)+v(13851)*v(6424)+v(14157)*v(6425))/2d0
v(17198)=(-(v(13731)*v(6415))-v(14037)*v(6417)-v(14343)*v(6418)+v(13533)*v(6422)+v(13839)*v(6424)+v(14145)*v(6425))/2d0
v(17199)=(-(v(13718)*v(6415))-v(14024)*v(6417)-v(14330)*v(6418)+v(13520)*v(6422)+v(13826)*v(6424)+v(14132)*v(6425))/2d0
v(17200)=(-(v(13704)*v(6415))-v(14010)*v(6417)-v(14316)*v(6418)+v(13506)*v(6422)+v(13812)*v(6424)+v(14118)*v(6425))/2d0
v(17201)=(-(v(13689)*v(6415))-v(13995)*v(6417)-v(14301)*v(6418)+v(13491)*v(6422)+v(13797)*v(6424)+v(14103)*v(6425))/2d0
v(17206)=(v(13644)*v(6415)+v(13950)*v(6417)+v(14256)*v(6418)-v(13545)*v(6426)-v(13851)*v(6427)-v(14157)*v(6428))/2d0
v(17207)=(v(13632)*v(6415)+v(13938)*v(6417)+v(14244)*v(6418)-v(13533)*v(6426)-v(13839)*v(6427)-v(14145)*v(6428))/2d0
v(17208)=(v(13619)*v(6415)+v(13925)*v(6417)+v(14231)*v(6418)-v(13520)*v(6426)-v(13826)*v(6427)-v(14132)*v(6428))/2d0
v(17209)=(v(13605)*v(6415)+v(13911)*v(6417)+v(14217)*v(6418)-v(13506)*v(6426)-v(13812)*v(6427)-v(14118)*v(6428))/2d0
v(17210)=(v(13590)*v(6415)+v(13896)*v(6417)+v(14202)*v(6418)-v(13491)*v(6426)-v(13797)*v(6427)-v(14103)*v(6428))/2d0
v(17215)=v(18057)+v(6446)*v(9332)+v(6444)*v(9466)+v(6442)*v(9664)
v(17216)=v(6446)*v(9321)+v(6444)*v(9456)+v(6442)*v(9655)+v(9763)+v(9876)
v(17217)=v(6446)*v(9299)+v(6444)*v(9435)+v(6442)*v(9647)+v(9874)+v(9877)
v(17218)=v(6446)*v(9278)+v(6444)*v(9426)+v(6442)*v(9609)+v(9878)+v(9938)
v(17220)=v(18058)+v(6446)*v(9264)+v(6444)*v(9393)+v(6442)*v(9515)
v(17221)=v(6446)*v(9148)+v(6444)*v(9204)+v(6442)*v(9221)+v(9820)+v(9821)
v(17222)=v(6446)*v(9139)+v(6444)*v(9194)+v(6442)*v(9204)+v(9909)+v(9911)
v(17223)=v(6446)*v(9127)+v(6444)*v(9139)+v(6442)*v(9148)+v(9912)+v(9954)
v(17228)=(-(v(10679)*v(6422))-v(10985)*v(6424)-v(11291)*v(6425)+v(10778)*v(6426)+v(11084)*v(6427)+v(11390)*v(6428))/2d0
v(17229)=(-(v(10666)*v(6422))-v(10972)*v(6424)-v(11278)*v(6425)+v(10765)*v(6426)+v(11071)*v(6427)+v(11377)*v(6428))/2d0
v(17230)=(-(v(10652)*v(6422))-v(10958)*v(6424)-v(11264)*v(6425)+v(10751)*v(6426)+v(11057)*v(6427)+v(11363)*v(6428))/2d0
v(17231)=(-(v(10637)*v(6422))-v(10943)*v(6424)-v(11249)*v(6425)+v(10736)*v(6426)+v(11042)*v(6427)+v(11348)*v(6428))/2d0
v(17236)=(-(v(10778)*v(6415))-v(11084)*v(6417)-v(11390)*v(6418)+v(10580)*v(6422)+v(10886)*v(6424)+v(11192)*v(6425))/2d0
v(17237)=(-(v(10765)*v(6415))-v(11071)*v(6417)-v(11377)*v(6418)+v(10567)*v(6422)+v(10873)*v(6424)+v(11179)*v(6425))/2d0
v(17238)=(-(v(10751)*v(6415))-v(11057)*v(6417)-v(11363)*v(6418)+v(10553)*v(6422)+v(10859)*v(6424)+v(11165)*v(6425))/2d0
v(17239)=(-(v(10736)*v(6415))-v(11042)*v(6417)-v(11348)*v(6418)+v(10538)*v(6422)+v(10844)*v(6424)+v(11150)*v(6425))/2d0
v(17244)=(v(10679)*v(6415)+v(10985)*v(6417)+v(11291)*v(6418)-v(10580)*v(6426)-v(10886)*v(6427)-v(11192)*v(6428))/2d0
v(17245)=(v(10666)*v(6415)+v(10972)*v(6417)+v(11278)*v(6418)-v(10567)*v(6426)-v(10873)*v(6427)-v(11179)*v(6428))/2d0
v(17246)=(v(10652)*v(6415)+v(10958)*v(6417)+v(11264)*v(6418)-v(10553)*v(6426)-v(10859)*v(6427)-v(11165)*v(6428))/2d0
v(17247)=(v(10637)*v(6415)+v(10943)*v(6417)+v(11249)*v(6418)-v(10538)*v(6426)-v(10844)*v(6427)-v(11150)*v(6428))/2d0
v(17249)=v(6608)*v(9332)+v(6604)*v(9466)+v(6600)*v(9664)+v(9860)+v(9929)
v(17250)=v(6608)*v(9321)+v(6604)*v(9456)+v(6600)*v(9655)+v(9763)+v(9861)
v(17251)=v(6608)*v(9299)+v(6604)*v(9435)+v(6600)*v(9647)+v(9862)+v(9874)
v(17252)=v(6608)*v(9278)+v(6604)*v(9426)+v(6600)*v(9609)+v(9863)+v(9938)
v(17254)=v(6608)*v(9264)+v(6604)*v(9393)+v(6600)*v(9515)+v(9896)+v(9947)
v(17255)=v(6608)*v(9148)+v(6604)*v(9204)+v(6600)*v(9221)+v(9803)+v(9820)
v(17256)=v(6608)*v(9139)+v(6604)*v(9194)+v(6600)*v(9204)+v(9897)+v(9909)
v(17257)=v(6608)*v(9127)+v(6604)*v(9139)+v(6600)*v(9148)+v(9898)+v(9954)
v(17259)=(-(v(12153)*v(6422))-v(12459)*v(6424)-v(12765)*v(6425)+v(12252)*v(6426)+v(12558)*v(6427)+v(12864)*v(6428))/2d0
v(17263)=(-(v(12140)*v(6422))-v(12446)*v(6424)-v(12752)*v(6425)+v(12239)*v(6426)+v(12545)*v(6427)+v(12851)*v(6428))/2d0
v(17264)=(-(v(12126)*v(6422))-v(12432)*v(6424)-v(12738)*v(6425)+v(12225)*v(6426)+v(12531)*v(6427)+v(12837)*v(6428))/2d0
v(17265)=(-(v(12111)*v(6422))-v(12417)*v(6424)-v(12723)*v(6425)+v(12210)*v(6426)+v(12516)*v(6427)+v(12822)*v(6428))/2d0
v(17267)=(-(v(12252)*v(6415))-v(12558)*v(6417)-v(12864)*v(6418)+v(12054)*v(6422)+v(12360)*v(6424)+v(12666)*v(6425))/2d0
v(17271)=(-(v(12239)*v(6415))-v(12545)*v(6417)-v(12851)*v(6418)+v(12041)*v(6422)+v(12347)*v(6424)+v(12653)*v(6425))/2d0
v(17272)=(-(v(12225)*v(6415))-v(12531)*v(6417)-v(12837)*v(6418)+v(12027)*v(6422)+v(12333)*v(6424)+v(12639)*v(6425))/2d0
v(17273)=(-(v(12210)*v(6415))-v(12516)*v(6417)-v(12822)*v(6418)+v(12012)*v(6422)+v(12318)*v(6424)+v(12624)*v(6425))/2d0
v(17275)=(v(12153)*v(6415)+v(12459)*v(6417)+v(12765)*v(6418)-v(12054)*v(6426)-v(12360)*v(6427)-v(12666)*v(6428))/2d0
v(17279)=(v(12140)*v(6415)+v(12446)*v(6417)+v(12752)*v(6418)-v(12041)*v(6426)-v(12347)*v(6427)-v(12653)*v(6428))/2d0
v(17280)=(v(12126)*v(6415)+v(12432)*v(6417)+v(12738)*v(6418)-v(12027)*v(6426)-v(12333)*v(6427)-v(12639)*v(6428))/2d0
v(17281)=(v(12111)*v(6415)+v(12417)*v(6417)+v(12723)*v(6418)-v(12012)*v(6426)-v(12318)*v(6427)-v(12624)*v(6428))/2d0
v(17283)=v(18057)+v(6447)*v(9332)+v(6445)*v(9466)+v(6443)*v(9664)
v(17284)=v(6447)*v(9321)+v(6445)*v(9456)+v(6443)*v(9655)+v(9744)+v(9876)
v(17285)=v(6447)*v(9299)+v(6445)*v(9435)+v(6443)*v(9647)+v(9859)+v(9877)
v(17286)=v(6447)*v(9278)+v(6445)*v(9426)+v(6443)*v(9609)+v(9878)+v(9929)
v(17288)=v(18058)+v(6447)*v(9264)+v(6445)*v(9393)+v(6443)*v(9515)
v(17289)=v(6447)*v(9148)+v(6445)*v(9204)+v(6443)*v(9221)+v(9801)+v(9821)
v(17290)=v(6447)*v(9139)+v(6445)*v(9194)+v(6443)*v(9204)+v(9895)+v(9911)
v(17291)=v(6447)*v(9127)+v(6445)*v(9139)+v(6443)*v(9148)+v(9912)+v(9947)
v(17293)=(-(v(13633)*v(6422))-v(13939)*v(6424)-v(14245)*v(6425)+v(13732)*v(6426)+v(14038)*v(6427)+v(14344)*v(6428))/2d0
v(17294)=(-(v(13620)*v(6422))-v(13926)*v(6424)-v(14232)*v(6425)+v(13719)*v(6426)+v(14025)*v(6427)+v(14331)*v(6428))/2d0
v(17295)=(-(v(13606)*v(6422))-v(13912)*v(6424)-v(14218)*v(6425)+v(13705)*v(6426)+v(14011)*v(6427)+v(14317)*v(6428))/2d0
v(17296)=(-(v(13591)*v(6422))-v(13897)*v(6424)-v(14203)*v(6425)+v(13690)*v(6426)+v(13996)*v(6427)+v(14302)*v(6428))/2d0
v(17301)=(-(v(13732)*v(6415))-v(14038)*v(6417)-v(14344)*v(6418)+v(13534)*v(6422)+v(13840)*v(6424)+v(14146)*v(6425))/2d0
v(17302)=(-(v(13719)*v(6415))-v(14025)*v(6417)-v(14331)*v(6418)+v(13521)*v(6422)+v(13827)*v(6424)+v(14133)*v(6425))/2d0
v(17303)=(-(v(13705)*v(6415))-v(14011)*v(6417)-v(14317)*v(6418)+v(13507)*v(6422)+v(13813)*v(6424)+v(14119)*v(6425))/2d0
v(17304)=(-(v(13690)*v(6415))-v(13996)*v(6417)-v(14302)*v(6418)+v(13492)*v(6422)+v(13798)*v(6424)+v(14104)*v(6425))/2d0
v(17309)=(v(13633)*v(6415)+v(13939)*v(6417)+v(14245)*v(6418)-v(13534)*v(6426)-v(13840)*v(6427)-v(14146)*v(6428))/2d0
v(17310)=(v(13620)*v(6415)+v(13926)*v(6417)+v(14232)*v(6418)-v(13521)*v(6426)-v(13827)*v(6427)-v(14133)*v(6428))/2d0
v(17311)=(v(13606)*v(6415)+v(13912)*v(6417)+v(14218)*v(6418)-v(13507)*v(6426)-v(13813)*v(6427)-v(14119)*v(6428))/2d0
v(17312)=(v(13591)*v(6415)+v(13897)*v(6417)+v(14203)*v(6418)-v(13492)*v(6426)-v(13798)*v(6427)-v(14104)*v(6428))/2d0
v(17317)=v(6446)*v(9322)+v(6444)*v(9457)+v(6442)*v(9656)+v(9670)+v(9940)
v(17318)=v(6446)*v(9300)+v(6444)*v(9436)+v(6442)*v(9648)+v(9875)+v(9941)
v(17319)=v(6446)*v(9279)+v(6444)*v(9427)+v(6442)*v(9610)+v(9939)+v(9942)
v(17321)=v(6446)*v(9149)+v(9154)+v(6444)*v(9206)+v(6442)*v(9223)+v(9520)
v(17322)=v(6446)*v(9140)+v(6444)*v(9196)+v(6442)*v(9206)+v(9910)+v(9912)
v(17323)=v(6446)*v(9129)+v(6444)*v(9140)+v(6442)*v(9149)+v(9955)+v(9956)
v(17328)=(-(v(10667)*v(6422))-v(10973)*v(6424)-v(11279)*v(6425)+v(10766)*v(6426)+v(11072)*v(6427)+v(11378)*v(6428))/2d0
v(17329)=(-(v(10653)*v(6422))-v(10959)*v(6424)-v(11265)*v(6425)+v(10752)*v(6426)+v(11058)*v(6427)+v(11364)*v(6428))/2d0
v(17330)=(-(v(10638)*v(6422))-v(10944)*v(6424)-v(11250)*v(6425)+v(10737)*v(6426)+v(11043)*v(6427)+v(11349)*v(6428))/2d0
v(17335)=(-(v(10766)*v(6415))-v(11072)*v(6417)-v(11378)*v(6418)+v(10568)*v(6422)+v(10874)*v(6424)+v(11180)*v(6425))/2d0
v(17336)=(-(v(10752)*v(6415))-v(11058)*v(6417)-v(11364)*v(6418)+v(10554)*v(6422)+v(10860)*v(6424)+v(11166)*v(6425))/2d0
v(17337)=(-(v(10737)*v(6415))-v(11043)*v(6417)-v(11349)*v(6418)+v(10539)*v(6422)+v(10845)*v(6424)+v(11151)*v(6425))/2d0
v(17342)=(v(10667)*v(6415)+v(10973)*v(6417)+v(11279)*v(6418)-v(10568)*v(6426)-v(10874)*v(6427)-v(11180)*v(6428))/2d0
v(17343)=(v(10653)*v(6415)+v(10959)*v(6417)+v(11265)*v(6418)-v(10554)*v(6426)-v(10860)*v(6427)-v(11166)*v(6428))/2d0
v(17344)=(v(10638)*v(6415)+v(10944)*v(6417)+v(11250)*v(6418)-v(10539)*v(6426)-v(10845)*v(6427)-v(11151)*v(6428))/2d0
v(17347)=v(6608)*v(9322)+v(6604)*v(9457)+v(6600)*v(9656)+v(9670)+v(9931)
v(17348)=v(6608)*v(9300)+v(6604)*v(9436)+v(6600)*v(9648)+v(9875)+v(9932)
v(17349)=v(6608)*v(9279)+v(6604)*v(9427)+v(6600)*v(9610)+v(9933)+v(9939)
v(17352)=v(6608)*v(9149)+v(9164)+v(6604)*v(9206)+v(6600)*v(9223)+v(9520)
v(17353)=v(6608)*v(9140)+v(6604)*v(9196)+v(6600)*v(9206)+v(9898)+v(9910)
v(17354)=v(6608)*v(9129)+v(6604)*v(9140)+v(6600)*v(9149)+v(9949)+v(9955)
v(17359)=(-(v(12141)*v(6422))-v(12447)*v(6424)-v(12753)*v(6425)+v(12240)*v(6426)+v(12546)*v(6427)+v(12852)*v(6428))/2d0
v(17360)=(-(v(12127)*v(6422))-v(12433)*v(6424)-v(12739)*v(6425)+v(12226)*v(6426)+v(12532)*v(6427)+v(12838)*v(6428))/2d0
v(17361)=(-(v(12112)*v(6422))-v(12418)*v(6424)-v(12724)*v(6425)+v(12211)*v(6426)+v(12517)*v(6427)+v(12823)*v(6428))/2d0
v(17366)=(-(v(12240)*v(6415))-v(12546)*v(6417)-v(12852)*v(6418)+v(12042)*v(6422)+v(12348)*v(6424)+v(12654)*v(6425))/2d0
v(17367)=(-(v(12226)*v(6415))-v(12532)*v(6417)-v(12838)*v(6418)+v(12028)*v(6422)+v(12334)*v(6424)+v(12640)*v(6425))/2d0
v(17368)=(-(v(12211)*v(6415))-v(12517)*v(6417)-v(12823)*v(6418)+v(12013)*v(6422)+v(12319)*v(6424)+v(12625)*v(6425))/2d0
v(17373)=(v(12141)*v(6415)+v(12447)*v(6417)+v(12753)*v(6418)-v(12042)*v(6426)-v(12348)*v(6427)-v(12654)*v(6428))/2d0
v(17374)=(v(12127)*v(6415)+v(12433)*v(6417)+v(12739)*v(6418)-v(12028)*v(6426)-v(12334)*v(6427)-v(12640)*v(6428))/2d0
v(17375)=(v(12112)*v(6415)+v(12418)*v(6417)+v(12724)*v(6418)-v(12013)*v(6426)-v(12319)*v(6427)-v(12625)*v(6428))/2d0
v(17377)=v(6447)*v(9322)+v(6445)*v(9457)+v(6443)*v(9656)+v(9679)+v(9940)
v(17378)=v(6447)*v(9300)+v(6445)*v(9436)+v(6443)*v(9648)+v(9860)+v(9941)
v(17379)=v(6447)*v(9279)+v(6445)*v(9427)+v(6443)*v(9610)+v(9930)+v(9942)
v(17381)=v(6447)*v(9149)+v(9154)+v(6445)*v(9206)+v(6443)*v(9223)+v(9529)
v(17382)=v(6447)*v(9140)+v(6445)*v(9196)+v(6443)*v(9206)+v(9896)+v(9912)
v(17383)=v(6447)*v(9129)+v(6445)*v(9140)+v(6443)*v(9149)+v(9948)+v(9956)
v(17385)=(-(v(13621)*v(6422))-v(13927)*v(6424)-v(14233)*v(6425)+v(13720)*v(6426)+v(14026)*v(6427)+v(14332)*v(6428))/2d0
v(17386)=(-(v(13607)*v(6422))-v(13913)*v(6424)-v(14219)*v(6425)+v(13706)*v(6426)+v(14012)*v(6427)+v(14318)*v(6428))/2d0
v(17387)=(-(v(13592)*v(6422))-v(13898)*v(6424)-v(14204)*v(6425)+v(13691)*v(6426)+v(13997)*v(6427)+v(14303)*v(6428))/2d0
v(17392)=(-(v(13720)*v(6415))-v(14026)*v(6417)-v(14332)*v(6418)+v(13522)*v(6422)+v(13828)*v(6424)+v(14134)*v(6425))/2d0
v(17393)=(-(v(13706)*v(6415))-v(14012)*v(6417)-v(14318)*v(6418)+v(13508)*v(6422)+v(13814)*v(6424)+v(14120)*v(6425))/2d0
v(17394)=(-(v(13691)*v(6415))-v(13997)*v(6417)-v(14303)*v(6418)+v(13493)*v(6422)+v(13799)*v(6424)+v(14105)*v(6425))/2d0
v(17399)=(v(13621)*v(6415)+v(13927)*v(6417)+v(14233)*v(6418)-v(13522)*v(6426)-v(13828)*v(6427)-v(14134)*v(6428))/2d0
v(17400)=(v(13607)*v(6415)+v(13913)*v(6417)+v(14219)*v(6418)-v(13508)*v(6426)-v(13814)*v(6427)-v(14120)*v(6428))/2d0
v(17401)=(v(13592)*v(6415)+v(13898)*v(6417)+v(14204)*v(6418)-v(13493)*v(6426)-v(13799)*v(6427)-v(14105)*v(6428))/2d0
v(17412)=(-(v(11842)*v(6422))-v(11807)*v(6424)-v(11772)*v(6425)+v(11853)*v(6426)+v(11818)*v(6427)+v(11783)*v(6428))/2d0
v(17413)=(-(v(11719)*v(6422))-v(11680)*v(6424)-v(11641)*v(6425)+v(11731)*v(6426)+v(11692)*v(6427)+v(11653)*v(6428))/2d0
v(17424)=(-(v(11853)*v(6415))-v(11818)*v(6417)-v(11783)*v(6418)+v(11831)*v(6422)+v(11796)*v(6424)+v(11761)*v(6425))/2d0
v(17425)=(-(v(11731)*v(6415))-v(11692)*v(6417)-v(11653)*v(6418)+v(11707)*v(6422)+v(11668)*v(6424)+v(11629)*v(6425))/2d0
v(17436)=(v(11842)*v(6415)+v(11807)*v(6417)+v(11772)*v(6418)-v(11831)*v(6426)-v(11796)*v(6427)-v(11761)*v(6428))/2d0
v(17437)=(v(11719)*v(6415)+v(11680)*v(6417)+v(11641)*v(6418)-v(11707)*v(6426)-v(11668)*v(6427)-v(11629)*v(6428))/2d0
v(17448)=(-(v(11720)*v(6422))-v(11681)*v(6424)-v(11642)*v(6425)+v(11732)*v(6426)+v(11693)*v(6427)+v(11654)*v(6428))/2d0
v(17459)=(-(v(11732)*v(6415))-v(11693)*v(6417)-v(11654)*v(6418)+v(11708)*v(6422)+v(11669)*v(6424)+v(11630)*v(6425))/2d0
v(17470)=(v(11720)*v(6415)+v(11681)*v(6417)+v(11642)*v(6418)-v(11708)*v(6426)-v(11669)*v(6427)-v(11630)*v(6428))/2d0
v(17505)=v(18059)+v(6446)*v(9301)+v(6444)*v(9437)+v(6442)*v(9649)
v(17506)=v(18060)+v(6446)*v(9280)+v(6444)*v(9428)+v(6442)*v(9611)
v(17508)=v(6446)*v(9141)+v(6444)*v(9197)+v(6442)*v(9207)-v(9803)
v(17509)=v(6446)*v(9130)+v(6444)*v(9141)+v(6442)*v(9150)-v(9164)
v(17514)=(-(v(10654)*v(6422))-v(10960)*v(6424)-v(11266)*v(6425)+v(10753)*v(6426)+v(11059)*v(6427)+v(11365)*v(6428))/2d0
v(17515)=(-(v(10639)*v(6422))-v(10945)*v(6424)-v(11251)*v(6425)+v(10738)*v(6426)+v(11044)*v(6427)+v(11350)*v(6428))/2d0
v(17520)=(-(v(10753)*v(6415))-v(11059)*v(6417)-v(11365)*v(6418)+v(10555)*v(6422)+v(10861)*v(6424)+v(11167)*v(6425))/2d0
v(17521)=(-(v(10738)*v(6415))-v(11044)*v(6417)-v(11350)*v(6418)+v(10540)*v(6422)+v(10846)*v(6424)+v(11152)*v(6425))/2d0
v(17526)=(v(10654)*v(6415)+v(10960)*v(6417)+v(11266)*v(6418)-v(10555)*v(6426)-v(10861)*v(6427)-v(11167)*v(6428))/2d0
v(17527)=(v(10639)*v(6415)+v(10945)*v(6417)+v(11251)*v(6418)-v(10540)*v(6426)-v(10846)*v(6427)-v(11152)*v(6428))/2d0
v(17529)=v(18059)+v(6608)*v(9301)+v(6604)*v(9437)+v(6600)*v(9649)
v(17530)=v(18060)+v(6608)*v(9280)+v(6604)*v(9428)+v(6600)*v(9611)
v(17532)=v(6608)*v(9141)+v(6604)*v(9197)+v(6600)*v(9207)-v(9803)
v(17533)=v(6608)*v(9130)+v(6604)*v(9141)+v(6600)*v(9150)-v(9164)
v(17538)=(-(v(12134)*v(6422))-v(12440)*v(6424)-v(12746)*v(6425)+v(12233)*v(6426)+v(12539)*v(6427)+v(12845)*v(6428))/2d0
v(17539)=(-(v(12119)*v(6422))-v(12425)*v(6424)-v(12731)*v(6425)+v(12218)*v(6426)+v(12524)*v(6427)+v(12830)*v(6428))/2d0
v(17544)=(-(v(12233)*v(6415))-v(12539)*v(6417)-v(12845)*v(6418)+v(12035)*v(6422)+v(12341)*v(6424)+v(12647)*v(6425))/2d0
v(17545)=(-(v(12218)*v(6415))-v(12524)*v(6417)-v(12830)*v(6418)+v(12020)*v(6422)+v(12326)*v(6424)+v(12632)*v(6425))/2d0
v(17550)=(v(12134)*v(6415)+v(12440)*v(6417)+v(12746)*v(6418)-v(12035)*v(6426)-v(12341)*v(6427)-v(12647)*v(6428))/2d0
v(17551)=(v(12119)*v(6415)+v(12425)*v(6417)+v(12731)*v(6418)-v(12020)*v(6426)-v(12326)*v(6427)-v(12632)*v(6428))/2d0
v(17553)=v(6447)*v(9301)+v(6445)*v(9437)+v(6443)*v(9649)+v(9746)+v(9861)
v(17554)=v(6447)*v(9280)+v(6445)*v(9428)+v(6443)*v(9611)+v(9627)+v(9931)
v(17556)=v(6447)*v(9141)+v(6445)*v(9197)+v(6443)*v(9207)+2d0*v(9803)
v(17557)=v(6447)*v(9130)+v(6445)*v(9141)+v(6443)*v(9150)+2d0*v(9164)
v(17559)=(-(v(13608)*v(6422))-v(13914)*v(6424)-v(14220)*v(6425)+v(13707)*v(6426)+v(14013)*v(6427)+v(14319)*v(6428))/2d0
v(17560)=(-(v(13593)*v(6422))-v(13899)*v(6424)-v(14205)*v(6425)+v(13692)*v(6426)+v(13998)*v(6427)+v(14304)*v(6428))/2d0
v(17565)=(-(v(13707)*v(6415))-v(14013)*v(6417)-v(14319)*v(6418)+v(13509)*v(6422)+v(13815)*v(6424)+v(14121)*v(6425))/2d0
v(17566)=(-(v(13692)*v(6415))-v(13998)*v(6417)-v(14304)*v(6418)+v(13494)*v(6422)+v(13800)*v(6424)+v(14106)*v(6425))/2d0
v(17571)=(v(13608)*v(6415)+v(13914)*v(6417)+v(14220)*v(6418)-v(13509)*v(6426)-v(13815)*v(6427)-v(14121)*v(6428))/2d0
v(17572)=(v(13593)*v(6415)+v(13899)*v(6417)+v(14205)*v(6418)-v(13494)*v(6426)-v(13800)*v(6427)-v(14106)*v(6428))/2d0
v(17577)=v(18061)+v(6446)*v(9281)+v(6444)*v(9429)+v(6442)*v(9612)
v(17579)=v(6446)*v(9131)+v(6442)*v(9141)+v(6444)*v(9142)-v(9898)
v(17584)=(-(v(10640)*v(6422))-v(10946)*v(6424)-v(11252)*v(6425)+v(10739)*v(6426)+v(11045)*v(6427)+v(11351)*v(6428))/2d0
v(17589)=(-(v(10739)*v(6415))-v(11045)*v(6417)-v(11351)*v(6418)+v(10541)*v(6422)+v(10847)*v(6424)+v(11153)*v(6425))/2d0
v(17594)=(v(10640)*v(6415)+v(10946)*v(6417)+v(11252)*v(6418)-v(10541)*v(6426)-v(10847)*v(6427)-v(11153)*v(6428))/2d0
v(17596)=v(18061)+v(6608)*v(9281)+v(6604)*v(9429)+v(6600)*v(9612)
v(17598)=v(6608)*v(9131)+v(6600)*v(9141)+v(6604)*v(9142)-v(9898)
v(17603)=(-(v(12120)*v(6422))-v(12426)*v(6424)-v(12732)*v(6425)+v(12219)*v(6426)+v(12525)*v(6427)+v(12831)*v(6428))/2d0
v(17608)=(-(v(12219)*v(6415))-v(12525)*v(6417)-v(12831)*v(6418)+v(12021)*v(6422)+v(12327)*v(6424)+v(12633)*v(6425))/2d0
v(17613)=(v(12120)*v(6415)+v(12426)*v(6417)+v(12732)*v(6418)-v(12021)*v(6426)-v(12327)*v(6427)-v(12633)*v(6428))/2d0
v(17615)=v(6447)*v(9281)+v(6445)*v(9429)+v(6443)*v(9612)+v(9863)+v(9932)
v(17617)=v(6447)*v(9131)+v(6443)*v(9141)+v(6445)*v(9142)+2d0*v(9898)
v(17619)=(-(v(13594)*v(6422))-v(13900)*v(6424)-v(14206)*v(6425)+v(13693)*v(6426)+v(13999)*v(6427)+v(14305)*v(6428))/2d0
v(17624)=(-(v(13693)*v(6415))-v(13999)*v(6417)-v(14305)*v(6418)+v(13495)*v(6422)+v(13801)*v(6424)+v(14107)*v(6425))/2d0
v(17629)=(v(13594)*v(6415)+v(13900)*v(6417)+v(14206)*v(6418)-v(13495)*v(6426)-v(13801)*v(6427)-v(14107)*v(6428))/2d0
v(17687)=(-(v(13325)*v(6422))-v(13290)*v(6424)-v(13255)*v(6425)+v(13336)*v(6426)+v(13301)*v(6427)+v(13266)*v(6428))/2d0
v(17688)=(-(v(13202)*v(6422))-v(13163)*v(6424)-v(13124)*v(6425)+v(13214)*v(6426)+v(13175)*v(6427)+v(13136)*v(6428))/2d0
v(17699)=(-(v(13336)*v(6415))-v(13301)*v(6417)-v(13266)*v(6418)+v(13314)*v(6422)+v(13279)*v(6424)+v(13244)*v(6425))/2d0
v(17700)=(-(v(13214)*v(6415))-v(13175)*v(6417)-v(13136)*v(6418)+v(13190)*v(6422)+v(13151)*v(6424)+v(13112)*v(6425))/2d0
v(17711)=(v(13325)*v(6415)+v(13290)*v(6417)+v(13255)*v(6418)-v(13314)*v(6426)-v(13279)*v(6427)-v(13244)*v(6428))/2d0
v(17712)=(v(13202)*v(6415)+v(13163)*v(6417)+v(13124)*v(6418)-v(13190)*v(6426)-v(13151)*v(6427)-v(13112)*v(6428))/2d0
v(17723)=(-(v(13203)*v(6422))-v(13164)*v(6424)-v(13125)*v(6425)+v(13215)*v(6426)+v(13176)*v(6427)+v(13137)*v(6428))/2d0
v(17734)=(-(v(13215)*v(6415))-v(13176)*v(6417)-v(13137)*v(6418)+v(13191)*v(6422)+v(13152)*v(6424)+v(13113)*v(6425))/2d0
v(17745)=(v(13203)*v(6415)+v(13164)*v(6417)+v(13125)*v(6418)-v(13191)*v(6426)-v(13152)*v(6427)-v(13113)*v(6428))/2d0
xl(1)=v(6592)
xl(2)=v(6594)
xl(3)=0d0
xl(4)=v(6593)
xl(5)=v(6594)
xl(6)=0d0
xl(7)=-v(6430)
xl(8)=v(6598)
xl(9)=0d0
ri1(1,1)=v(6474)
ri1(1,2)=v(6478)
ri1(1,3)=v(6479)
ri1(2,1)=v(6483)
ri1(2,2)=v(6487)
ri1(2,3)=v(6488)
ri1(3,1)=v(6493)
ri1(3,2)=v(6497)
ri1(3,3)=v(6498)
ri2(1,1)=v(6516)
ri2(1,2)=v(6520)
ri2(1,3)=v(6521)
ri2(2,1)=v(6525)
ri2(2,2)=v(6529)
ri2(2,3)=v(6530)
ri2(3,1)=v(6535)
ri2(3,2)=v(6539)
ri2(3,3)=v(6540)
ri3(1,1)=v(6558)
ri3(1,2)=v(6562)
ri3(1,3)=v(6563)
ri3(2,1)=v(6567)
ri3(2,2)=v(6571)
ri3(2,3)=v(6572)
ri3(3,1)=v(6577)
ri3(3,2)=v(6581)
ri3(3,3)=v(6582)
ul(1)=v(6442)*v(6460)+v(6444)*v(6462)+v(6446)*v(6464)-v(6592)
ul(2)=v(6442)*v(6461)+v(6444)*v(6463)+v(6446)*v(6465)-v(6594)
ul(3)=0d0
ul(4)=(-(v(6422)*v(6633))-v(6424)*v(6634)-v(6425)*v(6635)+v(6426)*v(6639)+v(6427)*v(6640)+v(6428)*v(6641))/2d0
ul(5)=(v(6422)*v(6627)+v(6424)*v(6628)+v(6425)*v(6629)-v(6415)*v(6639)-v(6417)*v(6640)-v(6418)*v(6641))/2d0
ul(6)=(-(v(6426)*v(6627))-v(6427)*v(6628)-v(6428)*v(6629)+v(6415)*v(6633)+v(6417)*v(6634)+v(6418)*v(6635))/2d0
ul(7)=-v(6593)+v(6460)*v(6600)+v(6462)*v(6604)+v(6464)*v(6608)
ul(8)=-v(6594)+v(6461)*v(6600)+v(6463)*v(6604)+v(6465)*v(6608)
ul(9)=0d0
ul(10)=(-(v(6422)*v(6651))-v(6424)*v(6652)-v(6425)*v(6653)+v(6426)*v(6657)+v(6427)*v(6658)+v(6428)*v(6659))/2d0
ul(11)=(v(6422)*v(6645)+v(6424)*v(6646)+v(6425)*v(6647)-v(6415)*v(6657)-v(6417)*v(6658)-v(6418)*v(6659))/2d0
ul(12)=(-(v(6426)*v(6645))-v(6427)*v(6646)-v(6428)*v(6647)+v(6415)*v(6651)+v(6417)*v(6652)+v(6418)*v(6653))/2d0
ul(13)=v(6430)+v(6443)*v(6460)+v(6445)*v(6462)+v(6447)*v(6464)
ul(14)=v(6443)*v(6461)+v(6445)*v(6463)+v(6447)*v(6465)-v(6598)
ul(15)=0d0
ul(16)=(-(v(6422)*v(6669))-v(6424)*v(6670)-v(6425)*v(6671)+v(6426)*v(6675)+v(6427)*v(6676)+v(6428)*v(6677))/2d0
ul(17)=(v(6422)*v(6663)+v(6424)*v(6664)+v(6425)*v(6665)-v(6415)*v(6675)-v(6417)*v(6676)-v(6418)*v(6677))/2d0
ul(18)=(-(v(6426)*v(6663))-v(6427)*v(6664)-v(6428)*v(6665)+v(6415)*v(6669)+v(6417)*v(6670)+v(6418)*v(6671))/2d0
ro(1,1)=v(6415)
ro(1,2)=v(6426)
ro(1,3)=v(6422)
ro(2,1)=v(6417)
ro(2,2)=v(6427)
ro(2,3)=v(6424)
ro(3,1)=v(6418)
ro(3,2)=v(6428)
ro(3,3)=v(6425)
dl(1,1)=v(6442)*v(6883)+v(6444)*v(6907)+v(6446)*v(6929)+v(7583)
dl(1,2)=v(6442)*v(6884)+v(6444)*v(6908)+v(6446)*v(6930)+v(7613)
dl(1,3)=v(6442)*v(6885)+v(6444)*v(6909)+v(6446)*v(6931)+v(7993)
dl(1,4)=0d0
dl(1,5)=0d0
dl(1,6)=0d0
dl(1,7)=v(6442)*v(6887)+v(6444)*v(6910)+v(6446)*v(6932)+v(7576)
dl(1,8)=v(6442)*v(6889)+v(6444)*v(6912)+v(6446)*v(6933)+v(7606)
dl(1,9)=v(6442)*v(6891)+v(6444)*v(6914)+v(6446)*v(6935)+v(7942)
dl(1,10)=0d0
dl(1,11)=0d0
dl(1,12)=0d0
dl(1,13)=v(6442)*v(6892)+v(6444)*v(6916)+v(6446)*v(6937)+v(7576)
dl(1,14)=v(6442)*v(6893)+v(6444)*v(6917)+v(6446)*v(6939)+v(7606)
dl(1,15)=v(6442)*v(6894)+v(6444)*v(6918)+v(6446)*v(6940)+v(7942)
dl(1,16)=0d0
dl(1,17)=0d0
dl(1,18)=0d0
dl(2,1)=v(6442)*v(6895)+v(6444)*v(6919)+v(6446)*v(6941)+v(7641)
dl(2,2)=v(6442)*v(6896)+v(6444)*v(6920)+v(6446)*v(6942)+v(7671)
dl(2,3)=v(6442)*v(6897)+v(6444)*v(6921)+v(6446)*v(6943)+v(7995)
dl(2,4)=0d0
dl(2,5)=0d0
dl(2,6)=0d0
dl(2,7)=v(6442)*v(6899)+v(6444)*v(6922)+v(6446)*v(6944)+v(7634)
dl(2,8)=v(6442)*v(6901)+v(6444)*v(6924)+v(6446)*v(6945)+v(7664)
dl(2,9)=v(6442)*v(6903)+v(6444)*v(6926)+v(6446)*v(6947)+v(7944)
dl(2,10)=0d0
dl(2,11)=0d0
dl(2,12)=0d0
dl(2,13)=v(6442)*v(6904)+v(6444)*v(6905)+v(6446)*v(6906)+v(7634)
dl(2,14)=v(6442)*v(6905)+v(6444)*v(6927)+v(6446)*v(6928)+v(7664)
dl(2,15)=v(6442)*v(6906)+v(6444)*v(6928)+v(6446)*v(6948)+v(7944)
dl(2,16)=0d0
dl(2,17)=0d0
dl(2,18)=0d0
dl(3,1)=0d0
dl(3,2)=0d0
dl(3,3)=0d0
dl(3,4)=0d0
dl(3,5)=0d0
dl(3,6)=0d0
dl(3,7)=0d0
dl(3,8)=0d0
dl(3,9)=0d0
dl(3,10)=0d0
dl(3,11)=0d0
dl(3,12)=0d0
dl(3,13)=0d0
dl(3,14)=0d0
dl(3,15)=0d0
dl(3,16)=0d0
dl(3,17)=0d0
dl(3,18)=0d0
dl(4,1)=(v(6426)*v(7042)-v(6422)*v(7054)+v(6427)*v(7081)-v(6424)*v(7093)+v(6428)*v(7120)-v(6425)*v(7132))/2d0
dl(4,2)=(v(6426)*v(7043)-v(6422)*v(7055)+v(6427)*v(7082)-v(6424)*v(7094)+v(6428)*v(7121)-v(6425)*v(7133))/2d0
dl(4,3)=(v(6426)*v(7044)-v(6422)*v(7056)+v(6427)*v(7083)-v(6424)*v(7095)+v(6428)*v(7122)-v(6425)*v(7134))/2d0
dl(4,4)=(v(6426)*v(7045)-v(6422)*v(7057)+v(6427)*v(7084)-v(6424)*v(7096)+v(6428)*v(7123)-v(6425)*v(7135))/2d0
dl(4,5)=(v(6426)*v(7046)-v(6422)*v(7058)+v(6427)*v(7085)-v(6424)*v(7097)+v(6428)*v(7124)-v(6425)*v(7136))/2d0
dl(4,6)=(v(6426)*v(7047)-v(6422)*v(7059)+v(6427)*v(7086)-v(6424)*v(7098)+v(6428)*v(7125)-v(6425)*v(7137))/2d0
dl(4,7)=(v(6426)*v(7048)-v(6422)*v(7060)+v(6427)*v(7087)-v(6424)*v(7099)+v(6428)*v(7126)-v(6425)*v(7138))/2d0
dl(4,8)=(v(6426)*v(7049)-v(6422)*v(7061)+v(6427)*v(7088)-v(6424)*v(7100)+v(6428)*v(7127)-v(6425)*v(7139))/2d0
dl(4,9)=(v(6426)*v(7050)-v(6422)*v(7062)+v(6427)*v(7089)-v(6424)*v(7101)+v(6428)*v(7128)-v(6425)*v(7140))/2d0
dl(4,10)=0d0
dl(4,11)=0d0
dl(4,12)=0d0
dl(4,13)=(v(6426)*v(7051)-v(6422)*v(7063)+v(6427)*v(7090)-v(6424)*v(7102)+v(6428)*v(7129)-v(6425)*v(7141))/2d0
dl(4,14)=(v(6426)*v(7052)-v(6422)*v(7064)+v(6427)*v(7091)-v(6424)*v(7103)+v(6428)*v(7130)-v(6425)*v(7142))/2d0
dl(4,15)=(v(6426)*v(7053)-v(6422)*v(7065)+v(6427)*v(7092)-v(6424)*v(7104)+v(6428)*v(7131)-v(6425)*v(7143))/2d0
dl(4,16)=0d0
dl(4,17)=0d0
dl(4,18)=0d0
dl(5,1)=(-(v(6415)*v(7042))+v(6422)*v(7066)-v(6417)*v(7081)+v(6424)*v(7105)-v(6418)*v(7120)+v(6425)*v(7144))/2d0
dl(5,2)=(-(v(6415)*v(7043))+v(6422)*v(7067)-v(6417)*v(7082)+v(6424)*v(7106)-v(6418)*v(7121)+v(6425)*v(7145))/2d0
dl(5,3)=(-(v(6415)*v(7044))+v(6422)*v(7068)-v(6417)*v(7083)+v(6424)*v(7107)-v(6418)*v(7122)+v(6425)*v(7146))/2d0
dl(5,4)=(-(v(6415)*v(7045))+v(6422)*v(7069)-v(6417)*v(7084)+v(6424)*v(7108)-v(6418)*v(7123)+v(6425)*v(7147))/2d0
dl(5,5)=(-(v(6415)*v(7046))+v(6422)*v(7070)-v(6417)*v(7085)+v(6424)*v(7109)-v(6418)*v(7124)+v(6425)*v(7148))/2d0
dl(5,6)=(-(v(6415)*v(7047))+v(6422)*v(7071)-v(6417)*v(7086)+v(6424)*v(7110)-v(6418)*v(7125)+v(6425)*v(7149))/2d0
dl(5,7)=(-(v(6415)*v(7048))+v(6422)*v(7072)-v(6417)*v(7087)+v(6424)*v(7111)-v(6418)*v(7126)+v(6425)*v(7150))/2d0
dl(5,8)=(-(v(6415)*v(7049))+v(6422)*v(7073)-v(6417)*v(7088)+v(6424)*v(7112)-v(6418)*v(7127)+v(6425)*v(7151))/2d0
dl(5,9)=(-(v(6415)*v(7050))+v(6422)*v(7074)-v(6417)*v(7089)+v(6424)*v(7113)-v(6418)*v(7128)+v(6425)*v(7152))/2d0
dl(5,10)=0d0
dl(5,11)=0d0
dl(5,12)=0d0
dl(5,13)=(-(v(6415)*v(7051))+v(6422)*v(7075)-v(6417)*v(7090)+v(6424)*v(7114)-v(6418)*v(7129)+v(6425)*v(7153))/2d0
dl(5,14)=(-(v(6415)*v(7052))+v(6422)*v(7076)-v(6417)*v(7091)+v(6424)*v(7115)-v(6418)*v(7130)+v(6425)*v(7154))/2d0
dl(5,15)=(-(v(6415)*v(7053))+v(6422)*v(7077)-v(6417)*v(7092)+v(6424)*v(7116)-v(6418)*v(7131)+v(6425)*v(7155))/2d0
dl(5,16)=0d0
dl(5,17)=0d0
dl(5,18)=0d0
dl(6,1)=(v(6415)*v(7054)-v(6426)*v(7066)+v(6417)*v(7093)-v(6427)*v(7105)+v(6418)*v(7132)-v(6428)*v(7144))/2d0
dl(6,2)=(v(6415)*v(7055)-v(6426)*v(7067)+v(6417)*v(7094)-v(6427)*v(7106)+v(6418)*v(7133)-v(6428)*v(7145))/2d0
dl(6,3)=(v(6415)*v(7056)-v(6426)*v(7068)+v(6417)*v(7095)-v(6427)*v(7107)+v(6418)*v(7134)-v(6428)*v(7146))/2d0
dl(6,4)=(v(6415)*v(7057)-v(6426)*v(7069)+v(6417)*v(7096)-v(6427)*v(7108)+v(6418)*v(7135)-v(6428)*v(7147))/2d0
dl(6,5)=(v(6415)*v(7058)-v(6426)*v(7070)+v(6417)*v(7097)-v(6427)*v(7109)+v(6418)*v(7136)-v(6428)*v(7148))/2d0
dl(6,6)=(v(6415)*v(7059)-v(6426)*v(7071)+v(6417)*v(7098)-v(6427)*v(7110)+v(6418)*v(7137)-v(6428)*v(7149))/2d0
dl(6,7)=(v(6415)*v(7060)-v(6426)*v(7072)+v(6417)*v(7099)-v(6427)*v(7111)+v(6418)*v(7138)-v(6428)*v(7150))/2d0
dl(6,8)=(v(6415)*v(7061)-v(6426)*v(7073)+v(6417)*v(7100)-v(6427)*v(7112)+v(6418)*v(7139)-v(6428)*v(7151))/2d0
dl(6,9)=(v(6415)*v(7062)-v(6426)*v(7074)+v(6417)*v(7101)-v(6427)*v(7113)+v(6418)*v(7140)-v(6428)*v(7152))/2d0
dl(6,10)=0d0
dl(6,11)=0d0
dl(6,12)=0d0
dl(6,13)=(v(6415)*v(7063)-v(6426)*v(7075)+v(6417)*v(7102)-v(6427)*v(7114)+v(6418)*v(7141)-v(6428)*v(7153))/2d0
dl(6,14)=(v(6415)*v(7064)-v(6426)*v(7076)+v(6417)*v(7103)-v(6427)*v(7115)+v(6418)*v(7142)-v(6428)*v(7154))/2d0
dl(6,15)=(v(6415)*v(7065)-v(6426)*v(7077)+v(6417)*v(7104)-v(6427)*v(7116)+v(6418)*v(7143)-v(6428)*v(7155))/2d0
dl(6,16)=0d0
dl(6,17)=0d0
dl(6,18)=0d0
dl(7,1)=v(6600)*v(6883)+v(6604)*v(6907)+v(6608)*v(6929)+v(7576)
dl(7,2)=v(6600)*v(6884)+v(6604)*v(6908)+v(6608)*v(6930)+v(7606)
dl(7,3)=v(6600)*v(6885)+v(6604)*v(6909)+v(6608)*v(6931)+v(7942)
dl(7,4)=0d0
dl(7,5)=0d0
dl(7,6)=0d0
dl(7,7)=v(6600)*v(6887)+v(6604)*v(6910)+v(6608)*v(6932)+v(7583)
dl(7,8)=v(6600)*v(6889)+v(6604)*v(6912)+v(6608)*v(6933)+v(7613)
dl(7,9)=v(6600)*v(6891)+v(6604)*v(6914)+v(6608)*v(6935)+v(7993)
dl(7,10)=0d0
dl(7,11)=0d0
dl(7,12)=0d0
dl(7,13)=v(6600)*v(6892)+v(6604)*v(6916)+v(6608)*v(6937)+v(7576)
dl(7,14)=v(6600)*v(6893)+v(6604)*v(6917)+v(6608)*v(6939)+v(7606)
dl(7,15)=v(6600)*v(6894)+v(6604)*v(6918)+v(6608)*v(6940)+v(7942)
dl(7,16)=0d0
dl(7,17)=0d0
dl(7,18)=0d0
dl(8,1)=v(6600)*v(6895)+v(6604)*v(6919)+v(6608)*v(6941)+v(7634)
dl(8,2)=v(6600)*v(6896)+v(6604)*v(6920)+v(6608)*v(6942)+v(7664)
dl(8,3)=v(6600)*v(6897)+v(6604)*v(6921)+v(6608)*v(6943)+v(7944)
dl(8,4)=0d0
dl(8,5)=0d0
dl(8,6)=0d0
dl(8,7)=v(6600)*v(6899)+v(6604)*v(6922)+v(6608)*v(6944)+v(7641)
dl(8,8)=v(6600)*v(6901)+v(6604)*v(6924)+v(6608)*v(6945)+v(7671)
dl(8,9)=v(6600)*v(6903)+v(6604)*v(6926)+v(6608)*v(6947)+v(7995)
dl(8,10)=0d0
dl(8,11)=0d0
dl(8,12)=0d0
dl(8,13)=v(6600)*v(6904)+v(6604)*v(6905)+v(6608)*v(6906)+v(7634)
dl(8,14)=v(6600)*v(6905)+v(6604)*v(6927)+v(6608)*v(6928)+v(7664)
dl(8,15)=v(6600)*v(6906)+v(6604)*v(6928)+v(6608)*v(6948)+v(7944)
dl(8,16)=0d0
dl(8,17)=0d0
dl(8,18)=0d0
dl(9,1)=0d0
dl(9,2)=0d0
dl(9,3)=0d0
dl(9,4)=0d0
dl(9,5)=0d0
dl(9,6)=0d0
dl(9,7)=0d0
dl(9,8)=0d0
dl(9,9)=0d0
dl(9,10)=0d0
dl(9,11)=0d0
dl(9,12)=0d0
dl(9,13)=0d0
dl(9,14)=0d0
dl(9,15)=0d0
dl(9,16)=0d0
dl(9,17)=0d0
dl(9,18)=0d0
dl(10,1)=(v(6426)*v(7249)-v(6422)*v(7261)+v(6427)*v(7288)-v(6424)*v(7300)+v(6428)*v(7327)-v(6425)*v(7339))/2d0
dl(10,2)=(v(6426)*v(7250)-v(6422)*v(7262)+v(6427)*v(7289)-v(6424)*v(7301)+v(6428)*v(7328)-v(6425)*v(7340))/2d0
dl(10,3)=(v(6426)*v(7251)-v(6422)*v(7263)+v(6427)*v(7290)-v(6424)*v(7302)+v(6428)*v(7329)-v(6425)*v(7341))/2d0
dl(10,4)=0d0
dl(10,5)=0d0
dl(10,6)=0d0
dl(10,7)=(v(6426)*v(7252)-v(6422)*v(7264)+v(6427)*v(7291)-v(6424)*v(7303)+v(6428)*v(7330)-v(6425)*v(7342))/2d0
dl(10,8)=(v(6426)*v(7253)-v(6422)*v(7265)+v(6427)*v(7292)-v(6424)*v(7304)+v(6428)*v(7331)-v(6425)*v(7343))/2d0
dl(10,9)=(v(6426)*v(7254)-v(6422)*v(7266)+v(6427)*v(7293)-v(6424)*v(7305)+v(6428)*v(7332)-v(6425)*v(7344))/2d0
dl(10,10)=(v(6426)*v(7255)-v(6422)*v(7267)+v(6427)*v(7294)-v(6424)*v(7306)+v(6428)*v(7333)-v(6425)*v(7345))/2d0
dl(10,11)=(v(6426)*v(7256)-v(6422)*v(7268)+v(6427)*v(7295)-v(6424)*v(7307)+v(6428)*v(7334)-v(6425)*v(7346))/2d0
dl(10,12)=(v(6426)*v(7257)-v(6422)*v(7269)+v(6427)*v(7296)-v(6424)*v(7308)+v(6428)*v(7335)-v(6425)*v(7347))/2d0
dl(10,13)=(v(6426)*v(7258)-v(6422)*v(7270)+v(6427)*v(7297)-v(6424)*v(7309)+v(6428)*v(7336)-v(6425)*v(7348))/2d0
dl(10,14)=(v(6426)*v(7259)-v(6422)*v(7271)+v(6427)*v(7298)-v(6424)*v(7310)+v(6428)*v(7337)-v(6425)*v(7349))/2d0
dl(10,15)=(v(6426)*v(7260)-v(6422)*v(7272)+v(6427)*v(7299)-v(6424)*v(7311)+v(6428)*v(7338)-v(6425)*v(7350))/2d0
dl(10,16)=0d0
dl(10,17)=0d0
dl(10,18)=0d0
dl(11,1)=(-(v(6415)*v(7249))+v(6422)*v(7273)-v(6417)*v(7288)+v(6424)*v(7312)-v(6418)*v(7327)+v(6425)*v(7351))/2d0
dl(11,2)=(-(v(6415)*v(7250))+v(6422)*v(7274)-v(6417)*v(7289)+v(6424)*v(7313)-v(6418)*v(7328)+v(6425)*v(7352))/2d0
dl(11,3)=(-(v(6415)*v(7251))+v(6422)*v(7275)-v(6417)*v(7290)+v(6424)*v(7314)-v(6418)*v(7329)+v(6425)*v(7353))/2d0
dl(11,4)=0d0
dl(11,5)=0d0
dl(11,6)=0d0
dl(11,7)=(-(v(6415)*v(7252))+v(6422)*v(7276)-v(6417)*v(7291)+v(6424)*v(7315)-v(6418)*v(7330)+v(6425)*v(7354))/2d0
dl(11,8)=(-(v(6415)*v(7253))+v(6422)*v(7277)-v(6417)*v(7292)+v(6424)*v(7316)-v(6418)*v(7331)+v(6425)*v(7355))/2d0
dl(11,9)=(-(v(6415)*v(7254))+v(6422)*v(7278)-v(6417)*v(7293)+v(6424)*v(7317)-v(6418)*v(7332)+v(6425)*v(7356))/2d0
dl(11,10)=(-(v(6415)*v(7255))+v(6422)*v(7279)-v(6417)*v(7294)+v(6424)*v(7318)-v(6418)*v(7333)+v(6425)*v(7357))/2d0
dl(11,11)=(-(v(6415)*v(7256))+v(6422)*v(7280)-v(6417)*v(7295)+v(6424)*v(7319)-v(6418)*v(7334)+v(6425)*v(7358))/2d0
dl(11,12)=(-(v(6415)*v(7257))+v(6422)*v(7281)-v(6417)*v(7296)+v(6424)*v(7320)-v(6418)*v(7335)+v(6425)*v(7359))/2d0
dl(11,13)=(-(v(6415)*v(7258))+v(6422)*v(7282)-v(6417)*v(7297)+v(6424)*v(7321)-v(6418)*v(7336)+v(6425)*v(7360))/2d0
dl(11,14)=(-(v(6415)*v(7259))+v(6422)*v(7283)-v(6417)*v(7298)+v(6424)*v(7322)-v(6418)*v(7337)+v(6425)*v(7361))/2d0
dl(11,15)=(-(v(6415)*v(7260))+v(6422)*v(7284)-v(6417)*v(7299)+v(6424)*v(7323)-v(6418)*v(7338)+v(6425)*v(7362))/2d0
dl(11,16)=0d0
dl(11,17)=0d0
dl(11,18)=0d0
dl(12,1)=(v(6415)*v(7261)-v(6426)*v(7273)+v(6417)*v(7300)-v(6427)*v(7312)+v(6418)*v(7339)-v(6428)*v(7351))/2d0
dl(12,2)=(v(6415)*v(7262)-v(6426)*v(7274)+v(6417)*v(7301)-v(6427)*v(7313)+v(6418)*v(7340)-v(6428)*v(7352))/2d0
dl(12,3)=(v(6415)*v(7263)-v(6426)*v(7275)+v(6417)*v(7302)-v(6427)*v(7314)+v(6418)*v(7341)-v(6428)*v(7353))/2d0
dl(12,4)=0d0
dl(12,5)=0d0
dl(12,6)=0d0
dl(12,7)=(v(6415)*v(7264)-v(6426)*v(7276)+v(6417)*v(7303)-v(6427)*v(7315)+v(6418)*v(7342)-v(6428)*v(7354))/2d0
dl(12,8)=(v(6415)*v(7265)-v(6426)*v(7277)+v(6417)*v(7304)-v(6427)*v(7316)+v(6418)*v(7343)-v(6428)*v(7355))/2d0
dl(12,9)=(v(6415)*v(7266)-v(6426)*v(7278)+v(6417)*v(7305)-v(6427)*v(7317)+v(6418)*v(7344)-v(6428)*v(7356))/2d0
dl(12,10)=(v(6415)*v(7267)-v(6426)*v(7279)+v(6417)*v(7306)-v(6427)*v(7318)+v(6418)*v(7345)-v(6428)*v(7357))/2d0
dl(12,11)=(v(6415)*v(7268)-v(6426)*v(7280)+v(6417)*v(7307)-v(6427)*v(7319)+v(6418)*v(7346)-v(6428)*v(7358))/2d0
dl(12,12)=(v(6415)*v(7269)-v(6426)*v(7281)+v(6417)*v(7308)-v(6427)*v(7320)+v(6418)*v(7347)-v(6428)*v(7359))/2d0
dl(12,13)=(v(6415)*v(7270)-v(6426)*v(7282)+v(6417)*v(7309)-v(6427)*v(7321)+v(6418)*v(7348)-v(6428)*v(7360))/2d0
dl(12,14)=(v(6415)*v(7271)-v(6426)*v(7283)+v(6417)*v(7310)-v(6427)*v(7322)+v(6418)*v(7349)-v(6428)*v(7361))/2d0
dl(12,15)=(v(6415)*v(7272)-v(6426)*v(7284)+v(6417)*v(7311)-v(6427)*v(7323)+v(6418)*v(7350)-v(6428)*v(7362))/2d0
dl(12,16)=0d0
dl(12,17)=0d0
dl(12,18)=0d0
dl(13,1)=v(6443)*v(6883)+v(6445)*v(6907)+v(6447)*v(6929)+v(7576)
dl(13,2)=v(6443)*v(6884)+v(6445)*v(6908)+v(6447)*v(6930)+v(7606)
dl(13,3)=v(6443)*v(6885)+v(6445)*v(6909)+v(6447)*v(6931)+v(7942)
dl(13,4)=0d0
dl(13,5)=0d0
dl(13,6)=0d0
dl(13,7)=v(6443)*v(6887)+v(6445)*v(6910)+v(6447)*v(6932)+v(7576)
dl(13,8)=v(6443)*v(6889)+v(6445)*v(6912)+v(6447)*v(6933)+v(7606)
dl(13,9)=v(6443)*v(6891)+v(6445)*v(6914)+v(6447)*v(6935)+v(7942)
dl(13,10)=0d0
dl(13,11)=0d0
dl(13,12)=0d0
dl(13,13)=v(6443)*v(6892)+v(6445)*v(6916)+v(6447)*v(6937)+v(7583)
dl(13,14)=v(6443)*v(6893)+v(6445)*v(6917)+v(6447)*v(6939)+v(7613)
dl(13,15)=v(6443)*v(6894)+v(6445)*v(6918)+v(6447)*v(6940)+v(7993)
dl(13,16)=0d0
dl(13,17)=0d0
dl(13,18)=0d0
dl(14,1)=v(6443)*v(6895)+v(6445)*v(6919)+v(6447)*v(6941)+v(7634)
dl(14,2)=v(6443)*v(6896)+v(6445)*v(6920)+v(6447)*v(6942)+v(7664)
dl(14,3)=v(6443)*v(6897)+v(6445)*v(6921)+v(6447)*v(6943)+v(7944)
dl(14,4)=0d0
dl(14,5)=0d0
dl(14,6)=0d0
dl(14,7)=v(6443)*v(6899)+v(6445)*v(6922)+v(6447)*v(6944)+v(7634)
dl(14,8)=v(6443)*v(6901)+v(6445)*v(6924)+v(6447)*v(6945)+v(7664)
dl(14,9)=v(6443)*v(6903)+v(6445)*v(6926)+v(6447)*v(6947)+v(7944)
dl(14,10)=0d0
dl(14,11)=0d0
dl(14,12)=0d0
dl(14,13)=v(6443)*v(6904)+v(6445)*v(6905)+v(6447)*v(6906)+v(7641)
dl(14,14)=v(6443)*v(6905)+v(6445)*v(6927)+v(6447)*v(6928)+v(7671)
dl(14,15)=v(6443)*v(6906)+v(6445)*v(6928)+v(6447)*v(6948)+v(7995)
dl(14,16)=0d0
dl(14,17)=0d0
dl(14,18)=0d0
dl(15,1)=0d0
dl(15,2)=0d0
dl(15,3)=0d0
dl(15,4)=0d0
dl(15,5)=0d0
dl(15,6)=0d0
dl(15,7)=0d0
dl(15,8)=0d0
dl(15,9)=0d0
dl(15,10)=0d0
dl(15,11)=0d0
dl(15,12)=0d0
dl(15,13)=0d0
dl(15,14)=0d0
dl(15,15)=0d0
dl(15,16)=0d0
dl(15,17)=0d0
dl(15,18)=0d0
dl(16,1)=(v(6426)*v(7456)-v(6422)*v(7468)+v(6427)*v(7495)-v(6424)*v(7507)+v(6428)*v(7534)-v(6425)*v(7546))/2d0
dl(16,2)=(v(6426)*v(7457)-v(6422)*v(7469)+v(6427)*v(7496)-v(6424)*v(7508)+v(6428)*v(7535)-v(6425)*v(7547))/2d0
dl(16,3)=(v(6426)*v(7458)-v(6422)*v(7470)+v(6427)*v(7497)-v(6424)*v(7509)+v(6428)*v(7536)-v(6425)*v(7548))/2d0
dl(16,4)=0d0
dl(16,5)=0d0
dl(16,6)=0d0
dl(16,7)=(v(6426)*v(7459)-v(6422)*v(7471)+v(6427)*v(7498)-v(6424)*v(7510)+v(6428)*v(7537)-v(6425)*v(7549))/2d0
dl(16,8)=(v(6426)*v(7460)-v(6422)*v(7472)+v(6427)*v(7499)-v(6424)*v(7511)+v(6428)*v(7538)-v(6425)*v(7550))/2d0
dl(16,9)=(v(6426)*v(7461)-v(6422)*v(7473)+v(6427)*v(7500)-v(6424)*v(7512)+v(6428)*v(7539)-v(6425)*v(7551))/2d0
dl(16,10)=0d0
dl(16,11)=0d0
dl(16,12)=0d0
dl(16,13)=(v(6426)*v(7462)-v(6422)*v(7474)+v(6427)*v(7501)-v(6424)*v(7513)+v(6428)*v(7540)-v(6425)*v(7552))/2d0
dl(16,14)=(v(6426)*v(7463)-v(6422)*v(7475)+v(6427)*v(7502)-v(6424)*v(7514)+v(6428)*v(7541)-v(6425)*v(7553))/2d0
dl(16,15)=(v(6426)*v(7464)-v(6422)*v(7476)+v(6427)*v(7503)-v(6424)*v(7515)+v(6428)*v(7542)-v(6425)*v(7554))/2d0
dl(16,16)=(v(6426)*v(7465)-v(6422)*v(7477)+v(6427)*v(7504)-v(6424)*v(7516)+v(6428)*v(7543)-v(6425)*v(7555))/2d0
dl(16,17)=(v(6426)*v(7466)-v(6422)*v(7478)+v(6427)*v(7505)-v(6424)*v(7517)+v(6428)*v(7544)-v(6425)*v(7556))/2d0
dl(16,18)=(v(6426)*v(7467)-v(6422)*v(7479)+v(6427)*v(7506)-v(6424)*v(7518)+v(6428)*v(7545)-v(6425)*v(7557))/2d0
dl(17,1)=(-(v(6415)*v(7456))+v(6422)*v(7480)-v(6417)*v(7495)+v(6424)*v(7519)-v(6418)*v(7534)+v(6425)*v(7558))/2d0
dl(17,2)=(-(v(6415)*v(7457))+v(6422)*v(7481)-v(6417)*v(7496)+v(6424)*v(7520)-v(6418)*v(7535)+v(6425)*v(7559))/2d0
dl(17,3)=(-(v(6415)*v(7458))+v(6422)*v(7482)-v(6417)*v(7497)+v(6424)*v(7521)-v(6418)*v(7536)+v(6425)*v(7560))/2d0
dl(17,4)=0d0
dl(17,5)=0d0
dl(17,6)=0d0
dl(17,7)=(-(v(6415)*v(7459))+v(6422)*v(7483)-v(6417)*v(7498)+v(6424)*v(7522)-v(6418)*v(7537)+v(6425)*v(7561))/2d0
dl(17,8)=(-(v(6415)*v(7460))+v(6422)*v(7484)-v(6417)*v(7499)+v(6424)*v(7523)-v(6418)*v(7538)+v(6425)*v(7562))/2d0
dl(17,9)=(-(v(6415)*v(7461))+v(6422)*v(7485)-v(6417)*v(7500)+v(6424)*v(7524)-v(6418)*v(7539)+v(6425)*v(7563))/2d0
dl(17,10)=0d0
dl(17,11)=0d0
dl(17,12)=0d0
dl(17,13)=(-(v(6415)*v(7462))+v(6422)*v(7486)-v(6417)*v(7501)+v(6424)*v(7525)-v(6418)*v(7540)+v(6425)*v(7564))/2d0
dl(17,14)=(-(v(6415)*v(7463))+v(6422)*v(7487)-v(6417)*v(7502)+v(6424)*v(7526)-v(6418)*v(7541)+v(6425)*v(7565))/2d0
dl(17,15)=(-(v(6415)*v(7464))+v(6422)*v(7488)-v(6417)*v(7503)+v(6424)*v(7527)-v(6418)*v(7542)+v(6425)*v(7566))/2d0
dl(17,16)=(-(v(6415)*v(7465))+v(6422)*v(7489)-v(6417)*v(7504)+v(6424)*v(7528)-v(6418)*v(7543)+v(6425)*v(7567))/2d0
dl(17,17)=(-(v(6415)*v(7466))+v(6422)*v(7490)-v(6417)*v(7505)+v(6424)*v(7529)-v(6418)*v(7544)+v(6425)*v(7568))/2d0
dl(17,18)=(-(v(6415)*v(7467))+v(6422)*v(7491)-v(6417)*v(7506)+v(6424)*v(7530)-v(6418)*v(7545)+v(6425)*v(7569))/2d0
dl(18,1)=(v(6415)*v(7468)-v(6426)*v(7480)+v(6417)*v(7507)-v(6427)*v(7519)+v(6418)*v(7546)-v(6428)*v(7558))/2d0
dl(18,2)=(v(6415)*v(7469)-v(6426)*v(7481)+v(6417)*v(7508)-v(6427)*v(7520)+v(6418)*v(7547)-v(6428)*v(7559))/2d0
dl(18,3)=(v(6415)*v(7470)-v(6426)*v(7482)+v(6417)*v(7509)-v(6427)*v(7521)+v(6418)*v(7548)-v(6428)*v(7560))/2d0
dl(18,4)=0d0
dl(18,5)=0d0
dl(18,6)=0d0
dl(18,7)=(v(6415)*v(7471)-v(6426)*v(7483)+v(6417)*v(7510)-v(6427)*v(7522)+v(6418)*v(7549)-v(6428)*v(7561))/2d0
dl(18,8)=(v(6415)*v(7472)-v(6426)*v(7484)+v(6417)*v(7511)-v(6427)*v(7523)+v(6418)*v(7550)-v(6428)*v(7562))/2d0
dl(18,9)=(v(6415)*v(7473)-v(6426)*v(7485)+v(6417)*v(7512)-v(6427)*v(7524)+v(6418)*v(7551)-v(6428)*v(7563))/2d0
dl(18,10)=0d0
dl(18,11)=0d0
dl(18,12)=0d0
dl(18,13)=(v(6415)*v(7474)-v(6426)*v(7486)+v(6417)*v(7513)-v(6427)*v(7525)+v(6418)*v(7552)-v(6428)*v(7564))/2d0
dl(18,14)=(v(6415)*v(7475)-v(6426)*v(7487)+v(6417)*v(7514)-v(6427)*v(7526)+v(6418)*v(7553)-v(6428)*v(7565))/2d0
dl(18,15)=(v(6415)*v(7476)-v(6426)*v(7488)+v(6417)*v(7515)-v(6427)*v(7527)+v(6418)*v(7554)-v(6428)*v(7566))/2d0
dl(18,16)=(v(6415)*v(7477)-v(6426)*v(7489)+v(6417)*v(7516)-v(6427)*v(7528)+v(6418)*v(7555)-v(6428)*v(7567))/2d0
dl(18,17)=(v(6415)*v(7478)-v(6426)*v(7490)+v(6417)*v(7517)-v(6427)*v(7529)+v(6418)*v(7556)-v(6428)*v(7568))/2d0
dl(18,18)=(v(6415)*v(7479)-v(6426)*v(7491)+v(6417)*v(7518)-v(6427)*v(7530)+v(6418)*v(7557)-v(6428)*v(7569))/2d0
d2l(1,1,1)=v(6446)*v(9366)+v(6444)*v(9497)+v(6442)*v(9740)+2d0*v(9741)
d2l(1,1,2)=v(16558)
d2l(1,1,3)=v(16559)
d2l(1,1,4)=0d0
d2l(1,1,5)=0d0
d2l(1,1,6)=0d0
d2l(1,1,7)=v(16560)
d2l(1,1,8)=v(16561)
d2l(1,1,9)=v(16562)
d2l(1,1,10)=0d0
d2l(1,1,11)=0d0
d2l(1,1,12)=0d0
d2l(1,1,13)=v(16563)
d2l(1,1,14)=v(16564)
d2l(1,1,15)=v(16565)
d2l(1,1,16)=0d0
d2l(1,1,17)=0d0
d2l(1,1,18)=0d0
d2l(1,2,1)=v(16558)
d2l(1,2,2)=v(6446)*v(9363)+v(6444)*v(9494)+v(6442)*v(9737)+2d0*v(9856)
d2l(1,2,3)=v(16720)
d2l(1,2,4)=0d0
d2l(1,2,5)=0d0
d2l(1,2,6)=0d0
d2l(1,2,7)=v(16721)
d2l(1,2,8)=v(16722)
d2l(1,2,9)=v(16723)
d2l(1,2,10)=0d0
d2l(1,2,11)=0d0
d2l(1,2,12)=0d0
d2l(1,2,13)=v(16724)
d2l(1,2,14)=v(16725)
d2l(1,2,15)=v(16726)
d2l(1,2,16)=0d0
d2l(1,2,17)=0d0
d2l(1,2,18)=0d0
d2l(1,3,1)=v(16559)
d2l(1,3,2)=v(16720)
d2l(1,3,3)=v(6446)*v(9358)+v(6444)*v(9489)+v(6442)*v(9710)+2d0*v(9927)
d2l(1,3,4)=0d0
d2l(1,3,5)=0d0
d2l(1,3,6)=0d0
d2l(1,3,7)=v(16867)
d2l(1,3,8)=v(16868)
d2l(1,3,9)=v(16869)
d2l(1,3,10)=0d0
d2l(1,3,11)=0d0
d2l(1,3,12)=0d0
d2l(1,3,13)=v(16870)
d2l(1,3,14)=v(16871)
d2l(1,3,15)=v(16872)
d2l(1,3,16)=0d0
d2l(1,3,17)=0d0
d2l(1,3,18)=0d0
d2l(1,4,1)=0d0
d2l(1,4,2)=0d0
d2l(1,4,3)=0d0
d2l(1,4,4)=0d0
d2l(1,4,5)=0d0
d2l(1,4,6)=0d0
d2l(1,4,7)=0d0
d2l(1,4,8)=0d0
d2l(1,4,9)=0d0
d2l(1,4,10)=0d0
d2l(1,4,11)=0d0
d2l(1,4,12)=0d0
d2l(1,4,13)=0d0
d2l(1,4,14)=0d0
d2l(1,4,15)=0d0
d2l(1,4,16)=0d0
d2l(1,4,17)=0d0
d2l(1,4,18)=0d0
d2l(1,5,1)=0d0
d2l(1,5,2)=0d0
d2l(1,5,3)=0d0
d2l(1,5,4)=0d0
d2l(1,5,5)=0d0
d2l(1,5,6)=0d0
d2l(1,5,7)=0d0
d2l(1,5,8)=0d0
d2l(1,5,9)=0d0
d2l(1,5,10)=0d0
d2l(1,5,11)=0d0
d2l(1,5,12)=0d0
d2l(1,5,13)=0d0
d2l(1,5,14)=0d0
d2l(1,5,15)=0d0
d2l(1,5,16)=0d0
d2l(1,5,17)=0d0
d2l(1,5,18)=0d0
d2l(1,6,1)=0d0
d2l(1,6,2)=0d0
d2l(1,6,3)=0d0
d2l(1,6,4)=0d0
d2l(1,6,5)=0d0
d2l(1,6,6)=0d0
d2l(1,6,7)=0d0
d2l(1,6,8)=0d0
d2l(1,6,9)=0d0
d2l(1,6,10)=0d0
d2l(1,6,11)=0d0
d2l(1,6,12)=0d0
d2l(1,6,13)=0d0
d2l(1,6,14)=0d0
d2l(1,6,15)=0d0
d2l(1,6,16)=0d0
d2l(1,6,17)=0d0
d2l(1,6,18)=0d0
d2l(1,7,1)=v(16560)
d2l(1,7,2)=v(16721)
d2l(1,7,3)=v(16867)
d2l(1,7,4)=0d0
d2l(1,7,5)=0d0
d2l(1,7,6)=0d0
d2l(1,7,7)=v(6446)*v(9351)+v(6444)*v(9483)+v(6442)*v(9705)-v(9743)
d2l(1,7,8)=v(17098)
d2l(1,7,9)=v(17099)
d2l(1,7,10)=0d0
d2l(1,7,11)=0d0
d2l(1,7,12)=0d0
d2l(1,7,13)=v(17100)
d2l(1,7,14)=v(17101)
d2l(1,7,15)=v(17102)
d2l(1,7,16)=0d0
d2l(1,7,17)=0d0
d2l(1,7,18)=0d0
d2l(1,8,1)=v(16561)
d2l(1,8,2)=v(16722)
d2l(1,8,3)=v(16868)
d2l(1,8,4)=0d0
d2l(1,8,5)=0d0
d2l(1,8,6)=0d0
d2l(1,8,7)=v(17098)
d2l(1,8,8)=v(6446)*v(9343)+v(6444)*v(9476)+v(6442)*v(9699)-v(9859)
d2l(1,8,9)=v(17215)
d2l(1,8,10)=0d0
d2l(1,8,11)=0d0
d2l(1,8,12)=0d0
d2l(1,8,13)=v(17216)
d2l(1,8,14)=v(17217)
d2l(1,8,15)=v(17218)
d2l(1,8,16)=0d0
d2l(1,8,17)=0d0
d2l(1,8,18)=0d0
d2l(1,9,1)=v(16562)
d2l(1,9,2)=v(16723)
d2l(1,9,3)=v(16869)
d2l(1,9,4)=0d0
d2l(1,9,5)=0d0
d2l(1,9,6)=0d0
d2l(1,9,7)=v(17099)
d2l(1,9,8)=v(17215)
d2l(1,9,9)=v(17345)+v(6446)*v(9334)+v(6444)*v(9468)+v(6442)*v(9666)
d2l(1,9,10)=0d0
d2l(1,9,11)=0d0
d2l(1,9,12)=0d0
d2l(1,9,13)=v(17317)
d2l(1,9,14)=v(17318)
d2l(1,9,15)=v(17319)
d2l(1,9,16)=0d0
d2l(1,9,17)=0d0
d2l(1,9,18)=0d0
d2l(1,10,1)=0d0
d2l(1,10,2)=0d0
d2l(1,10,3)=0d0
d2l(1,10,4)=0d0
d2l(1,10,5)=0d0
d2l(1,10,6)=0d0
d2l(1,10,7)=0d0
d2l(1,10,8)=0d0
d2l(1,10,9)=0d0
d2l(1,10,10)=0d0
d2l(1,10,11)=0d0
d2l(1,10,12)=0d0
d2l(1,10,13)=0d0
d2l(1,10,14)=0d0
d2l(1,10,15)=0d0
d2l(1,10,16)=0d0
d2l(1,10,17)=0d0
d2l(1,10,18)=0d0
d2l(1,11,1)=0d0
d2l(1,11,2)=0d0
d2l(1,11,3)=0d0
d2l(1,11,4)=0d0
d2l(1,11,5)=0d0
d2l(1,11,6)=0d0
d2l(1,11,7)=0d0
d2l(1,11,8)=0d0
d2l(1,11,9)=0d0
d2l(1,11,10)=0d0
d2l(1,11,11)=0d0
d2l(1,11,12)=0d0
d2l(1,11,13)=0d0
d2l(1,11,14)=0d0
d2l(1,11,15)=0d0
d2l(1,11,16)=0d0
d2l(1,11,17)=0d0
d2l(1,11,18)=0d0
d2l(1,12,1)=0d0
d2l(1,12,2)=0d0
d2l(1,12,3)=0d0
d2l(1,12,4)=0d0
d2l(1,12,5)=0d0
d2l(1,12,6)=0d0
d2l(1,12,7)=0d0
d2l(1,12,8)=0d0
d2l(1,12,9)=0d0
d2l(1,12,10)=0d0
d2l(1,12,11)=0d0
d2l(1,12,12)=0d0
d2l(1,12,13)=0d0
d2l(1,12,14)=0d0
d2l(1,12,15)=0d0
d2l(1,12,16)=0d0
d2l(1,12,17)=0d0
d2l(1,12,18)=0d0
d2l(1,13,1)=v(16563)
d2l(1,13,2)=v(16724)
d2l(1,13,3)=v(16870)
d2l(1,13,4)=0d0
d2l(1,13,5)=0d0
d2l(1,13,6)=0d0
d2l(1,13,7)=v(17100)
d2l(1,13,8)=v(17216)
d2l(1,13,9)=v(17317)
d2l(1,13,10)=0d0
d2l(1,13,11)=0d0
d2l(1,13,12)=0d0
d2l(1,13,13)=v(6446)*v(9324)+v(6444)*v(9459)+v(6442)*v(9658)-v(9745)
d2l(1,13,14)=v(17505)
d2l(1,13,15)=v(17506)
d2l(1,13,16)=0d0
d2l(1,13,17)=0d0
d2l(1,13,18)=0d0
d2l(1,14,1)=v(16564)
d2l(1,14,2)=v(16725)
d2l(1,14,3)=v(16871)
d2l(1,14,4)=0d0
d2l(1,14,5)=0d0
d2l(1,14,6)=0d0
d2l(1,14,7)=v(17101)
d2l(1,14,8)=v(17217)
d2l(1,14,9)=v(17318)
d2l(1,14,10)=0d0
d2l(1,14,11)=0d0
d2l(1,14,12)=0d0
d2l(1,14,13)=v(17505)
d2l(1,14,14)=v(6446)*v(9303)+v(6444)*v(9439)+v(6442)*v(9650)-v(9862)
d2l(1,14,15)=v(17577)
d2l(1,14,16)=0d0
d2l(1,14,17)=0d0
d2l(1,14,18)=0d0
d2l(1,15,1)=v(16565)
d2l(1,15,2)=v(16726)
d2l(1,15,3)=v(16872)
d2l(1,15,4)=0d0
d2l(1,15,5)=0d0
d2l(1,15,6)=0d0
d2l(1,15,7)=v(17102)
d2l(1,15,8)=v(17218)
d2l(1,15,9)=v(17319)
d2l(1,15,10)=0d0
d2l(1,15,11)=0d0
d2l(1,15,12)=0d0
d2l(1,15,13)=v(17506)
d2l(1,15,14)=v(17577)
d2l(1,15,15)=v(17661)+v(6446)*v(9283)+v(6444)*v(9430)+v(6442)*v(9613)
d2l(1,15,16)=0d0
d2l(1,15,17)=0d0
d2l(1,15,18)=0d0
d2l(1,16,1)=0d0
d2l(1,16,2)=0d0
d2l(1,16,3)=0d0
d2l(1,16,4)=0d0
d2l(1,16,5)=0d0
d2l(1,16,6)=0d0
d2l(1,16,7)=0d0
d2l(1,16,8)=0d0
d2l(1,16,9)=0d0
d2l(1,16,10)=0d0
d2l(1,16,11)=0d0
d2l(1,16,12)=0d0
d2l(1,16,13)=0d0
d2l(1,16,14)=0d0
d2l(1,16,15)=0d0
d2l(1,16,16)=0d0
d2l(1,16,17)=0d0
d2l(1,16,18)=0d0
d2l(1,17,1)=0d0
d2l(1,17,2)=0d0
d2l(1,17,3)=0d0
d2l(1,17,4)=0d0
d2l(1,17,5)=0d0
d2l(1,17,6)=0d0
d2l(1,17,7)=0d0
d2l(1,17,8)=0d0
d2l(1,17,9)=0d0
d2l(1,17,10)=0d0
d2l(1,17,11)=0d0
d2l(1,17,12)=0d0
d2l(1,17,13)=0d0
d2l(1,17,14)=0d0
d2l(1,17,15)=0d0
d2l(1,17,16)=0d0
d2l(1,17,17)=0d0
d2l(1,17,18)=0d0
d2l(1,18,1)=0d0
d2l(1,18,2)=0d0
d2l(1,18,3)=0d0
d2l(1,18,4)=0d0
d2l(1,18,5)=0d0
d2l(1,18,6)=0d0
d2l(1,18,7)=0d0
d2l(1,18,8)=0d0
d2l(1,18,9)=0d0
d2l(1,18,10)=0d0
d2l(1,18,11)=0d0
d2l(1,18,12)=0d0
d2l(1,18,13)=0d0
d2l(1,18,14)=0d0
d2l(1,18,15)=0d0
d2l(1,18,16)=0d0
d2l(1,18,17)=0d0
d2l(1,18,18)=0d0
d2l(2,1,1)=v(6446)*v(9509)+v(6444)*v(9554)+v(6442)*v(9604)+2d0*v(9798)
d2l(2,1,2)=v(16567)
d2l(2,1,3)=v(16568)
d2l(2,1,4)=0d0
d2l(2,1,5)=0d0
d2l(2,1,6)=0d0
d2l(2,1,7)=v(16569)
d2l(2,1,8)=v(16570)
d2l(2,1,9)=v(16571)
d2l(2,1,10)=0d0
d2l(2,1,11)=0d0
d2l(2,1,12)=0d0
d2l(2,1,13)=v(16572)
d2l(2,1,14)=v(16573)
d2l(2,1,15)=v(16574)
d2l(2,1,16)=0d0
d2l(2,1,17)=0d0
d2l(2,1,18)=0d0
d2l(2,2,1)=v(16567)
d2l(2,2,2)=v(6446)*v(9384)+v(6444)*v(9419)+v(6442)*v(9602)+2d0*v(9892)
d2l(2,2,3)=v(16728)
d2l(2,2,4)=0d0
d2l(2,2,5)=0d0
d2l(2,2,6)=0d0
d2l(2,2,7)=v(16729)
d2l(2,2,8)=v(16730)
d2l(2,2,9)=v(16731)
d2l(2,2,10)=0d0
d2l(2,2,11)=0d0
d2l(2,2,12)=0d0
d2l(2,2,13)=v(16732)
d2l(2,2,14)=v(16733)
d2l(2,2,15)=v(16734)
d2l(2,2,16)=0d0
d2l(2,2,17)=0d0
d2l(2,2,18)=0d0
d2l(2,3,1)=v(16568)
d2l(2,3,2)=v(16728)
d2l(2,3,3)=v(6446)*v(9269)+v(6444)*v(9414)+v(6442)*v(9576)+2d0*v(9945)
d2l(2,3,4)=0d0
d2l(2,3,5)=0d0
d2l(2,3,6)=0d0
d2l(2,3,7)=v(16874)
d2l(2,3,8)=v(16875)
d2l(2,3,9)=v(16876)
d2l(2,3,10)=0d0
d2l(2,3,11)=0d0
d2l(2,3,12)=0d0
d2l(2,3,13)=v(16877)
d2l(2,3,14)=v(16878)
d2l(2,3,15)=v(16879)
d2l(2,3,16)=0d0
d2l(2,3,17)=0d0
d2l(2,3,18)=0d0
d2l(2,4,1)=0d0
d2l(2,4,2)=0d0
d2l(2,4,3)=0d0
d2l(2,4,4)=0d0
d2l(2,4,5)=0d0
d2l(2,4,6)=0d0
d2l(2,4,7)=0d0
d2l(2,4,8)=0d0
d2l(2,4,9)=0d0
d2l(2,4,10)=0d0
d2l(2,4,11)=0d0
d2l(2,4,12)=0d0
d2l(2,4,13)=0d0
d2l(2,4,14)=0d0
d2l(2,4,15)=0d0
d2l(2,4,16)=0d0
d2l(2,4,17)=0d0
d2l(2,4,18)=0d0
d2l(2,5,1)=0d0
d2l(2,5,2)=0d0
d2l(2,5,3)=0d0
d2l(2,5,4)=0d0
d2l(2,5,5)=0d0
d2l(2,5,6)=0d0
d2l(2,5,7)=0d0
d2l(2,5,8)=0d0
d2l(2,5,9)=0d0
d2l(2,5,10)=0d0
d2l(2,5,11)=0d0
d2l(2,5,12)=0d0
d2l(2,5,13)=0d0
d2l(2,5,14)=0d0
d2l(2,5,15)=0d0
d2l(2,5,16)=0d0
d2l(2,5,17)=0d0
d2l(2,5,18)=0d0
d2l(2,6,1)=0d0
d2l(2,6,2)=0d0
d2l(2,6,3)=0d0
d2l(2,6,4)=0d0
d2l(2,6,5)=0d0
d2l(2,6,6)=0d0
d2l(2,6,7)=0d0
d2l(2,6,8)=0d0
d2l(2,6,9)=0d0
d2l(2,6,10)=0d0
d2l(2,6,11)=0d0
d2l(2,6,12)=0d0
d2l(2,6,13)=0d0
d2l(2,6,14)=0d0
d2l(2,6,15)=0d0
d2l(2,6,16)=0d0
d2l(2,6,17)=0d0
d2l(2,6,18)=0d0
d2l(2,7,1)=v(16569)
d2l(2,7,2)=v(16729)
d2l(2,7,3)=v(16874)
d2l(2,7,4)=0d0
d2l(2,7,5)=0d0
d2l(2,7,6)=0d0
d2l(2,7,7)=v(6446)*v(9507)+v(6444)*v(9552)+v(6442)*v(9572)-v(9800)
d2l(2,7,8)=v(17104)
d2l(2,7,9)=v(17105)
d2l(2,7,10)=0d0
d2l(2,7,11)=0d0
d2l(2,7,12)=0d0
d2l(2,7,13)=v(17106)
d2l(2,7,14)=v(17107)
d2l(2,7,15)=v(17108)
d2l(2,7,16)=0d0
d2l(2,7,17)=0d0
d2l(2,7,18)=0d0
d2l(2,8,1)=v(16570)
d2l(2,8,2)=v(16730)
d2l(2,8,3)=v(16875)
d2l(2,8,4)=0d0
d2l(2,8,5)=0d0
d2l(2,8,6)=0d0
d2l(2,8,7)=v(17104)
d2l(2,8,8)=v(6446)*v(9381)+v(6444)*v(9410)+v(6442)*v(9560)-v(9895)
d2l(2,8,9)=v(17220)
d2l(2,8,10)=0d0
d2l(2,8,11)=0d0
d2l(2,8,12)=0d0
d2l(2,8,13)=v(17221)
d2l(2,8,14)=v(17222)
d2l(2,8,15)=v(17223)
d2l(2,8,16)=0d0
d2l(2,8,17)=0d0
d2l(2,8,18)=0d0
d2l(2,9,1)=v(16571)
d2l(2,9,2)=v(16731)
d2l(2,9,3)=v(16876)
d2l(2,9,4)=0d0
d2l(2,9,5)=0d0
d2l(2,9,6)=0d0
d2l(2,9,7)=v(17105)
d2l(2,9,8)=v(17220)
d2l(2,9,9)=v(17350)+v(6446)*v(9265)+v(6444)*v(9394)+v(6442)*v(9516)
d2l(2,9,10)=0d0
d2l(2,9,11)=0d0
d2l(2,9,12)=0d0
d2l(2,9,13)=v(17321)
d2l(2,9,14)=v(17322)
d2l(2,9,15)=v(17323)
d2l(2,9,16)=0d0
d2l(2,9,17)=0d0
d2l(2,9,18)=0d0
d2l(2,10,1)=0d0
d2l(2,10,2)=0d0
d2l(2,10,3)=0d0
d2l(2,10,4)=0d0
d2l(2,10,5)=0d0
d2l(2,10,6)=0d0
d2l(2,10,7)=0d0
d2l(2,10,8)=0d0
d2l(2,10,9)=0d0
d2l(2,10,10)=0d0
d2l(2,10,11)=0d0
d2l(2,10,12)=0d0
d2l(2,10,13)=0d0
d2l(2,10,14)=0d0
d2l(2,10,15)=0d0
d2l(2,10,16)=0d0
d2l(2,10,17)=0d0
d2l(2,10,18)=0d0
d2l(2,11,1)=0d0
d2l(2,11,2)=0d0
d2l(2,11,3)=0d0
d2l(2,11,4)=0d0
d2l(2,11,5)=0d0
d2l(2,11,6)=0d0
d2l(2,11,7)=0d0
d2l(2,11,8)=0d0
d2l(2,11,9)=0d0
d2l(2,11,10)=0d0
d2l(2,11,11)=0d0
d2l(2,11,12)=0d0
d2l(2,11,13)=0d0
d2l(2,11,14)=0d0
d2l(2,11,15)=0d0
d2l(2,11,16)=0d0
d2l(2,11,17)=0d0
d2l(2,11,18)=0d0
d2l(2,12,1)=0d0
d2l(2,12,2)=0d0
d2l(2,12,3)=0d0
d2l(2,12,4)=0d0
d2l(2,12,5)=0d0
d2l(2,12,6)=0d0
d2l(2,12,7)=0d0
d2l(2,12,8)=0d0
d2l(2,12,9)=0d0
d2l(2,12,10)=0d0
d2l(2,12,11)=0d0
d2l(2,12,12)=0d0
d2l(2,12,13)=0d0
d2l(2,12,14)=0d0
d2l(2,12,15)=0d0
d2l(2,12,16)=0d0
d2l(2,12,17)=0d0
d2l(2,12,18)=0d0
d2l(2,13,1)=v(16572)
d2l(2,13,2)=v(16732)
d2l(2,13,3)=v(16877)
d2l(2,13,4)=0d0
d2l(2,13,5)=0d0
d2l(2,13,6)=0d0
d2l(2,13,7)=v(17106)
d2l(2,13,8)=v(17221)
d2l(2,13,9)=v(17321)
d2l(2,13,10)=0d0
d2l(2,13,11)=0d0
d2l(2,13,12)=0d0
d2l(2,13,13)=v(6446)*v(9150)+v(6444)*v(9207)+v(6442)*v(9224)-v(9802)
d2l(2,13,14)=v(17508)
d2l(2,13,15)=v(17509)
d2l(2,13,16)=0d0
d2l(2,13,17)=0d0
d2l(2,13,18)=0d0
d2l(2,14,1)=v(16573)
d2l(2,14,2)=v(16733)
d2l(2,14,3)=v(16878)
d2l(2,14,4)=0d0
d2l(2,14,5)=0d0
d2l(2,14,6)=0d0
d2l(2,14,7)=v(17107)
d2l(2,14,8)=v(17222)
d2l(2,14,9)=v(17322)
d2l(2,14,10)=0d0
d2l(2,14,11)=0d0
d2l(2,14,12)=0d0
d2l(2,14,13)=v(17508)
d2l(2,14,14)=v(6446)*v(9142)+v(6442)*v(9197)+v(6444)*v(9198)-v(9897)
d2l(2,14,15)=v(17579)
d2l(2,14,16)=0d0
d2l(2,14,17)=0d0
d2l(2,14,18)=0d0
d2l(2,15,1)=v(16574)
d2l(2,15,2)=v(16734)
d2l(2,15,3)=v(16879)
d2l(2,15,4)=0d0
d2l(2,15,5)=0d0
d2l(2,15,6)=0d0
d2l(2,15,7)=v(17108)
d2l(2,15,8)=v(17223)
d2l(2,15,9)=v(17323)
d2l(2,15,10)=0d0
d2l(2,15,11)=0d0
d2l(2,15,12)=0d0
d2l(2,15,13)=v(17509)
d2l(2,15,14)=v(17579)
d2l(2,15,15)=v(17663)+v(6442)*v(9130)+v(6444)*v(9131)+v(6446)*v(9132)
d2l(2,15,16)=0d0
d2l(2,15,17)=0d0
d2l(2,15,18)=0d0
d2l(2,16,1)=0d0
d2l(2,16,2)=0d0
d2l(2,16,3)=0d0
d2l(2,16,4)=0d0
d2l(2,16,5)=0d0
d2l(2,16,6)=0d0
d2l(2,16,7)=0d0
d2l(2,16,8)=0d0
d2l(2,16,9)=0d0
d2l(2,16,10)=0d0
d2l(2,16,11)=0d0
d2l(2,16,12)=0d0
d2l(2,16,13)=0d0
d2l(2,16,14)=0d0
d2l(2,16,15)=0d0
d2l(2,16,16)=0d0
d2l(2,16,17)=0d0
d2l(2,16,18)=0d0
d2l(2,17,1)=0d0
d2l(2,17,2)=0d0
d2l(2,17,3)=0d0
d2l(2,17,4)=0d0
d2l(2,17,5)=0d0
d2l(2,17,6)=0d0
d2l(2,17,7)=0d0
d2l(2,17,8)=0d0
d2l(2,17,9)=0d0
d2l(2,17,10)=0d0
d2l(2,17,11)=0d0
d2l(2,17,12)=0d0
d2l(2,17,13)=0d0
d2l(2,17,14)=0d0
d2l(2,17,15)=0d0
d2l(2,17,16)=0d0
d2l(2,17,17)=0d0
d2l(2,17,18)=0d0
d2l(2,18,1)=0d0
d2l(2,18,2)=0d0
d2l(2,18,3)=0d0
d2l(2,18,4)=0d0
d2l(2,18,5)=0d0
d2l(2,18,6)=0d0
d2l(2,18,7)=0d0
d2l(2,18,8)=0d0
d2l(2,18,9)=0d0
d2l(2,18,10)=0d0
d2l(2,18,11)=0d0
d2l(2,18,12)=0d0
d2l(2,18,13)=0d0
d2l(2,18,14)=0d0
d2l(2,18,15)=0d0
d2l(2,18,16)=0d0
d2l(2,18,17)=0d0
d2l(2,18,18)=0d0
d2l(3,1,1)=0d0
d2l(3,1,2)=0d0
d2l(3,1,3)=0d0
d2l(3,1,4)=0d0
d2l(3,1,5)=0d0
d2l(3,1,6)=0d0
d2l(3,1,7)=0d0
d2l(3,1,8)=0d0
d2l(3,1,9)=0d0
d2l(3,1,10)=0d0
d2l(3,1,11)=0d0
d2l(3,1,12)=0d0
d2l(3,1,13)=0d0
d2l(3,1,14)=0d0
d2l(3,1,15)=0d0
d2l(3,1,16)=0d0
d2l(3,1,17)=0d0
d2l(3,1,18)=0d0
d2l(3,2,1)=0d0
d2l(3,2,2)=0d0
d2l(3,2,3)=0d0
d2l(3,2,4)=0d0
d2l(3,2,5)=0d0
d2l(3,2,6)=0d0
d2l(3,2,7)=0d0
d2l(3,2,8)=0d0
d2l(3,2,9)=0d0
d2l(3,2,10)=0d0
d2l(3,2,11)=0d0
d2l(3,2,12)=0d0
d2l(3,2,13)=0d0
d2l(3,2,14)=0d0
d2l(3,2,15)=0d0
d2l(3,2,16)=0d0
d2l(3,2,17)=0d0
d2l(3,2,18)=0d0
d2l(3,3,1)=0d0
d2l(3,3,2)=0d0
d2l(3,3,3)=0d0
d2l(3,3,4)=0d0
d2l(3,3,5)=0d0
d2l(3,3,6)=0d0
d2l(3,3,7)=0d0
d2l(3,3,8)=0d0
d2l(3,3,9)=0d0
d2l(3,3,10)=0d0
d2l(3,3,11)=0d0
d2l(3,3,12)=0d0
d2l(3,3,13)=0d0
d2l(3,3,14)=0d0
d2l(3,3,15)=0d0
d2l(3,3,16)=0d0
d2l(3,3,17)=0d0
d2l(3,3,18)=0d0
d2l(3,4,1)=0d0
d2l(3,4,2)=0d0
d2l(3,4,3)=0d0
d2l(3,4,4)=0d0
d2l(3,4,5)=0d0
d2l(3,4,6)=0d0
d2l(3,4,7)=0d0
d2l(3,4,8)=0d0
d2l(3,4,9)=0d0
d2l(3,4,10)=0d0
d2l(3,4,11)=0d0
d2l(3,4,12)=0d0
d2l(3,4,13)=0d0
d2l(3,4,14)=0d0
d2l(3,4,15)=0d0
d2l(3,4,16)=0d0
d2l(3,4,17)=0d0
d2l(3,4,18)=0d0
d2l(3,5,1)=0d0
d2l(3,5,2)=0d0
d2l(3,5,3)=0d0
d2l(3,5,4)=0d0
d2l(3,5,5)=0d0
d2l(3,5,6)=0d0
d2l(3,5,7)=0d0
d2l(3,5,8)=0d0
d2l(3,5,9)=0d0
d2l(3,5,10)=0d0
d2l(3,5,11)=0d0
d2l(3,5,12)=0d0
d2l(3,5,13)=0d0
d2l(3,5,14)=0d0
d2l(3,5,15)=0d0
d2l(3,5,16)=0d0
d2l(3,5,17)=0d0
d2l(3,5,18)=0d0
d2l(3,6,1)=0d0
d2l(3,6,2)=0d0
d2l(3,6,3)=0d0
d2l(3,6,4)=0d0
d2l(3,6,5)=0d0
d2l(3,6,6)=0d0
d2l(3,6,7)=0d0
d2l(3,6,8)=0d0
d2l(3,6,9)=0d0
d2l(3,6,10)=0d0
d2l(3,6,11)=0d0
d2l(3,6,12)=0d0
d2l(3,6,13)=0d0
d2l(3,6,14)=0d0
d2l(3,6,15)=0d0
d2l(3,6,16)=0d0
d2l(3,6,17)=0d0
d2l(3,6,18)=0d0
d2l(3,7,1)=0d0
d2l(3,7,2)=0d0
d2l(3,7,3)=0d0
d2l(3,7,4)=0d0
d2l(3,7,5)=0d0
d2l(3,7,6)=0d0
d2l(3,7,7)=0d0
d2l(3,7,8)=0d0
d2l(3,7,9)=0d0
d2l(3,7,10)=0d0
d2l(3,7,11)=0d0
d2l(3,7,12)=0d0
d2l(3,7,13)=0d0
d2l(3,7,14)=0d0
d2l(3,7,15)=0d0
d2l(3,7,16)=0d0
d2l(3,7,17)=0d0
d2l(3,7,18)=0d0
d2l(3,8,1)=0d0
d2l(3,8,2)=0d0
d2l(3,8,3)=0d0
d2l(3,8,4)=0d0
d2l(3,8,5)=0d0
d2l(3,8,6)=0d0
d2l(3,8,7)=0d0
d2l(3,8,8)=0d0
d2l(3,8,9)=0d0
d2l(3,8,10)=0d0
d2l(3,8,11)=0d0
d2l(3,8,12)=0d0
d2l(3,8,13)=0d0
d2l(3,8,14)=0d0
d2l(3,8,15)=0d0
d2l(3,8,16)=0d0
d2l(3,8,17)=0d0
d2l(3,8,18)=0d0
d2l(3,9,1)=0d0
d2l(3,9,2)=0d0
d2l(3,9,3)=0d0
d2l(3,9,4)=0d0
d2l(3,9,5)=0d0
d2l(3,9,6)=0d0
d2l(3,9,7)=0d0
d2l(3,9,8)=0d0
d2l(3,9,9)=0d0
d2l(3,9,10)=0d0
d2l(3,9,11)=0d0
d2l(3,9,12)=0d0
d2l(3,9,13)=0d0
d2l(3,9,14)=0d0
d2l(3,9,15)=0d0
d2l(3,9,16)=0d0
d2l(3,9,17)=0d0
d2l(3,9,18)=0d0
d2l(3,10,1)=0d0
d2l(3,10,2)=0d0
d2l(3,10,3)=0d0
d2l(3,10,4)=0d0
d2l(3,10,5)=0d0
d2l(3,10,6)=0d0
d2l(3,10,7)=0d0
d2l(3,10,8)=0d0
d2l(3,10,9)=0d0
d2l(3,10,10)=0d0
d2l(3,10,11)=0d0
d2l(3,10,12)=0d0
d2l(3,10,13)=0d0
d2l(3,10,14)=0d0
d2l(3,10,15)=0d0
d2l(3,10,16)=0d0
d2l(3,10,17)=0d0
d2l(3,10,18)=0d0
d2l(3,11,1)=0d0
d2l(3,11,2)=0d0
d2l(3,11,3)=0d0
d2l(3,11,4)=0d0
d2l(3,11,5)=0d0
d2l(3,11,6)=0d0
d2l(3,11,7)=0d0
d2l(3,11,8)=0d0
d2l(3,11,9)=0d0
d2l(3,11,10)=0d0
d2l(3,11,11)=0d0
d2l(3,11,12)=0d0
d2l(3,11,13)=0d0
d2l(3,11,14)=0d0
d2l(3,11,15)=0d0
d2l(3,11,16)=0d0
d2l(3,11,17)=0d0
d2l(3,11,18)=0d0
d2l(3,12,1)=0d0
d2l(3,12,2)=0d0
d2l(3,12,3)=0d0
d2l(3,12,4)=0d0
d2l(3,12,5)=0d0
d2l(3,12,6)=0d0
d2l(3,12,7)=0d0
d2l(3,12,8)=0d0
d2l(3,12,9)=0d0
d2l(3,12,10)=0d0
d2l(3,12,11)=0d0
d2l(3,12,12)=0d0
d2l(3,12,13)=0d0
d2l(3,12,14)=0d0
d2l(3,12,15)=0d0
d2l(3,12,16)=0d0
d2l(3,12,17)=0d0
d2l(3,12,18)=0d0
d2l(3,13,1)=0d0
d2l(3,13,2)=0d0
d2l(3,13,3)=0d0
d2l(3,13,4)=0d0
d2l(3,13,5)=0d0
d2l(3,13,6)=0d0
d2l(3,13,7)=0d0
d2l(3,13,8)=0d0
d2l(3,13,9)=0d0
d2l(3,13,10)=0d0
d2l(3,13,11)=0d0
d2l(3,13,12)=0d0
d2l(3,13,13)=0d0
d2l(3,13,14)=0d0
d2l(3,13,15)=0d0
d2l(3,13,16)=0d0
d2l(3,13,17)=0d0
d2l(3,13,18)=0d0
d2l(3,14,1)=0d0
d2l(3,14,2)=0d0
d2l(3,14,3)=0d0
d2l(3,14,4)=0d0
d2l(3,14,5)=0d0
d2l(3,14,6)=0d0
d2l(3,14,7)=0d0
d2l(3,14,8)=0d0
d2l(3,14,9)=0d0
d2l(3,14,10)=0d0
d2l(3,14,11)=0d0
d2l(3,14,12)=0d0
d2l(3,14,13)=0d0
d2l(3,14,14)=0d0
d2l(3,14,15)=0d0
d2l(3,14,16)=0d0
d2l(3,14,17)=0d0
d2l(3,14,18)=0d0
d2l(3,15,1)=0d0
d2l(3,15,2)=0d0
d2l(3,15,3)=0d0
d2l(3,15,4)=0d0
d2l(3,15,5)=0d0
d2l(3,15,6)=0d0
d2l(3,15,7)=0d0
d2l(3,15,8)=0d0
d2l(3,15,9)=0d0
d2l(3,15,10)=0d0
d2l(3,15,11)=0d0
d2l(3,15,12)=0d0
d2l(3,15,13)=0d0
d2l(3,15,14)=0d0
d2l(3,15,15)=0d0
d2l(3,15,16)=0d0
d2l(3,15,17)=0d0
d2l(3,15,18)=0d0
d2l(3,16,1)=0d0
d2l(3,16,2)=0d0
d2l(3,16,3)=0d0
d2l(3,16,4)=0d0
d2l(3,16,5)=0d0
d2l(3,16,6)=0d0
d2l(3,16,7)=0d0
d2l(3,16,8)=0d0
d2l(3,16,9)=0d0
d2l(3,16,10)=0d0
d2l(3,16,11)=0d0
d2l(3,16,12)=0d0
d2l(3,16,13)=0d0
d2l(3,16,14)=0d0
d2l(3,16,15)=0d0
d2l(3,16,16)=0d0
d2l(3,16,17)=0d0
d2l(3,16,18)=0d0
d2l(3,17,1)=0d0
d2l(3,17,2)=0d0
d2l(3,17,3)=0d0
d2l(3,17,4)=0d0
d2l(3,17,5)=0d0
d2l(3,17,6)=0d0
d2l(3,17,7)=0d0
d2l(3,17,8)=0d0
d2l(3,17,9)=0d0
d2l(3,17,10)=0d0
d2l(3,17,11)=0d0
d2l(3,17,12)=0d0
d2l(3,17,13)=0d0
d2l(3,17,14)=0d0
d2l(3,17,15)=0d0
d2l(3,17,16)=0d0
d2l(3,17,17)=0d0
d2l(3,17,18)=0d0
d2l(3,18,1)=0d0
d2l(3,18,2)=0d0
d2l(3,18,3)=0d0
d2l(3,18,4)=0d0
d2l(3,18,5)=0d0
d2l(3,18,6)=0d0
d2l(3,18,7)=0d0
d2l(3,18,8)=0d0
d2l(3,18,9)=0d0
d2l(3,18,10)=0d0
d2l(3,18,11)=0d0
d2l(3,18,12)=0d0
d2l(3,18,13)=0d0
d2l(3,18,14)=0d0
d2l(3,18,15)=0d0
d2l(3,18,16)=0d0
d2l(3,18,17)=0d0
d2l(3,18,18)=0d0
d2l(4,1,1)=(-(v(10719)*v(6422))-v(11025)*v(6424)-v(11331)*v(6425)+v(10818)*v(6426)+v(11124)*v(6427)+v(11430)*v(6428))&
&/2d0
d2l(4,1,2)=v(16576)
d2l(4,1,3)=v(16577)
d2l(4,1,4)=(-(v(10721)*v(6422))-v(11027)*v(6424)-v(11333)*v(6425)+v(10820)*v(6426)+v(11126)*v(6427)+v(11432)*v(6428))&
&/2d0
d2l(4,1,5)=(-(v(10723)*v(6422))-v(11029)*v(6424)-v(11335)*v(6425)+v(10822)*v(6426)+v(11128)*v(6427)+v(11434)*v(6428))&
&/2d0
d2l(4,1,6)=(-(v(10725)*v(6422))-v(11031)*v(6424)-v(11337)*v(6425)+v(10824)*v(6426)+v(11130)*v(6427)+v(11436)*v(6428))&
&/2d0
d2l(4,1,7)=v(16581)
d2l(4,1,8)=v(16582)
d2l(4,1,9)=v(16583)
d2l(4,1,10)=0d0
d2l(4,1,11)=0d0
d2l(4,1,12)=0d0
d2l(4,1,13)=v(16584)
d2l(4,1,14)=v(16585)
d2l(4,1,15)=v(16586)
d2l(4,1,16)=0d0
d2l(4,1,17)=0d0
d2l(4,1,18)=0d0
d2l(4,2,1)=v(16576)
d2l(4,2,2)=(-(v(10712)*v(6422))-v(11018)*v(6424)-v(11324)*v(6425)+v(10811)*v(6426)+v(11117)*v(6427)+v(11423)*v(6428))&
&/2d0
d2l(4,2,3)=v(16736)
d2l(4,2,4)=(-(v(10714)*v(6422))-v(11020)*v(6424)-v(11326)*v(6425)+v(10813)*v(6426)+v(11119)*v(6427)+v(11425)*v(6428))&
&/2d0
d2l(4,2,5)=(-(v(10716)*v(6422))-v(11022)*v(6424)-v(11328)*v(6425)+v(10815)*v(6426)+v(11121)*v(6427)+v(11427)*v(6428))&
&/2d0
d2l(4,2,6)=(-(v(10718)*v(6422))-v(11024)*v(6424)-v(11330)*v(6425)+v(10817)*v(6426)+v(11123)*v(6427)+v(11429)*v(6428))&
&/2d0
d2l(4,2,7)=v(16740)
d2l(4,2,8)=v(16741)
d2l(4,2,9)=v(16742)
d2l(4,2,10)=0d0
d2l(4,2,11)=0d0
d2l(4,2,12)=0d0
d2l(4,2,13)=v(16743)
d2l(4,2,14)=v(16744)
d2l(4,2,15)=v(16745)
d2l(4,2,16)=0d0
d2l(4,2,17)=0d0
d2l(4,2,18)=0d0
d2l(4,3,1)=v(16577)
d2l(4,3,2)=v(16736)
d2l(4,3,3)=(-(v(10704)*v(6422))-v(11010)*v(6424)-v(11316)*v(6425)+v(10803)*v(6426)+v(11109)*v(6427)+v(11415)*v(6428))&
&/2d0
d2l(4,3,4)=(-(v(10706)*v(6422))-v(11012)*v(6424)-v(11318)*v(6425)+v(10805)*v(6426)+v(11111)*v(6427)+v(11417)*v(6428))&
&/2d0
d2l(4,3,5)=(-(v(10708)*v(6422))-v(11014)*v(6424)-v(11320)*v(6425)+v(10807)*v(6426)+v(11113)*v(6427)+v(11419)*v(6428))&
&/2d0
d2l(4,3,6)=(-(v(10710)*v(6422))-v(11016)*v(6424)-v(11322)*v(6425)+v(10809)*v(6426)+v(11115)*v(6427)+v(11421)*v(6428))&
&/2d0
d2l(4,3,7)=v(16884)
d2l(4,3,8)=v(16885)
d2l(4,3,9)=v(16886)
d2l(4,3,10)=0d0
d2l(4,3,11)=0d0
d2l(4,3,12)=0d0
d2l(4,3,13)=v(16887)
d2l(4,3,14)=v(16888)
d2l(4,3,15)=v(16889)
d2l(4,3,16)=0d0
d2l(4,3,17)=0d0
d2l(4,3,18)=0d0
d2l(4,4,1)=(-(v(10460)*v(6422))-v(10429)*v(6424)-v(10398)*v(6425)+v(10470)*v(6426)+v(10439)*v(6427)+v(10408)*v(6428))&
&/2d0
d2l(4,4,2)=(-(v(10461)*v(6422))-v(10430)*v(6424)-v(10399)*v(6425)+v(10471)*v(6426)+v(10440)*v(6427)+v(10409)*v(6428))&
&/2d0
d2l(4,4,3)=(-(v(10462)*v(6422))-v(10431)*v(6424)-v(10400)*v(6425)+v(10472)*v(6426)+v(10441)*v(6427)+v(10410)*v(6428))&
&/2d0
d2l(4,4,4)=(-(v(10463)*v(6422))-v(10432)*v(6424)-v(10401)*v(6425)+v(10473)*v(6426)+v(10442)*v(6427)+v(10411)*v(6428))&
&/2d0
d2l(4,4,5)=v(17002)
d2l(4,4,6)=v(17003)
d2l(4,4,7)=(-(v(10464)*v(6422))-v(10433)*v(6424)-v(10402)*v(6425)+v(10474)*v(6426)+v(10443)*v(6427)+v(10412)*v(6428))&
&/2d0
d2l(4,4,8)=(-(v(10465)*v(6422))-v(10434)*v(6424)-v(10403)*v(6425)+v(10475)*v(6426)+v(10444)*v(6427)+v(10413)*v(6428))&
&/2d0
d2l(4,4,9)=(-(v(10466)*v(6422))-v(10435)*v(6424)-v(10404)*v(6425)+v(10476)*v(6426)+v(10445)*v(6427)+v(10414)*v(6428))&
&/2d0
d2l(4,4,10)=0d0
d2l(4,4,11)=0d0
d2l(4,4,12)=0d0
d2l(4,4,13)=(-(v(10467)*v(6422))-v(10436)*v(6424)-v(10405)*v(6425)+v(10477)*v(6426)+v(10446)*v(6427)+v(10415)*v(6428))&
&/2d0
d2l(4,4,14)=(-(v(10468)*v(6422))-v(10437)*v(6424)-v(10406)*v(6425)+v(10478)*v(6426)+v(10447)*v(6427)+v(10416)*v(6428))&
&/2d0
d2l(4,4,15)=(-(v(10469)*v(6422))-v(10438)*v(6424)-v(10407)*v(6425)+v(10479)*v(6426)+v(10448)*v(6427)+v(10417)*v(6428))&
&/2d0
d2l(4,4,16)=0d0
d2l(4,4,17)=0d0
d2l(4,4,18)=0d0
d2l(4,5,1)=(-(v(10356)*v(6422))-v(10321)*v(6424)-v(10286)*v(6425)+v(10367)*v(6426)+v(10332)*v(6427)+v(10297)*v(6428))&
&/2d0
d2l(4,5,2)=(-(v(10357)*v(6422))-v(10322)*v(6424)-v(10287)*v(6425)+v(10368)*v(6426)+v(10333)*v(6427)+v(10298)*v(6428))&
&/2d0
d2l(4,5,3)=(-(v(10358)*v(6422))-v(10323)*v(6424)-v(10288)*v(6425)+v(10369)*v(6426)+v(10334)*v(6427)+v(10299)*v(6428))&
&/2d0
d2l(4,5,4)=v(17002)
d2l(4,5,5)=(-(v(10360)*v(6422))-v(10325)*v(6424)-v(10290)*v(6425)+v(10371)*v(6426)+v(10336)*v(6427)+v(10301)*v(6428))&
&/2d0
d2l(4,5,6)=v(17038)
d2l(4,5,7)=(-(v(10361)*v(6422))-v(10326)*v(6424)-v(10291)*v(6425)+v(10372)*v(6426)+v(10337)*v(6427)+v(10302)*v(6428))&
&/2d0
d2l(4,5,8)=(-(v(10362)*v(6422))-v(10327)*v(6424)-v(10292)*v(6425)+v(10373)*v(6426)+v(10338)*v(6427)+v(10303)*v(6428))&
&/2d0
d2l(4,5,9)=(-(v(10363)*v(6422))-v(10328)*v(6424)-v(10293)*v(6425)+v(10374)*v(6426)+v(10339)*v(6427)+v(10304)*v(6428))&
&/2d0
d2l(4,5,10)=0d0
d2l(4,5,11)=0d0
d2l(4,5,12)=0d0
d2l(4,5,13)=(-(v(10364)*v(6422))-v(10329)*v(6424)-v(10294)*v(6425)+v(10375)*v(6426)+v(10340)*v(6427)+v(10305)*v(6428))&
&/2d0
d2l(4,5,14)=(-(v(10365)*v(6422))-v(10330)*v(6424)-v(10295)*v(6425)+v(10376)*v(6426)+v(10341)*v(6427)+v(10306)*v(6428))&
&/2d0
d2l(4,5,15)=(-(v(10366)*v(6422))-v(10331)*v(6424)-v(10296)*v(6425)+v(10377)*v(6426)+v(10342)*v(6427)+v(10307)*v(6428))&
&/2d0
d2l(4,5,16)=0d0
d2l(4,5,17)=0d0
d2l(4,5,18)=0d0
d2l(4,6,1)=(-(v(10233)*v(6422))-v(10194)*v(6424)-v(10155)*v(6425)+v(10245)*v(6426)+v(10206)*v(6427)+v(10167)*v(6428))&
&/2d0
d2l(4,6,2)=(-(v(10234)*v(6422))-v(10195)*v(6424)-v(10156)*v(6425)+v(10246)*v(6426)+v(10207)*v(6427)+v(10168)*v(6428))&
&/2d0
d2l(4,6,3)=(-(v(10235)*v(6422))-v(10196)*v(6424)-v(10157)*v(6425)+v(10247)*v(6426)+v(10208)*v(6427)+v(10169)*v(6428))&
&/2d0
d2l(4,6,4)=v(17003)
d2l(4,6,5)=v(17038)
d2l(4,6,6)=(-(v(10238)*v(6422))-v(10199)*v(6424)-v(10160)*v(6425)+v(10250)*v(6426)+v(10211)*v(6427)+v(10172)*v(6428))&
&/2d0
d2l(4,6,7)=(-(v(10239)*v(6422))-v(10200)*v(6424)-v(10161)*v(6425)+v(10251)*v(6426)+v(10212)*v(6427)+v(10173)*v(6428))&
&/2d0
d2l(4,6,8)=(-(v(10240)*v(6422))-v(10201)*v(6424)-v(10162)*v(6425)+v(10252)*v(6426)+v(10213)*v(6427)+v(10174)*v(6428))&
&/2d0
d2l(4,6,9)=(-(v(10241)*v(6422))-v(10202)*v(6424)-v(10163)*v(6425)+v(10253)*v(6426)+v(10214)*v(6427)+v(10175)*v(6428))&
&/2d0
d2l(4,6,10)=0d0
d2l(4,6,11)=0d0
d2l(4,6,12)=0d0
d2l(4,6,13)=(-(v(10242)*v(6422))-v(10203)*v(6424)-v(10164)*v(6425)+v(10254)*v(6426)+v(10215)*v(6427)+v(10176)*v(6428))&
&/2d0
d2l(4,6,14)=(-(v(10243)*v(6422))-v(10204)*v(6424)-v(10165)*v(6425)+v(10255)*v(6426)+v(10216)*v(6427)+v(10177)*v(6428))&
&/2d0
d2l(4,6,15)=(-(v(10244)*v(6422))-v(10205)*v(6424)-v(10166)*v(6425)+v(10256)*v(6426)+v(10217)*v(6427)+v(10178)*v(6428))&
&/2d0
d2l(4,6,16)=0d0
d2l(4,6,17)=0d0
d2l(4,6,18)=0d0
d2l(4,7,1)=v(16581)
d2l(4,7,2)=v(16740)
d2l(4,7,3)=v(16884)
d2l(4,7,4)=(-(v(10696)*v(6422))-v(11002)*v(6424)-v(11308)*v(6425)+v(10795)*v(6426)+v(11101)*v(6427)+v(11407)*v(6428))&
&/2d0
d2l(4,7,5)=(-(v(10698)*v(6422))-v(11004)*v(6424)-v(11310)*v(6425)+v(10797)*v(6426)+v(11103)*v(6427)+v(11409)*v(6428))&
&/2d0
d2l(4,7,6)=(-(v(10700)*v(6422))-v(11006)*v(6424)-v(11312)*v(6425)+v(10799)*v(6426)+v(11105)*v(6427)+v(11411)*v(6428))&
&/2d0
d2l(4,7,7)=(-(v(10701)*v(6422))-v(11007)*v(6424)-v(11313)*v(6425)+v(10800)*v(6426)+v(11106)*v(6427)+v(11412)*v(6428))&
&/2d0
d2l(4,7,8)=v(17113)
d2l(4,7,9)=v(17114)
d2l(4,7,10)=0d0
d2l(4,7,11)=0d0
d2l(4,7,12)=0d0
d2l(4,7,13)=v(17115)
d2l(4,7,14)=v(17116)
d2l(4,7,15)=v(17117)
d2l(4,7,16)=0d0
d2l(4,7,17)=0d0
d2l(4,7,18)=0d0
d2l(4,8,1)=v(16582)
d2l(4,8,2)=v(16741)
d2l(4,8,3)=v(16885)
d2l(4,8,4)=(-(v(10685)*v(6422))-v(10991)*v(6424)-v(11297)*v(6425)+v(10784)*v(6426)+v(11090)*v(6427)+v(11396)*v(6428))&
&/2d0
d2l(4,8,5)=(-(v(10687)*v(6422))-v(10993)*v(6424)-v(11299)*v(6425)+v(10786)*v(6426)+v(11092)*v(6427)+v(11398)*v(6428))&
&/2d0
d2l(4,8,6)=(-(v(10689)*v(6422))-v(10995)*v(6424)-v(11301)*v(6425)+v(10788)*v(6426)+v(11094)*v(6427)+v(11400)*v(6428))&
&/2d0
d2l(4,8,7)=v(17113)
d2l(4,8,8)=(-(v(10691)*v(6422))-v(10997)*v(6424)-v(11303)*v(6425)+v(10790)*v(6426)+v(11096)*v(6427)+v(11402)*v(6428))&
&/2d0
d2l(4,8,9)=v(17228)
d2l(4,8,10)=0d0
d2l(4,8,11)=0d0
d2l(4,8,12)=0d0
d2l(4,8,13)=v(17229)
d2l(4,8,14)=v(17230)
d2l(4,8,15)=v(17231)
d2l(4,8,16)=0d0
d2l(4,8,17)=0d0
d2l(4,8,18)=0d0
d2l(4,9,1)=v(16583)
d2l(4,9,2)=v(16742)
d2l(4,9,3)=v(16886)
d2l(4,9,4)=(-(v(10673)*v(6422))-v(10979)*v(6424)-v(11285)*v(6425)+v(10772)*v(6426)+v(11078)*v(6427)+v(11384)*v(6428))&
&/2d0
d2l(4,9,5)=(-(v(10675)*v(6422))-v(10981)*v(6424)-v(11287)*v(6425)+v(10774)*v(6426)+v(11080)*v(6427)+v(11386)*v(6428))&
&/2d0
d2l(4,9,6)=(-(v(10677)*v(6422))-v(10983)*v(6424)-v(11289)*v(6425)+v(10776)*v(6426)+v(11082)*v(6427)+v(11388)*v(6428))&
&/2d0
d2l(4,9,7)=v(17114)
d2l(4,9,8)=v(17228)
d2l(4,9,9)=(-(v(10680)*v(6422))-v(10986)*v(6424)-v(11292)*v(6425)+v(10779)*v(6426)+v(11085)*v(6427)+v(11391)*v(6428))&
&/2d0
d2l(4,9,10)=0d0
d2l(4,9,11)=0d0
d2l(4,9,12)=0d0
d2l(4,9,13)=v(17328)
d2l(4,9,14)=v(17329)
d2l(4,9,15)=v(17330)
d2l(4,9,16)=0d0
d2l(4,9,17)=0d0
d2l(4,9,18)=0d0
d2l(4,10,1)=0d0
d2l(4,10,2)=0d0
d2l(4,10,3)=0d0
d2l(4,10,4)=0d0
d2l(4,10,5)=0d0
d2l(4,10,6)=0d0
d2l(4,10,7)=0d0
d2l(4,10,8)=0d0
d2l(4,10,9)=0d0
d2l(4,10,10)=0d0
d2l(4,10,11)=0d0
d2l(4,10,12)=0d0
d2l(4,10,13)=0d0
d2l(4,10,14)=0d0
d2l(4,10,15)=0d0
d2l(4,10,16)=0d0
d2l(4,10,17)=0d0
d2l(4,10,18)=0d0
d2l(4,11,1)=0d0
d2l(4,11,2)=0d0
d2l(4,11,3)=0d0
d2l(4,11,4)=0d0
d2l(4,11,5)=0d0
d2l(4,11,6)=0d0
d2l(4,11,7)=0d0
d2l(4,11,8)=0d0
d2l(4,11,9)=0d0
d2l(4,11,10)=0d0
d2l(4,11,11)=0d0
d2l(4,11,12)=0d0
d2l(4,11,13)=0d0
d2l(4,11,14)=0d0
d2l(4,11,15)=0d0
d2l(4,11,16)=0d0
d2l(4,11,17)=0d0
d2l(4,11,18)=0d0
d2l(4,12,1)=0d0
d2l(4,12,2)=0d0
d2l(4,12,3)=0d0
d2l(4,12,4)=0d0
d2l(4,12,5)=0d0
d2l(4,12,6)=0d0
d2l(4,12,7)=0d0
d2l(4,12,8)=0d0
d2l(4,12,9)=0d0
d2l(4,12,10)=0d0
d2l(4,12,11)=0d0
d2l(4,12,12)=0d0
d2l(4,12,13)=0d0
d2l(4,12,14)=0d0
d2l(4,12,15)=0d0
d2l(4,12,16)=0d0
d2l(4,12,17)=0d0
d2l(4,12,18)=0d0
d2l(4,13,1)=v(16584)
d2l(4,13,2)=v(16743)
d2l(4,13,3)=v(16887)
d2l(4,13,4)=(-(v(10660)*v(6422))-v(10966)*v(6424)-v(11272)*v(6425)+v(10759)*v(6426)+v(11065)*v(6427)+v(11371)*v(6428))&
&/2d0
d2l(4,13,5)=(-(v(10662)*v(6422))-v(10968)*v(6424)-v(11274)*v(6425)+v(10761)*v(6426)+v(11067)*v(6427)+v(11373)*v(6428))&
&/2d0
d2l(4,13,6)=(-(v(10664)*v(6422))-v(10970)*v(6424)-v(11276)*v(6425)+v(10763)*v(6426)+v(11069)*v(6427)+v(11375)*v(6428))&
&/2d0
d2l(4,13,7)=v(17115)
d2l(4,13,8)=v(17229)
d2l(4,13,9)=v(17328)
d2l(4,13,10)=0d0
d2l(4,13,11)=0d0
d2l(4,13,12)=0d0
d2l(4,13,13)=(-(v(10668)*v(6422))-v(10974)*v(6424)-v(11280)*v(6425)+v(10767)*v(6426)+v(11073)*v(6427)+v(11379)*v(6428))&
&/2d0
d2l(4,13,14)=v(17514)
d2l(4,13,15)=v(17515)
d2l(4,13,16)=0d0
d2l(4,13,17)=0d0
d2l(4,13,18)=0d0
d2l(4,14,1)=v(16585)
d2l(4,14,2)=v(16744)
d2l(4,14,3)=v(16888)
d2l(4,14,4)=(-(v(10646)*v(6422))-v(10952)*v(6424)-v(11258)*v(6425)+v(10745)*v(6426)+v(11051)*v(6427)+v(11357)*v(6428))&
&/2d0
d2l(4,14,5)=(-(v(10648)*v(6422))-v(10954)*v(6424)-v(11260)*v(6425)+v(10747)*v(6426)+v(11053)*v(6427)+v(11359)*v(6428))&
&/2d0
d2l(4,14,6)=(-(v(10650)*v(6422))-v(10956)*v(6424)-v(11262)*v(6425)+v(10749)*v(6426)+v(11055)*v(6427)+v(11361)*v(6428))&
&/2d0
d2l(4,14,7)=v(17116)
d2l(4,14,8)=v(17230)
d2l(4,14,9)=v(17329)
d2l(4,14,10)=0d0
d2l(4,14,11)=0d0
d2l(4,14,12)=0d0
d2l(4,14,13)=v(17514)
d2l(4,14,14)=(-(v(10655)*v(6422))-v(10961)*v(6424)-v(11267)*v(6425)+v(10754)*v(6426)+v(11060)*v(6427)+v(11366)*v(6428))&
&/2d0
d2l(4,14,15)=v(17584)
d2l(4,14,16)=0d0
d2l(4,14,17)=0d0
d2l(4,14,18)=0d0
d2l(4,15,1)=v(16586)
d2l(4,15,2)=v(16745)
d2l(4,15,3)=v(16889)
d2l(4,15,4)=(-(v(10631)*v(6422))-v(10937)*v(6424)-v(11243)*v(6425)+v(10730)*v(6426)+v(11036)*v(6427)+v(11342)*v(6428))&
&/2d0
d2l(4,15,5)=(-(v(10633)*v(6422))-v(10939)*v(6424)-v(11245)*v(6425)+v(10732)*v(6426)+v(11038)*v(6427)+v(11344)*v(6428))&
&/2d0
d2l(4,15,6)=(-(v(10635)*v(6422))-v(10941)*v(6424)-v(11247)*v(6425)+v(10734)*v(6426)+v(11040)*v(6427)+v(11346)*v(6428))&
&/2d0
d2l(4,15,7)=v(17117)
d2l(4,15,8)=v(17231)
d2l(4,15,9)=v(17330)
d2l(4,15,10)=0d0
d2l(4,15,11)=0d0
d2l(4,15,12)=0d0
d2l(4,15,13)=v(17515)
d2l(4,15,14)=v(17584)
d2l(4,15,15)=(-(v(10641)*v(6422))-v(10947)*v(6424)-v(11253)*v(6425)+v(10740)*v(6426)+v(11046)*v(6427)+v(11352)*v(6428))&
&/2d0
d2l(4,15,16)=0d0
d2l(4,15,17)=0d0
d2l(4,15,18)=0d0
d2l(4,16,1)=0d0
d2l(4,16,2)=0d0
d2l(4,16,3)=0d0
d2l(4,16,4)=0d0
d2l(4,16,5)=0d0
d2l(4,16,6)=0d0
d2l(4,16,7)=0d0
d2l(4,16,8)=0d0
d2l(4,16,9)=0d0
d2l(4,16,10)=0d0
d2l(4,16,11)=0d0
d2l(4,16,12)=0d0
d2l(4,16,13)=0d0
d2l(4,16,14)=0d0
d2l(4,16,15)=0d0
d2l(4,16,16)=0d0
d2l(4,16,17)=0d0
d2l(4,16,18)=0d0
d2l(4,17,1)=0d0
d2l(4,17,2)=0d0
d2l(4,17,3)=0d0
d2l(4,17,4)=0d0
d2l(4,17,5)=0d0
d2l(4,17,6)=0d0
d2l(4,17,7)=0d0
d2l(4,17,8)=0d0
d2l(4,17,9)=0d0
d2l(4,17,10)=0d0
d2l(4,17,11)=0d0
d2l(4,17,12)=0d0
d2l(4,17,13)=0d0
d2l(4,17,14)=0d0
d2l(4,17,15)=0d0
d2l(4,17,16)=0d0
d2l(4,17,17)=0d0
d2l(4,17,18)=0d0
d2l(4,18,1)=0d0
d2l(4,18,2)=0d0
d2l(4,18,3)=0d0
d2l(4,18,4)=0d0
d2l(4,18,5)=0d0
d2l(4,18,6)=0d0
d2l(4,18,7)=0d0
d2l(4,18,8)=0d0
d2l(4,18,9)=0d0
d2l(4,18,10)=0d0
d2l(4,18,11)=0d0
d2l(4,18,12)=0d0
d2l(4,18,13)=0d0
d2l(4,18,14)=0d0
d2l(4,18,15)=0d0
d2l(4,18,16)=0d0
d2l(4,18,17)=0d0
d2l(4,18,18)=0d0
d2l(5,1,1)=(-(v(10818)*v(6415))-v(11124)*v(6417)-v(11430)*v(6418)+v(10620)*v(6422)+v(10926)*v(6424)+v(11232)*v(6425))&
&/2d0
d2l(5,1,2)=v(16588)
d2l(5,1,3)=v(16589)
d2l(5,1,4)=(-(v(10820)*v(6415))-v(11126)*v(6417)-v(11432)*v(6418)+v(10622)*v(6422)+v(10928)*v(6424)+v(11234)*v(6425))&
&/2d0
d2l(5,1,5)=(-(v(10822)*v(6415))-v(11128)*v(6417)-v(11434)*v(6418)+v(10624)*v(6422)+v(10930)*v(6424)+v(11236)*v(6425))&
&/2d0
d2l(5,1,6)=(-(v(10824)*v(6415))-v(11130)*v(6417)-v(11436)*v(6418)+v(10626)*v(6422)+v(10932)*v(6424)+v(11238)*v(6425))&
&/2d0
d2l(5,1,7)=v(16593)
d2l(5,1,8)=v(16594)
d2l(5,1,9)=v(16595)
d2l(5,1,10)=0d0
d2l(5,1,11)=0d0
d2l(5,1,12)=0d0
d2l(5,1,13)=v(16596)
d2l(5,1,14)=v(16597)
d2l(5,1,15)=v(16598)
d2l(5,1,16)=0d0
d2l(5,1,17)=0d0
d2l(5,1,18)=0d0
d2l(5,2,1)=v(16588)
d2l(5,2,2)=(-(v(10811)*v(6415))-v(11117)*v(6417)-v(11423)*v(6418)+v(10613)*v(6422)+v(10919)*v(6424)+v(11225)*v(6425))&
&/2d0
d2l(5,2,3)=v(16747)
d2l(5,2,4)=(-(v(10813)*v(6415))-v(11119)*v(6417)-v(11425)*v(6418)+v(10615)*v(6422)+v(10921)*v(6424)+v(11227)*v(6425))&
&/2d0
d2l(5,2,5)=(-(v(10815)*v(6415))-v(11121)*v(6417)-v(11427)*v(6418)+v(10617)*v(6422)+v(10923)*v(6424)+v(11229)*v(6425))&
&/2d0
d2l(5,2,6)=(-(v(10817)*v(6415))-v(11123)*v(6417)-v(11429)*v(6418)+v(10619)*v(6422)+v(10925)*v(6424)+v(11231)*v(6425))&
&/2d0
d2l(5,2,7)=v(16751)
d2l(5,2,8)=v(16752)
d2l(5,2,9)=v(16753)
d2l(5,2,10)=0d0
d2l(5,2,11)=0d0
d2l(5,2,12)=0d0
d2l(5,2,13)=v(16754)
d2l(5,2,14)=v(16755)
d2l(5,2,15)=v(16756)
d2l(5,2,16)=0d0
d2l(5,2,17)=0d0
d2l(5,2,18)=0d0
d2l(5,3,1)=v(16589)
d2l(5,3,2)=v(16747)
d2l(5,3,3)=(-(v(10803)*v(6415))-v(11109)*v(6417)-v(11415)*v(6418)+v(10605)*v(6422)+v(10911)*v(6424)+v(11217)*v(6425))&
&/2d0
d2l(5,3,4)=(-(v(10805)*v(6415))-v(11111)*v(6417)-v(11417)*v(6418)+v(10607)*v(6422)+v(10913)*v(6424)+v(11219)*v(6425))&
&/2d0
d2l(5,3,5)=(-(v(10807)*v(6415))-v(11113)*v(6417)-v(11419)*v(6418)+v(10609)*v(6422)+v(10915)*v(6424)+v(11221)*v(6425))&
&/2d0
d2l(5,3,6)=(-(v(10809)*v(6415))-v(11115)*v(6417)-v(11421)*v(6418)+v(10611)*v(6422)+v(10917)*v(6424)+v(11223)*v(6425))&
&/2d0
d2l(5,3,7)=v(16894)
d2l(5,3,8)=v(16895)
d2l(5,3,9)=v(16896)
d2l(5,3,10)=0d0
d2l(5,3,11)=0d0
d2l(5,3,12)=0d0
d2l(5,3,13)=v(16897)
d2l(5,3,14)=v(16898)
d2l(5,3,15)=v(16899)
d2l(5,3,16)=0d0
d2l(5,3,17)=0d0
d2l(5,3,18)=0d0
d2l(5,4,1)=(-(v(10470)*v(6415))-v(10439)*v(6417)-v(10408)*v(6418)+v(10450)*v(6422)+v(10419)*v(6424)+v(10388)*v(6425))&
&/2d0
d2l(5,4,2)=(-(v(10471)*v(6415))-v(10440)*v(6417)-v(10409)*v(6418)+v(10451)*v(6422)+v(10420)*v(6424)+v(10389)*v(6425))&
&/2d0
d2l(5,4,3)=(-(v(10472)*v(6415))-v(10441)*v(6417)-v(10410)*v(6418)+v(10452)*v(6422)+v(10421)*v(6424)+v(10390)*v(6425))&
&/2d0
d2l(5,4,4)=(-(v(10473)*v(6415))-v(10442)*v(6417)-v(10411)*v(6418)+v(10453)*v(6422)+v(10422)*v(6424)+v(10391)*v(6425))&
&/2d0
d2l(5,4,5)=v(17014)
d2l(5,4,6)=v(17015)
d2l(5,4,7)=(-(v(10474)*v(6415))-v(10443)*v(6417)-v(10412)*v(6418)+v(10454)*v(6422)+v(10423)*v(6424)+v(10392)*v(6425))&
&/2d0
d2l(5,4,8)=(-(v(10475)*v(6415))-v(10444)*v(6417)-v(10413)*v(6418)+v(10455)*v(6422)+v(10424)*v(6424)+v(10393)*v(6425))&
&/2d0
d2l(5,4,9)=(-(v(10476)*v(6415))-v(10445)*v(6417)-v(10414)*v(6418)+v(10456)*v(6422)+v(10425)*v(6424)+v(10394)*v(6425))&
&/2d0
d2l(5,4,10)=0d0
d2l(5,4,11)=0d0
d2l(5,4,12)=0d0
d2l(5,4,13)=(-(v(10477)*v(6415))-v(10446)*v(6417)-v(10415)*v(6418)+v(10457)*v(6422)+v(10426)*v(6424)+v(10395)*v(6425))&
&/2d0
d2l(5,4,14)=(-(v(10478)*v(6415))-v(10447)*v(6417)-v(10416)*v(6418)+v(10458)*v(6422)+v(10427)*v(6424)+v(10396)*v(6425))&
&/2d0
d2l(5,4,15)=(-(v(10479)*v(6415))-v(10448)*v(6417)-v(10417)*v(6418)+v(10459)*v(6422)+v(10428)*v(6424)+v(10397)*v(6425))&
&/2d0
d2l(5,4,16)=0d0
d2l(5,4,17)=0d0
d2l(5,4,18)=0d0
d2l(5,5,1)=(-(v(10367)*v(6415))-v(10332)*v(6417)-v(10297)*v(6418)+v(10345)*v(6422)+v(10310)*v(6424)+v(10275)*v(6425))&
&/2d0
d2l(5,5,2)=(-(v(10368)*v(6415))-v(10333)*v(6417)-v(10298)*v(6418)+v(10346)*v(6422)+v(10311)*v(6424)+v(10276)*v(6425))&
&/2d0
d2l(5,5,3)=(-(v(10369)*v(6415))-v(10334)*v(6417)-v(10299)*v(6418)+v(10347)*v(6422)+v(10312)*v(6424)+v(10277)*v(6425))&
&/2d0
d2l(5,5,4)=v(17014)
d2l(5,5,5)=(-(v(10371)*v(6415))-v(10336)*v(6417)-v(10301)*v(6418)+v(10349)*v(6422)+v(10314)*v(6424)+v(10279)*v(6425))&
&/2d0
d2l(5,5,6)=v(17049)
d2l(5,5,7)=(-(v(10372)*v(6415))-v(10337)*v(6417)-v(10302)*v(6418)+v(10350)*v(6422)+v(10315)*v(6424)+v(10280)*v(6425))&
&/2d0
d2l(5,5,8)=(-(v(10373)*v(6415))-v(10338)*v(6417)-v(10303)*v(6418)+v(10351)*v(6422)+v(10316)*v(6424)+v(10281)*v(6425))&
&/2d0
d2l(5,5,9)=(-(v(10374)*v(6415))-v(10339)*v(6417)-v(10304)*v(6418)+v(10352)*v(6422)+v(10317)*v(6424)+v(10282)*v(6425))&
&/2d0
d2l(5,5,10)=0d0
d2l(5,5,11)=0d0
d2l(5,5,12)=0d0
d2l(5,5,13)=(-(v(10375)*v(6415))-v(10340)*v(6417)-v(10305)*v(6418)+v(10353)*v(6422)+v(10318)*v(6424)+v(10283)*v(6425))&
&/2d0
d2l(5,5,14)=(-(v(10376)*v(6415))-v(10341)*v(6417)-v(10306)*v(6418)+v(10354)*v(6422)+v(10319)*v(6424)+v(10284)*v(6425))&
&/2d0
d2l(5,5,15)=(-(v(10377)*v(6415))-v(10342)*v(6417)-v(10307)*v(6418)+v(10355)*v(6422)+v(10320)*v(6424)+v(10285)*v(6425))&
&/2d0
d2l(5,5,16)=0d0
d2l(5,5,17)=0d0
d2l(5,5,18)=0d0
d2l(5,6,1)=(-(v(10245)*v(6415))-v(10206)*v(6417)-v(10167)*v(6418)+v(10221)*v(6422)+v(10182)*v(6424)+v(10143)*v(6425))&
&/2d0
d2l(5,6,2)=(-(v(10246)*v(6415))-v(10207)*v(6417)-v(10168)*v(6418)+v(10222)*v(6422)+v(10183)*v(6424)+v(10144)*v(6425))&
&/2d0
d2l(5,6,3)=(-(v(10247)*v(6415))-v(10208)*v(6417)-v(10169)*v(6418)+v(10223)*v(6422)+v(10184)*v(6424)+v(10145)*v(6425))&
&/2d0
d2l(5,6,4)=v(17015)
d2l(5,6,5)=v(17049)
d2l(5,6,6)=(-(v(10250)*v(6415))-v(10211)*v(6417)-v(10172)*v(6418)+v(10226)*v(6422)+v(10187)*v(6424)+v(10148)*v(6425))&
&/2d0
d2l(5,6,7)=(-(v(10251)*v(6415))-v(10212)*v(6417)-v(10173)*v(6418)+v(10227)*v(6422)+v(10188)*v(6424)+v(10149)*v(6425))&
&/2d0
d2l(5,6,8)=(-(v(10252)*v(6415))-v(10213)*v(6417)-v(10174)*v(6418)+v(10228)*v(6422)+v(10189)*v(6424)+v(10150)*v(6425))&
&/2d0
d2l(5,6,9)=(-(v(10253)*v(6415))-v(10214)*v(6417)-v(10175)*v(6418)+v(10229)*v(6422)+v(10190)*v(6424)+v(10151)*v(6425))&
&/2d0
d2l(5,6,10)=0d0
d2l(5,6,11)=0d0
d2l(5,6,12)=0d0
d2l(5,6,13)=(-(v(10254)*v(6415))-v(10215)*v(6417)-v(10176)*v(6418)+v(10230)*v(6422)+v(10191)*v(6424)+v(10152)*v(6425))&
&/2d0
d2l(5,6,14)=(-(v(10255)*v(6415))-v(10216)*v(6417)-v(10177)*v(6418)+v(10231)*v(6422)+v(10192)*v(6424)+v(10153)*v(6425))&
&/2d0
d2l(5,6,15)=(-(v(10256)*v(6415))-v(10217)*v(6417)-v(10178)*v(6418)+v(10232)*v(6422)+v(10193)*v(6424)+v(10154)*v(6425))&
&/2d0
d2l(5,6,16)=0d0
d2l(5,6,17)=0d0
d2l(5,6,18)=0d0
d2l(5,7,1)=v(16593)
d2l(5,7,2)=v(16751)
d2l(5,7,3)=v(16894)
d2l(5,7,4)=(-(v(10795)*v(6415))-v(11101)*v(6417)-v(11407)*v(6418)+v(10597)*v(6422)+v(10903)*v(6424)+v(11209)*v(6425))&
&/2d0
d2l(5,7,5)=(-(v(10797)*v(6415))-v(11103)*v(6417)-v(11409)*v(6418)+v(10599)*v(6422)+v(10905)*v(6424)+v(11211)*v(6425))&
&/2d0
d2l(5,7,6)=(-(v(10799)*v(6415))-v(11105)*v(6417)-v(11411)*v(6418)+v(10601)*v(6422)+v(10907)*v(6424)+v(11213)*v(6425))&
&/2d0
d2l(5,7,7)=(-(v(10800)*v(6415))-v(11106)*v(6417)-v(11412)*v(6418)+v(10602)*v(6422)+v(10908)*v(6424)+v(11214)*v(6425))&
&/2d0
d2l(5,7,8)=v(17122)
d2l(5,7,9)=v(17123)
d2l(5,7,10)=0d0
d2l(5,7,11)=0d0
d2l(5,7,12)=0d0
d2l(5,7,13)=v(17124)
d2l(5,7,14)=v(17125)
d2l(5,7,15)=v(17126)
d2l(5,7,16)=0d0
d2l(5,7,17)=0d0
d2l(5,7,18)=0d0
d2l(5,8,1)=v(16594)
d2l(5,8,2)=v(16752)
d2l(5,8,3)=v(16895)
d2l(5,8,4)=(-(v(10784)*v(6415))-v(11090)*v(6417)-v(11396)*v(6418)+v(10586)*v(6422)+v(10892)*v(6424)+v(11198)*v(6425))&
&/2d0
d2l(5,8,5)=(-(v(10786)*v(6415))-v(11092)*v(6417)-v(11398)*v(6418)+v(10588)*v(6422)+v(10894)*v(6424)+v(11200)*v(6425))&
&/2d0
d2l(5,8,6)=(-(v(10788)*v(6415))-v(11094)*v(6417)-v(11400)*v(6418)+v(10590)*v(6422)+v(10896)*v(6424)+v(11202)*v(6425))&
&/2d0
d2l(5,8,7)=v(17122)
d2l(5,8,8)=(-(v(10790)*v(6415))-v(11096)*v(6417)-v(11402)*v(6418)+v(10592)*v(6422)+v(10898)*v(6424)+v(11204)*v(6425))&
&/2d0
d2l(5,8,9)=v(17236)
d2l(5,8,10)=0d0
d2l(5,8,11)=0d0
d2l(5,8,12)=0d0
d2l(5,8,13)=v(17237)
d2l(5,8,14)=v(17238)
d2l(5,8,15)=v(17239)
d2l(5,8,16)=0d0
d2l(5,8,17)=0d0
d2l(5,8,18)=0d0
d2l(5,9,1)=v(16595)
d2l(5,9,2)=v(16753)
d2l(5,9,3)=v(16896)
d2l(5,9,4)=(-(v(10772)*v(6415))-v(11078)*v(6417)-v(11384)*v(6418)+v(10574)*v(6422)+v(10880)*v(6424)+v(11186)*v(6425))&
&/2d0
d2l(5,9,5)=(-(v(10774)*v(6415))-v(11080)*v(6417)-v(11386)*v(6418)+v(10576)*v(6422)+v(10882)*v(6424)+v(11188)*v(6425))&
&/2d0
d2l(5,9,6)=(-(v(10776)*v(6415))-v(11082)*v(6417)-v(11388)*v(6418)+v(10578)*v(6422)+v(10884)*v(6424)+v(11190)*v(6425))&
&/2d0
d2l(5,9,7)=v(17123)
d2l(5,9,8)=v(17236)
d2l(5,9,9)=(-(v(10779)*v(6415))-v(11085)*v(6417)-v(11391)*v(6418)+v(10581)*v(6422)+v(10887)*v(6424)+v(11193)*v(6425))&
&/2d0
d2l(5,9,10)=0d0
d2l(5,9,11)=0d0
d2l(5,9,12)=0d0
d2l(5,9,13)=v(17335)
d2l(5,9,14)=v(17336)
d2l(5,9,15)=v(17337)
d2l(5,9,16)=0d0
d2l(5,9,17)=0d0
d2l(5,9,18)=0d0
d2l(5,10,1)=0d0
d2l(5,10,2)=0d0
d2l(5,10,3)=0d0
d2l(5,10,4)=0d0
d2l(5,10,5)=0d0
d2l(5,10,6)=0d0
d2l(5,10,7)=0d0
d2l(5,10,8)=0d0
d2l(5,10,9)=0d0
d2l(5,10,10)=0d0
d2l(5,10,11)=0d0
d2l(5,10,12)=0d0
d2l(5,10,13)=0d0
d2l(5,10,14)=0d0
d2l(5,10,15)=0d0
d2l(5,10,16)=0d0
d2l(5,10,17)=0d0
d2l(5,10,18)=0d0
d2l(5,11,1)=0d0
d2l(5,11,2)=0d0
d2l(5,11,3)=0d0
d2l(5,11,4)=0d0
d2l(5,11,5)=0d0
d2l(5,11,6)=0d0
d2l(5,11,7)=0d0
d2l(5,11,8)=0d0
d2l(5,11,9)=0d0
d2l(5,11,10)=0d0
d2l(5,11,11)=0d0
d2l(5,11,12)=0d0
d2l(5,11,13)=0d0
d2l(5,11,14)=0d0
d2l(5,11,15)=0d0
d2l(5,11,16)=0d0
d2l(5,11,17)=0d0
d2l(5,11,18)=0d0
d2l(5,12,1)=0d0
d2l(5,12,2)=0d0
d2l(5,12,3)=0d0
d2l(5,12,4)=0d0
d2l(5,12,5)=0d0
d2l(5,12,6)=0d0
d2l(5,12,7)=0d0
d2l(5,12,8)=0d0
d2l(5,12,9)=0d0
d2l(5,12,10)=0d0
d2l(5,12,11)=0d0
d2l(5,12,12)=0d0
d2l(5,12,13)=0d0
d2l(5,12,14)=0d0
d2l(5,12,15)=0d0
d2l(5,12,16)=0d0
d2l(5,12,17)=0d0
d2l(5,12,18)=0d0
d2l(5,13,1)=v(16596)
d2l(5,13,2)=v(16754)
d2l(5,13,3)=v(16897)
d2l(5,13,4)=(-(v(10759)*v(6415))-v(11065)*v(6417)-v(11371)*v(6418)+v(10561)*v(6422)+v(10867)*v(6424)+v(11173)*v(6425))&
&/2d0
d2l(5,13,5)=(-(v(10761)*v(6415))-v(11067)*v(6417)-v(11373)*v(6418)+v(10563)*v(6422)+v(10869)*v(6424)+v(11175)*v(6425))&
&/2d0
d2l(5,13,6)=(-(v(10763)*v(6415))-v(11069)*v(6417)-v(11375)*v(6418)+v(10565)*v(6422)+v(10871)*v(6424)+v(11177)*v(6425))&
&/2d0
d2l(5,13,7)=v(17124)
d2l(5,13,8)=v(17237)
d2l(5,13,9)=v(17335)
d2l(5,13,10)=0d0
d2l(5,13,11)=0d0
d2l(5,13,12)=0d0
d2l(5,13,13)=(-(v(10767)*v(6415))-v(11073)*v(6417)-v(11379)*v(6418)+v(10569)*v(6422)+v(10875)*v(6424)+v(11181)*v(6425))&
&/2d0
d2l(5,13,14)=v(17520)
d2l(5,13,15)=v(17521)
d2l(5,13,16)=0d0
d2l(5,13,17)=0d0
d2l(5,13,18)=0d0
d2l(5,14,1)=v(16597)
d2l(5,14,2)=v(16755)
d2l(5,14,3)=v(16898)
d2l(5,14,4)=(-(v(10745)*v(6415))-v(11051)*v(6417)-v(11357)*v(6418)+v(10547)*v(6422)+v(10853)*v(6424)+v(11159)*v(6425))&
&/2d0
d2l(5,14,5)=(-(v(10747)*v(6415))-v(11053)*v(6417)-v(11359)*v(6418)+v(10549)*v(6422)+v(10855)*v(6424)+v(11161)*v(6425))&
&/2d0
d2l(5,14,6)=(-(v(10749)*v(6415))-v(11055)*v(6417)-v(11361)*v(6418)+v(10551)*v(6422)+v(10857)*v(6424)+v(11163)*v(6425))&
&/2d0
d2l(5,14,7)=v(17125)
d2l(5,14,8)=v(17238)
d2l(5,14,9)=v(17336)
d2l(5,14,10)=0d0
d2l(5,14,11)=0d0
d2l(5,14,12)=0d0
d2l(5,14,13)=v(17520)
d2l(5,14,14)=(-(v(10754)*v(6415))-v(11060)*v(6417)-v(11366)*v(6418)+v(10556)*v(6422)+v(10862)*v(6424)+v(11168)*v(6425))&
&/2d0
d2l(5,14,15)=v(17589)
d2l(5,14,16)=0d0
d2l(5,14,17)=0d0
d2l(5,14,18)=0d0
d2l(5,15,1)=v(16598)
d2l(5,15,2)=v(16756)
d2l(5,15,3)=v(16899)
d2l(5,15,4)=(-(v(10730)*v(6415))-v(11036)*v(6417)-v(11342)*v(6418)+v(10532)*v(6422)+v(10838)*v(6424)+v(11144)*v(6425))&
&/2d0
d2l(5,15,5)=(-(v(10732)*v(6415))-v(11038)*v(6417)-v(11344)*v(6418)+v(10534)*v(6422)+v(10840)*v(6424)+v(11146)*v(6425))&
&/2d0
d2l(5,15,6)=(-(v(10734)*v(6415))-v(11040)*v(6417)-v(11346)*v(6418)+v(10536)*v(6422)+v(10842)*v(6424)+v(11148)*v(6425))&
&/2d0
d2l(5,15,7)=v(17126)
d2l(5,15,8)=v(17239)
d2l(5,15,9)=v(17337)
d2l(5,15,10)=0d0
d2l(5,15,11)=0d0
d2l(5,15,12)=0d0
d2l(5,15,13)=v(17521)
d2l(5,15,14)=v(17589)
d2l(5,15,15)=(-(v(10740)*v(6415))-v(11046)*v(6417)-v(11352)*v(6418)+v(10542)*v(6422)+v(10848)*v(6424)+v(11154)*v(6425))&
&/2d0
d2l(5,15,16)=0d0
d2l(5,15,17)=0d0
d2l(5,15,18)=0d0
d2l(5,16,1)=0d0
d2l(5,16,2)=0d0
d2l(5,16,3)=0d0
d2l(5,16,4)=0d0
d2l(5,16,5)=0d0
d2l(5,16,6)=0d0
d2l(5,16,7)=0d0
d2l(5,16,8)=0d0
d2l(5,16,9)=0d0
d2l(5,16,10)=0d0
d2l(5,16,11)=0d0
d2l(5,16,12)=0d0
d2l(5,16,13)=0d0
d2l(5,16,14)=0d0
d2l(5,16,15)=0d0
d2l(5,16,16)=0d0
d2l(5,16,17)=0d0
d2l(5,16,18)=0d0
d2l(5,17,1)=0d0
d2l(5,17,2)=0d0
d2l(5,17,3)=0d0
d2l(5,17,4)=0d0
d2l(5,17,5)=0d0
d2l(5,17,6)=0d0
d2l(5,17,7)=0d0
d2l(5,17,8)=0d0
d2l(5,17,9)=0d0
d2l(5,17,10)=0d0
d2l(5,17,11)=0d0
d2l(5,17,12)=0d0
d2l(5,17,13)=0d0
d2l(5,17,14)=0d0
d2l(5,17,15)=0d0
d2l(5,17,16)=0d0
d2l(5,17,17)=0d0
d2l(5,17,18)=0d0
d2l(5,18,1)=0d0
d2l(5,18,2)=0d0
d2l(5,18,3)=0d0
d2l(5,18,4)=0d0
d2l(5,18,5)=0d0
d2l(5,18,6)=0d0
d2l(5,18,7)=0d0
d2l(5,18,8)=0d0
d2l(5,18,9)=0d0
d2l(5,18,10)=0d0
d2l(5,18,11)=0d0
d2l(5,18,12)=0d0
d2l(5,18,13)=0d0
d2l(5,18,14)=0d0
d2l(5,18,15)=0d0
d2l(5,18,16)=0d0
d2l(5,18,17)=0d0
d2l(5,18,18)=0d0
d2l(6,1,1)=(v(10719)*v(6415)+v(11025)*v(6417)+v(11331)*v(6418)-v(10620)*v(6426)-v(10926)*v(6427)-v(11232)*v(6428))/2d0
d2l(6,1,2)=v(16600)
d2l(6,1,3)=v(16601)
d2l(6,1,4)=(v(10721)*v(6415)+v(11027)*v(6417)+v(11333)*v(6418)-v(10622)*v(6426)-v(10928)*v(6427)-v(11234)*v(6428))/2d0
d2l(6,1,5)=(v(10723)*v(6415)+v(11029)*v(6417)+v(11335)*v(6418)-v(10624)*v(6426)-v(10930)*v(6427)-v(11236)*v(6428))/2d0
d2l(6,1,6)=(v(10725)*v(6415)+v(11031)*v(6417)+v(11337)*v(6418)-v(10626)*v(6426)-v(10932)*v(6427)-v(11238)*v(6428))/2d0
d2l(6,1,7)=v(16605)
d2l(6,1,8)=v(16606)
d2l(6,1,9)=v(16607)
d2l(6,1,10)=0d0
d2l(6,1,11)=0d0
d2l(6,1,12)=0d0
d2l(6,1,13)=v(16608)
d2l(6,1,14)=v(16609)
d2l(6,1,15)=v(16610)
d2l(6,1,16)=0d0
d2l(6,1,17)=0d0
d2l(6,1,18)=0d0
d2l(6,2,1)=v(16600)
d2l(6,2,2)=(v(10712)*v(6415)+v(11018)*v(6417)+v(11324)*v(6418)-v(10613)*v(6426)-v(10919)*v(6427)-v(11225)*v(6428))/2d0
d2l(6,2,3)=v(16758)
d2l(6,2,4)=(v(10714)*v(6415)+v(11020)*v(6417)+v(11326)*v(6418)-v(10615)*v(6426)-v(10921)*v(6427)-v(11227)*v(6428))/2d0
d2l(6,2,5)=(v(10716)*v(6415)+v(11022)*v(6417)+v(11328)*v(6418)-v(10617)*v(6426)-v(10923)*v(6427)-v(11229)*v(6428))/2d0
d2l(6,2,6)=(v(10718)*v(6415)+v(11024)*v(6417)+v(11330)*v(6418)-v(10619)*v(6426)-v(10925)*v(6427)-v(11231)*v(6428))/2d0
d2l(6,2,7)=v(16762)
d2l(6,2,8)=v(16763)
d2l(6,2,9)=v(16764)
d2l(6,2,10)=0d0
d2l(6,2,11)=0d0
d2l(6,2,12)=0d0
d2l(6,2,13)=v(16765)
d2l(6,2,14)=v(16766)
d2l(6,2,15)=v(16767)
d2l(6,2,16)=0d0
d2l(6,2,17)=0d0
d2l(6,2,18)=0d0
d2l(6,3,1)=v(16601)
d2l(6,3,2)=v(16758)
d2l(6,3,3)=(v(10704)*v(6415)+v(11010)*v(6417)+v(11316)*v(6418)-v(10605)*v(6426)-v(10911)*v(6427)-v(11217)*v(6428))/2d0
d2l(6,3,4)=(v(10706)*v(6415)+v(11012)*v(6417)+v(11318)*v(6418)-v(10607)*v(6426)-v(10913)*v(6427)-v(11219)*v(6428))/2d0
d2l(6,3,5)=(v(10708)*v(6415)+v(11014)*v(6417)+v(11320)*v(6418)-v(10609)*v(6426)-v(10915)*v(6427)-v(11221)*v(6428))/2d0
d2l(6,3,6)=(v(10710)*v(6415)+v(11016)*v(6417)+v(11322)*v(6418)-v(10611)*v(6426)-v(10917)*v(6427)-v(11223)*v(6428))/2d0
d2l(6,3,7)=v(16904)
d2l(6,3,8)=v(16905)
d2l(6,3,9)=v(16906)
d2l(6,3,10)=0d0
d2l(6,3,11)=0d0
d2l(6,3,12)=0d0
d2l(6,3,13)=v(16907)
d2l(6,3,14)=v(16908)
d2l(6,3,15)=v(16909)
d2l(6,3,16)=0d0
d2l(6,3,17)=0d0
d2l(6,3,18)=0d0
d2l(6,4,1)=(v(10460)*v(6415)+v(10429)*v(6417)+v(10398)*v(6418)-v(10450)*v(6426)-v(10419)*v(6427)-v(10388)*v(6428))/2d0
d2l(6,4,2)=(v(10461)*v(6415)+v(10430)*v(6417)+v(10399)*v(6418)-v(10451)*v(6426)-v(10420)*v(6427)-v(10389)*v(6428))/2d0
d2l(6,4,3)=(v(10462)*v(6415)+v(10431)*v(6417)+v(10400)*v(6418)-v(10452)*v(6426)-v(10421)*v(6427)-v(10390)*v(6428))/2d0
d2l(6,4,4)=(v(10463)*v(6415)+v(10432)*v(6417)+v(10401)*v(6418)-v(10453)*v(6426)-v(10422)*v(6427)-v(10391)*v(6428))/2d0
d2l(6,4,5)=v(17026)
d2l(6,4,6)=v(17027)
d2l(6,4,7)=(v(10464)*v(6415)+v(10433)*v(6417)+v(10402)*v(6418)-v(10454)*v(6426)-v(10423)*v(6427)-v(10392)*v(6428))/2d0
d2l(6,4,8)=(v(10465)*v(6415)+v(10434)*v(6417)+v(10403)*v(6418)-v(10455)*v(6426)-v(10424)*v(6427)-v(10393)*v(6428))/2d0
d2l(6,4,9)=(v(10466)*v(6415)+v(10435)*v(6417)+v(10404)*v(6418)-v(10456)*v(6426)-v(10425)*v(6427)-v(10394)*v(6428))/2d0
d2l(6,4,10)=0d0
d2l(6,4,11)=0d0
d2l(6,4,12)=0d0
d2l(6,4,13)=(v(10467)*v(6415)+v(10436)*v(6417)+v(10405)*v(6418)-v(10457)*v(6426)-v(10426)*v(6427)-v(10395)*v(6428))/2d0
d2l(6,4,14)=(v(10468)*v(6415)+v(10437)*v(6417)+v(10406)*v(6418)-v(10458)*v(6426)-v(10427)*v(6427)-v(10396)*v(6428))/2d0
d2l(6,4,15)=(v(10469)*v(6415)+v(10438)*v(6417)+v(10407)*v(6418)-v(10459)*v(6426)-v(10428)*v(6427)-v(10397)*v(6428))/2d0
d2l(6,4,16)=0d0
d2l(6,4,17)=0d0
d2l(6,4,18)=0d0
d2l(6,5,1)=(v(10356)*v(6415)+v(10321)*v(6417)+v(10286)*v(6418)-v(10345)*v(6426)-v(10310)*v(6427)-v(10275)*v(6428))/2d0
d2l(6,5,2)=(v(10357)*v(6415)+v(10322)*v(6417)+v(10287)*v(6418)-v(10346)*v(6426)-v(10311)*v(6427)-v(10276)*v(6428))/2d0
d2l(6,5,3)=(v(10358)*v(6415)+v(10323)*v(6417)+v(10288)*v(6418)-v(10347)*v(6426)-v(10312)*v(6427)-v(10277)*v(6428))/2d0
d2l(6,5,4)=v(17026)
d2l(6,5,5)=(v(10360)*v(6415)+v(10325)*v(6417)+v(10290)*v(6418)-v(10349)*v(6426)-v(10314)*v(6427)-v(10279)*v(6428))/2d0
d2l(6,5,6)=v(17060)
d2l(6,5,7)=(v(10361)*v(6415)+v(10326)*v(6417)+v(10291)*v(6418)-v(10350)*v(6426)-v(10315)*v(6427)-v(10280)*v(6428))/2d0
d2l(6,5,8)=(v(10362)*v(6415)+v(10327)*v(6417)+v(10292)*v(6418)-v(10351)*v(6426)-v(10316)*v(6427)-v(10281)*v(6428))/2d0
d2l(6,5,9)=(v(10363)*v(6415)+v(10328)*v(6417)+v(10293)*v(6418)-v(10352)*v(6426)-v(10317)*v(6427)-v(10282)*v(6428))/2d0
d2l(6,5,10)=0d0
d2l(6,5,11)=0d0
d2l(6,5,12)=0d0
d2l(6,5,13)=(v(10364)*v(6415)+v(10329)*v(6417)+v(10294)*v(6418)-v(10353)*v(6426)-v(10318)*v(6427)-v(10283)*v(6428))/2d0
d2l(6,5,14)=(v(10365)*v(6415)+v(10330)*v(6417)+v(10295)*v(6418)-v(10354)*v(6426)-v(10319)*v(6427)-v(10284)*v(6428))/2d0
d2l(6,5,15)=(v(10366)*v(6415)+v(10331)*v(6417)+v(10296)*v(6418)-v(10355)*v(6426)-v(10320)*v(6427)-v(10285)*v(6428))/2d0
d2l(6,5,16)=0d0
d2l(6,5,17)=0d0
d2l(6,5,18)=0d0
d2l(6,6,1)=(v(10233)*v(6415)+v(10194)*v(6417)+v(10155)*v(6418)-v(10221)*v(6426)-v(10182)*v(6427)-v(10143)*v(6428))/2d0
d2l(6,6,2)=(v(10234)*v(6415)+v(10195)*v(6417)+v(10156)*v(6418)-v(10222)*v(6426)-v(10183)*v(6427)-v(10144)*v(6428))/2d0
d2l(6,6,3)=(v(10235)*v(6415)+v(10196)*v(6417)+v(10157)*v(6418)-v(10223)*v(6426)-v(10184)*v(6427)-v(10145)*v(6428))/2d0
d2l(6,6,4)=v(17027)
d2l(6,6,5)=v(17060)
d2l(6,6,6)=(v(10238)*v(6415)+v(10199)*v(6417)+v(10160)*v(6418)-v(10226)*v(6426)-v(10187)*v(6427)-v(10148)*v(6428))/2d0
d2l(6,6,7)=(v(10239)*v(6415)+v(10200)*v(6417)+v(10161)*v(6418)-v(10227)*v(6426)-v(10188)*v(6427)-v(10149)*v(6428))/2d0
d2l(6,6,8)=(v(10240)*v(6415)+v(10201)*v(6417)+v(10162)*v(6418)-v(10228)*v(6426)-v(10189)*v(6427)-v(10150)*v(6428))/2d0
d2l(6,6,9)=(v(10241)*v(6415)+v(10202)*v(6417)+v(10163)*v(6418)-v(10229)*v(6426)-v(10190)*v(6427)-v(10151)*v(6428))/2d0
d2l(6,6,10)=0d0
d2l(6,6,11)=0d0
d2l(6,6,12)=0d0
d2l(6,6,13)=(v(10242)*v(6415)+v(10203)*v(6417)+v(10164)*v(6418)-v(10230)*v(6426)-v(10191)*v(6427)-v(10152)*v(6428))/2d0
d2l(6,6,14)=(v(10243)*v(6415)+v(10204)*v(6417)+v(10165)*v(6418)-v(10231)*v(6426)-v(10192)*v(6427)-v(10153)*v(6428))/2d0
d2l(6,6,15)=(v(10244)*v(6415)+v(10205)*v(6417)+v(10166)*v(6418)-v(10232)*v(6426)-v(10193)*v(6427)-v(10154)*v(6428))/2d0
d2l(6,6,16)=0d0
d2l(6,6,17)=0d0
d2l(6,6,18)=0d0
d2l(6,7,1)=v(16605)
d2l(6,7,2)=v(16762)
d2l(6,7,3)=v(16904)
d2l(6,7,4)=(v(10696)*v(6415)+v(11002)*v(6417)+v(11308)*v(6418)-v(10597)*v(6426)-v(10903)*v(6427)-v(11209)*v(6428))/2d0
d2l(6,7,5)=(v(10698)*v(6415)+v(11004)*v(6417)+v(11310)*v(6418)-v(10599)*v(6426)-v(10905)*v(6427)-v(11211)*v(6428))/2d0
d2l(6,7,6)=(v(10700)*v(6415)+v(11006)*v(6417)+v(11312)*v(6418)-v(10601)*v(6426)-v(10907)*v(6427)-v(11213)*v(6428))/2d0
d2l(6,7,7)=(v(10701)*v(6415)+v(11007)*v(6417)+v(11313)*v(6418)-v(10602)*v(6426)-v(10908)*v(6427)-v(11214)*v(6428))/2d0
d2l(6,7,8)=v(17131)
d2l(6,7,9)=v(17132)
d2l(6,7,10)=0d0
d2l(6,7,11)=0d0
d2l(6,7,12)=0d0
d2l(6,7,13)=v(17133)
d2l(6,7,14)=v(17134)
d2l(6,7,15)=v(17135)
d2l(6,7,16)=0d0
d2l(6,7,17)=0d0
d2l(6,7,18)=0d0
d2l(6,8,1)=v(16606)
d2l(6,8,2)=v(16763)
d2l(6,8,3)=v(16905)
d2l(6,8,4)=(v(10685)*v(6415)+v(10991)*v(6417)+v(11297)*v(6418)-v(10586)*v(6426)-v(10892)*v(6427)-v(11198)*v(6428))/2d0
d2l(6,8,5)=(v(10687)*v(6415)+v(10993)*v(6417)+v(11299)*v(6418)-v(10588)*v(6426)-v(10894)*v(6427)-v(11200)*v(6428))/2d0
d2l(6,8,6)=(v(10689)*v(6415)+v(10995)*v(6417)+v(11301)*v(6418)-v(10590)*v(6426)-v(10896)*v(6427)-v(11202)*v(6428))/2d0
d2l(6,8,7)=v(17131)
d2l(6,8,8)=(v(10691)*v(6415)+v(10997)*v(6417)+v(11303)*v(6418)-v(10592)*v(6426)-v(10898)*v(6427)-v(11204)*v(6428))/2d0
d2l(6,8,9)=v(17244)
d2l(6,8,10)=0d0
d2l(6,8,11)=0d0
d2l(6,8,12)=0d0
d2l(6,8,13)=v(17245)
d2l(6,8,14)=v(17246)
d2l(6,8,15)=v(17247)
d2l(6,8,16)=0d0
d2l(6,8,17)=0d0
d2l(6,8,18)=0d0
d2l(6,9,1)=v(16607)
d2l(6,9,2)=v(16764)
d2l(6,9,3)=v(16906)
d2l(6,9,4)=(v(10673)*v(6415)+v(10979)*v(6417)+v(11285)*v(6418)-v(10574)*v(6426)-v(10880)*v(6427)-v(11186)*v(6428))/2d0
d2l(6,9,5)=(v(10675)*v(6415)+v(10981)*v(6417)+v(11287)*v(6418)-v(10576)*v(6426)-v(10882)*v(6427)-v(11188)*v(6428))/2d0
d2l(6,9,6)=(v(10677)*v(6415)+v(10983)*v(6417)+v(11289)*v(6418)-v(10578)*v(6426)-v(10884)*v(6427)-v(11190)*v(6428))/2d0
d2l(6,9,7)=v(17132)
d2l(6,9,8)=v(17244)
d2l(6,9,9)=(v(10680)*v(6415)+v(10986)*v(6417)+v(11292)*v(6418)-v(10581)*v(6426)-v(10887)*v(6427)-v(11193)*v(6428))/2d0
d2l(6,9,10)=0d0
d2l(6,9,11)=0d0
d2l(6,9,12)=0d0
d2l(6,9,13)=v(17342)
d2l(6,9,14)=v(17343)
d2l(6,9,15)=v(17344)
d2l(6,9,16)=0d0
d2l(6,9,17)=0d0
d2l(6,9,18)=0d0
d2l(6,10,1)=0d0
d2l(6,10,2)=0d0
d2l(6,10,3)=0d0
d2l(6,10,4)=0d0
d2l(6,10,5)=0d0
d2l(6,10,6)=0d0
d2l(6,10,7)=0d0
d2l(6,10,8)=0d0
d2l(6,10,9)=0d0
d2l(6,10,10)=0d0
d2l(6,10,11)=0d0
d2l(6,10,12)=0d0
d2l(6,10,13)=0d0
d2l(6,10,14)=0d0
d2l(6,10,15)=0d0
d2l(6,10,16)=0d0
d2l(6,10,17)=0d0
d2l(6,10,18)=0d0
d2l(6,11,1)=0d0
d2l(6,11,2)=0d0
d2l(6,11,3)=0d0
d2l(6,11,4)=0d0
d2l(6,11,5)=0d0
d2l(6,11,6)=0d0
d2l(6,11,7)=0d0
d2l(6,11,8)=0d0
d2l(6,11,9)=0d0
d2l(6,11,10)=0d0
d2l(6,11,11)=0d0
d2l(6,11,12)=0d0
d2l(6,11,13)=0d0
d2l(6,11,14)=0d0
d2l(6,11,15)=0d0
d2l(6,11,16)=0d0
d2l(6,11,17)=0d0
d2l(6,11,18)=0d0
d2l(6,12,1)=0d0
d2l(6,12,2)=0d0
d2l(6,12,3)=0d0
d2l(6,12,4)=0d0
d2l(6,12,5)=0d0
d2l(6,12,6)=0d0
d2l(6,12,7)=0d0
d2l(6,12,8)=0d0
d2l(6,12,9)=0d0
d2l(6,12,10)=0d0
d2l(6,12,11)=0d0
d2l(6,12,12)=0d0
d2l(6,12,13)=0d0
d2l(6,12,14)=0d0
d2l(6,12,15)=0d0
d2l(6,12,16)=0d0
d2l(6,12,17)=0d0
d2l(6,12,18)=0d0
d2l(6,13,1)=v(16608)
d2l(6,13,2)=v(16765)
d2l(6,13,3)=v(16907)
d2l(6,13,4)=(v(10660)*v(6415)+v(10966)*v(6417)+v(11272)*v(6418)-v(10561)*v(6426)-v(10867)*v(6427)-v(11173)*v(6428))/2d0
d2l(6,13,5)=(v(10662)*v(6415)+v(10968)*v(6417)+v(11274)*v(6418)-v(10563)*v(6426)-v(10869)*v(6427)-v(11175)*v(6428))/2d0
d2l(6,13,6)=(v(10664)*v(6415)+v(10970)*v(6417)+v(11276)*v(6418)-v(10565)*v(6426)-v(10871)*v(6427)-v(11177)*v(6428))/2d0
d2l(6,13,7)=v(17133)
d2l(6,13,8)=v(17245)
d2l(6,13,9)=v(17342)
d2l(6,13,10)=0d0
d2l(6,13,11)=0d0
d2l(6,13,12)=0d0
d2l(6,13,13)=(v(10668)*v(6415)+v(10974)*v(6417)+v(11280)*v(6418)-v(10569)*v(6426)-v(10875)*v(6427)-v(11181)*v(6428))&
&/2d0
d2l(6,13,14)=v(17526)
d2l(6,13,15)=v(17527)
d2l(6,13,16)=0d0
d2l(6,13,17)=0d0
d2l(6,13,18)=0d0
d2l(6,14,1)=v(16609)
d2l(6,14,2)=v(16766)
d2l(6,14,3)=v(16908)
d2l(6,14,4)=(v(10646)*v(6415)+v(10952)*v(6417)+v(11258)*v(6418)-v(10547)*v(6426)-v(10853)*v(6427)-v(11159)*v(6428))/2d0
d2l(6,14,5)=(v(10648)*v(6415)+v(10954)*v(6417)+v(11260)*v(6418)-v(10549)*v(6426)-v(10855)*v(6427)-v(11161)*v(6428))/2d0
d2l(6,14,6)=(v(10650)*v(6415)+v(10956)*v(6417)+v(11262)*v(6418)-v(10551)*v(6426)-v(10857)*v(6427)-v(11163)*v(6428))/2d0
d2l(6,14,7)=v(17134)
d2l(6,14,8)=v(17246)
d2l(6,14,9)=v(17343)
d2l(6,14,10)=0d0
d2l(6,14,11)=0d0
d2l(6,14,12)=0d0
d2l(6,14,13)=v(17526)
d2l(6,14,14)=(v(10655)*v(6415)+v(10961)*v(6417)+v(11267)*v(6418)-v(10556)*v(6426)-v(10862)*v(6427)-v(11168)*v(6428))&
&/2d0
d2l(6,14,15)=v(17594)
d2l(6,14,16)=0d0
d2l(6,14,17)=0d0
d2l(6,14,18)=0d0
d2l(6,15,1)=v(16610)
d2l(6,15,2)=v(16767)
d2l(6,15,3)=v(16909)
d2l(6,15,4)=(v(10631)*v(6415)+v(10937)*v(6417)+v(11243)*v(6418)-v(10532)*v(6426)-v(10838)*v(6427)-v(11144)*v(6428))/2d0
d2l(6,15,5)=(v(10633)*v(6415)+v(10939)*v(6417)+v(11245)*v(6418)-v(10534)*v(6426)-v(10840)*v(6427)-v(11146)*v(6428))/2d0
d2l(6,15,6)=(v(10635)*v(6415)+v(10941)*v(6417)+v(11247)*v(6418)-v(10536)*v(6426)-v(10842)*v(6427)-v(11148)*v(6428))/2d0
d2l(6,15,7)=v(17135)
d2l(6,15,8)=v(17247)
d2l(6,15,9)=v(17344)
d2l(6,15,10)=0d0
d2l(6,15,11)=0d0
d2l(6,15,12)=0d0
d2l(6,15,13)=v(17527)
d2l(6,15,14)=v(17594)
d2l(6,15,15)=(v(10641)*v(6415)+v(10947)*v(6417)+v(11253)*v(6418)-v(10542)*v(6426)-v(10848)*v(6427)-v(11154)*v(6428))&
&/2d0
d2l(6,15,16)=0d0
d2l(6,15,17)=0d0
d2l(6,15,18)=0d0
d2l(6,16,1)=0d0
d2l(6,16,2)=0d0
d2l(6,16,3)=0d0
d2l(6,16,4)=0d0
d2l(6,16,5)=0d0
d2l(6,16,6)=0d0
d2l(6,16,7)=0d0
d2l(6,16,8)=0d0
d2l(6,16,9)=0d0
d2l(6,16,10)=0d0
d2l(6,16,11)=0d0
d2l(6,16,12)=0d0
d2l(6,16,13)=0d0
d2l(6,16,14)=0d0
d2l(6,16,15)=0d0
d2l(6,16,16)=0d0
d2l(6,16,17)=0d0
d2l(6,16,18)=0d0
d2l(6,17,1)=0d0
d2l(6,17,2)=0d0
d2l(6,17,3)=0d0
d2l(6,17,4)=0d0
d2l(6,17,5)=0d0
d2l(6,17,6)=0d0
d2l(6,17,7)=0d0
d2l(6,17,8)=0d0
d2l(6,17,9)=0d0
d2l(6,17,10)=0d0
d2l(6,17,11)=0d0
d2l(6,17,12)=0d0
d2l(6,17,13)=0d0
d2l(6,17,14)=0d0
d2l(6,17,15)=0d0
d2l(6,17,16)=0d0
d2l(6,17,17)=0d0
d2l(6,17,18)=0d0
d2l(6,18,1)=0d0
d2l(6,18,2)=0d0
d2l(6,18,3)=0d0
d2l(6,18,4)=0d0
d2l(6,18,5)=0d0
d2l(6,18,6)=0d0
d2l(6,18,7)=0d0
d2l(6,18,8)=0d0
d2l(6,18,9)=0d0
d2l(6,18,10)=0d0
d2l(6,18,11)=0d0
d2l(6,18,12)=0d0
d2l(6,18,13)=0d0
d2l(6,18,14)=0d0
d2l(6,18,15)=0d0
d2l(6,18,16)=0d0
d2l(6,18,17)=0d0
d2l(6,18,18)=0d0
d2l(7,1,1)=v(6608)*v(9366)+v(6604)*v(9497)+v(6600)*v(9740)-v(9741)
d2l(7,1,2)=v(16612)
d2l(7,1,3)=v(16613)
d2l(7,1,4)=0d0
d2l(7,1,5)=0d0
d2l(7,1,6)=0d0
d2l(7,1,7)=v(16614)
d2l(7,1,8)=v(16615)
d2l(7,1,9)=v(16616)
d2l(7,1,10)=0d0
d2l(7,1,11)=0d0
d2l(7,1,12)=0d0
d2l(7,1,13)=v(16617)
d2l(7,1,14)=v(16618)
d2l(7,1,15)=v(16619)
d2l(7,1,16)=0d0
d2l(7,1,17)=0d0
d2l(7,1,18)=0d0
d2l(7,2,1)=v(16612)
d2l(7,2,2)=v(6608)*v(9363)+v(6604)*v(9494)+v(6600)*v(9737)-v(9856)
d2l(7,2,3)=v(16769)
d2l(7,2,4)=0d0
d2l(7,2,5)=0d0
d2l(7,2,6)=0d0
d2l(7,2,7)=v(16770)
d2l(7,2,8)=v(16771)
d2l(7,2,9)=v(16772)
d2l(7,2,10)=0d0
d2l(7,2,11)=0d0
d2l(7,2,12)=0d0
d2l(7,2,13)=v(16773)
d2l(7,2,14)=v(16774)
d2l(7,2,15)=v(16775)
d2l(7,2,16)=0d0
d2l(7,2,17)=0d0
d2l(7,2,18)=0d0
d2l(7,3,1)=v(16613)
d2l(7,3,2)=v(16769)
d2l(7,3,3)=v(6608)*v(9358)+v(6604)*v(9489)+v(6600)*v(9710)-v(9927)
d2l(7,3,4)=0d0
d2l(7,3,5)=0d0
d2l(7,3,6)=0d0
d2l(7,3,7)=v(16911)
d2l(7,3,8)=v(16912)
d2l(7,3,9)=v(16913)
d2l(7,3,10)=0d0
d2l(7,3,11)=0d0
d2l(7,3,12)=0d0
d2l(7,3,13)=v(16914)
d2l(7,3,14)=v(16915)
d2l(7,3,15)=v(16916)
d2l(7,3,16)=0d0
d2l(7,3,17)=0d0
d2l(7,3,18)=0d0
d2l(7,4,1)=0d0
d2l(7,4,2)=0d0
d2l(7,4,3)=0d0
d2l(7,4,4)=0d0
d2l(7,4,5)=0d0
d2l(7,4,6)=0d0
d2l(7,4,7)=0d0
d2l(7,4,8)=0d0
d2l(7,4,9)=0d0
d2l(7,4,10)=0d0
d2l(7,4,11)=0d0
d2l(7,4,12)=0d0
d2l(7,4,13)=0d0
d2l(7,4,14)=0d0
d2l(7,4,15)=0d0
d2l(7,4,16)=0d0
d2l(7,4,17)=0d0
d2l(7,4,18)=0d0
d2l(7,5,1)=0d0
d2l(7,5,2)=0d0
d2l(7,5,3)=0d0
d2l(7,5,4)=0d0
d2l(7,5,5)=0d0
d2l(7,5,6)=0d0
d2l(7,5,7)=0d0
d2l(7,5,8)=0d0
d2l(7,5,9)=0d0
d2l(7,5,10)=0d0
d2l(7,5,11)=0d0
d2l(7,5,12)=0d0
d2l(7,5,13)=0d0
d2l(7,5,14)=0d0
d2l(7,5,15)=0d0
d2l(7,5,16)=0d0
d2l(7,5,17)=0d0
d2l(7,5,18)=0d0
d2l(7,6,1)=0d0
d2l(7,6,2)=0d0
d2l(7,6,3)=0d0
d2l(7,6,4)=0d0
d2l(7,6,5)=0d0
d2l(7,6,6)=0d0
d2l(7,6,7)=0d0
d2l(7,6,8)=0d0
d2l(7,6,9)=0d0
d2l(7,6,10)=0d0
d2l(7,6,11)=0d0
d2l(7,6,12)=0d0
d2l(7,6,13)=0d0
d2l(7,6,14)=0d0
d2l(7,6,15)=0d0
d2l(7,6,16)=0d0
d2l(7,6,17)=0d0
d2l(7,6,18)=0d0
d2l(7,7,1)=v(16614)
d2l(7,7,2)=v(16770)
d2l(7,7,3)=v(16911)
d2l(7,7,4)=0d0
d2l(7,7,5)=0d0
d2l(7,7,6)=0d0
d2l(7,7,7)=v(6608)*v(9351)+v(6604)*v(9483)+v(6600)*v(9705)+2d0*v(9743)
d2l(7,7,8)=v(17137)
d2l(7,7,9)=v(17138)
d2l(7,7,10)=0d0
d2l(7,7,11)=0d0
d2l(7,7,12)=0d0
d2l(7,7,13)=v(17139)
d2l(7,7,14)=v(17140)
d2l(7,7,15)=v(17141)
d2l(7,7,16)=0d0
d2l(7,7,17)=0d0
d2l(7,7,18)=0d0
d2l(7,8,1)=v(16615)
d2l(7,8,2)=v(16771)
d2l(7,8,3)=v(16912)
d2l(7,8,4)=0d0
d2l(7,8,5)=0d0
d2l(7,8,6)=0d0
d2l(7,8,7)=v(17137)
d2l(7,8,8)=v(6608)*v(9343)+v(6604)*v(9476)+v(6600)*v(9699)+2d0*v(9859)
d2l(7,8,9)=v(17249)
d2l(7,8,10)=0d0
d2l(7,8,11)=0d0
d2l(7,8,12)=0d0
d2l(7,8,13)=v(17250)
d2l(7,8,14)=v(17251)
d2l(7,8,15)=v(17252)
d2l(7,8,16)=0d0
d2l(7,8,17)=0d0
d2l(7,8,18)=0d0
d2l(7,9,1)=v(16616)
d2l(7,9,2)=v(16772)
d2l(7,9,3)=v(16913)
d2l(7,9,4)=0d0
d2l(7,9,5)=0d0
d2l(7,9,6)=0d0
d2l(7,9,7)=v(17138)
d2l(7,9,8)=v(17249)
d2l(7,9,9)=-v(17345)+v(6608)*v(9334)+v(6604)*v(9468)+v(6600)*v(9666)+v(9930)
d2l(7,9,10)=0d0
d2l(7,9,11)=0d0
d2l(7,9,12)=0d0
d2l(7,9,13)=v(17347)
d2l(7,9,14)=v(17348)
d2l(7,9,15)=v(17349)
d2l(7,9,16)=0d0
d2l(7,9,17)=0d0
d2l(7,9,18)=0d0
d2l(7,10,1)=0d0
d2l(7,10,2)=0d0
d2l(7,10,3)=0d0
d2l(7,10,4)=0d0
d2l(7,10,5)=0d0
d2l(7,10,6)=0d0
d2l(7,10,7)=0d0
d2l(7,10,8)=0d0
d2l(7,10,9)=0d0
d2l(7,10,10)=0d0
d2l(7,10,11)=0d0
d2l(7,10,12)=0d0
d2l(7,10,13)=0d0
d2l(7,10,14)=0d0
d2l(7,10,15)=0d0
d2l(7,10,16)=0d0
d2l(7,10,17)=0d0
d2l(7,10,18)=0d0
d2l(7,11,1)=0d0
d2l(7,11,2)=0d0
d2l(7,11,3)=0d0
d2l(7,11,4)=0d0
d2l(7,11,5)=0d0
d2l(7,11,6)=0d0
d2l(7,11,7)=0d0
d2l(7,11,8)=0d0
d2l(7,11,9)=0d0
d2l(7,11,10)=0d0
d2l(7,11,11)=0d0
d2l(7,11,12)=0d0
d2l(7,11,13)=0d0
d2l(7,11,14)=0d0
d2l(7,11,15)=0d0
d2l(7,11,16)=0d0
d2l(7,11,17)=0d0
d2l(7,11,18)=0d0
d2l(7,12,1)=0d0
d2l(7,12,2)=0d0
d2l(7,12,3)=0d0
d2l(7,12,4)=0d0
d2l(7,12,5)=0d0
d2l(7,12,6)=0d0
d2l(7,12,7)=0d0
d2l(7,12,8)=0d0
d2l(7,12,9)=0d0
d2l(7,12,10)=0d0
d2l(7,12,11)=0d0
d2l(7,12,12)=0d0
d2l(7,12,13)=0d0
d2l(7,12,14)=0d0
d2l(7,12,15)=0d0
d2l(7,12,16)=0d0
d2l(7,12,17)=0d0
d2l(7,12,18)=0d0
d2l(7,13,1)=v(16617)
d2l(7,13,2)=v(16773)
d2l(7,13,3)=v(16914)
d2l(7,13,4)=0d0
d2l(7,13,5)=0d0
d2l(7,13,6)=0d0
d2l(7,13,7)=v(17139)
d2l(7,13,8)=v(17250)
d2l(7,13,9)=v(17347)
d2l(7,13,10)=0d0
d2l(7,13,11)=0d0
d2l(7,13,12)=0d0
d2l(7,13,13)=v(6608)*v(9324)+v(6604)*v(9459)+v(6600)*v(9658)-v(9745)
d2l(7,13,14)=v(17529)
d2l(7,13,15)=v(17530)
d2l(7,13,16)=0d0
d2l(7,13,17)=0d0
d2l(7,13,18)=0d0
d2l(7,14,1)=v(16618)
d2l(7,14,2)=v(16774)
d2l(7,14,3)=v(16915)
d2l(7,14,4)=0d0
d2l(7,14,5)=0d0
d2l(7,14,6)=0d0
d2l(7,14,7)=v(17140)
d2l(7,14,8)=v(17251)
d2l(7,14,9)=v(17348)
d2l(7,14,10)=0d0
d2l(7,14,11)=0d0
d2l(7,14,12)=0d0
d2l(7,14,13)=v(17529)
d2l(7,14,14)=v(6608)*v(9303)+v(6604)*v(9439)+v(6600)*v(9650)-v(9862)
d2l(7,14,15)=v(17596)
d2l(7,14,16)=0d0
d2l(7,14,17)=0d0
d2l(7,14,18)=0d0
d2l(7,15,1)=v(16619)
d2l(7,15,2)=v(16775)
d2l(7,15,3)=v(16916)
d2l(7,15,4)=0d0
d2l(7,15,5)=0d0
d2l(7,15,6)=0d0
d2l(7,15,7)=v(17141)
d2l(7,15,8)=v(17252)
d2l(7,15,9)=v(17349)
d2l(7,15,10)=0d0
d2l(7,15,11)=0d0
d2l(7,15,12)=0d0
d2l(7,15,13)=v(17530)
d2l(7,15,14)=v(17596)
d2l(7,15,15)=v(17661)+v(6608)*v(9283)+v(6604)*v(9430)+v(6600)*v(9613)
d2l(7,15,16)=0d0
d2l(7,15,17)=0d0
d2l(7,15,18)=0d0
d2l(7,16,1)=0d0
d2l(7,16,2)=0d0
d2l(7,16,3)=0d0
d2l(7,16,4)=0d0
d2l(7,16,5)=0d0
d2l(7,16,6)=0d0
d2l(7,16,7)=0d0
d2l(7,16,8)=0d0
d2l(7,16,9)=0d0
d2l(7,16,10)=0d0
d2l(7,16,11)=0d0
d2l(7,16,12)=0d0
d2l(7,16,13)=0d0
d2l(7,16,14)=0d0
d2l(7,16,15)=0d0
d2l(7,16,16)=0d0
d2l(7,16,17)=0d0
d2l(7,16,18)=0d0
d2l(7,17,1)=0d0
d2l(7,17,2)=0d0
d2l(7,17,3)=0d0
d2l(7,17,4)=0d0
d2l(7,17,5)=0d0
d2l(7,17,6)=0d0
d2l(7,17,7)=0d0
d2l(7,17,8)=0d0
d2l(7,17,9)=0d0
d2l(7,17,10)=0d0
d2l(7,17,11)=0d0
d2l(7,17,12)=0d0
d2l(7,17,13)=0d0
d2l(7,17,14)=0d0
d2l(7,17,15)=0d0
d2l(7,17,16)=0d0
d2l(7,17,17)=0d0
d2l(7,17,18)=0d0
d2l(7,18,1)=0d0
d2l(7,18,2)=0d0
d2l(7,18,3)=0d0
d2l(7,18,4)=0d0
d2l(7,18,5)=0d0
d2l(7,18,6)=0d0
d2l(7,18,7)=0d0
d2l(7,18,8)=0d0
d2l(7,18,9)=0d0
d2l(7,18,10)=0d0
d2l(7,18,11)=0d0
d2l(7,18,12)=0d0
d2l(7,18,13)=0d0
d2l(7,18,14)=0d0
d2l(7,18,15)=0d0
d2l(7,18,16)=0d0
d2l(7,18,17)=0d0
d2l(7,18,18)=0d0
d2l(8,1,1)=v(6608)*v(9509)+v(6604)*v(9554)+v(6600)*v(9604)-v(9798)
d2l(8,1,2)=v(16621)
d2l(8,1,3)=v(16622)
d2l(8,1,4)=0d0
d2l(8,1,5)=0d0
d2l(8,1,6)=0d0
d2l(8,1,7)=v(16623)
d2l(8,1,8)=v(16624)
d2l(8,1,9)=v(16625)
d2l(8,1,10)=0d0
d2l(8,1,11)=0d0
d2l(8,1,12)=0d0
d2l(8,1,13)=v(16626)
d2l(8,1,14)=v(16627)
d2l(8,1,15)=v(16628)
d2l(8,1,16)=0d0
d2l(8,1,17)=0d0
d2l(8,1,18)=0d0
d2l(8,2,1)=v(16621)
d2l(8,2,2)=v(6608)*v(9384)+v(6604)*v(9419)+v(6600)*v(9602)-v(9892)
d2l(8,2,3)=v(16777)
d2l(8,2,4)=0d0
d2l(8,2,5)=0d0
d2l(8,2,6)=0d0
d2l(8,2,7)=v(16778)
d2l(8,2,8)=v(16779)
d2l(8,2,9)=v(16780)
d2l(8,2,10)=0d0
d2l(8,2,11)=0d0
d2l(8,2,12)=0d0
d2l(8,2,13)=v(16781)
d2l(8,2,14)=v(16782)
d2l(8,2,15)=v(16783)
d2l(8,2,16)=0d0
d2l(8,2,17)=0d0
d2l(8,2,18)=0d0
d2l(8,3,1)=v(16622)
d2l(8,3,2)=v(16777)
d2l(8,3,3)=v(6608)*v(9269)+v(6604)*v(9414)+v(6600)*v(9576)-v(9945)
d2l(8,3,4)=0d0
d2l(8,3,5)=0d0
d2l(8,3,6)=0d0
d2l(8,3,7)=v(16918)
d2l(8,3,8)=v(16919)
d2l(8,3,9)=v(16920)
d2l(8,3,10)=0d0
d2l(8,3,11)=0d0
d2l(8,3,12)=0d0
d2l(8,3,13)=v(16921)
d2l(8,3,14)=v(16922)
d2l(8,3,15)=v(16923)
d2l(8,3,16)=0d0
d2l(8,3,17)=0d0
d2l(8,3,18)=0d0
d2l(8,4,1)=0d0
d2l(8,4,2)=0d0
d2l(8,4,3)=0d0
d2l(8,4,4)=0d0
d2l(8,4,5)=0d0
d2l(8,4,6)=0d0
d2l(8,4,7)=0d0
d2l(8,4,8)=0d0
d2l(8,4,9)=0d0
d2l(8,4,10)=0d0
d2l(8,4,11)=0d0
d2l(8,4,12)=0d0
d2l(8,4,13)=0d0
d2l(8,4,14)=0d0
d2l(8,4,15)=0d0
d2l(8,4,16)=0d0
d2l(8,4,17)=0d0
d2l(8,4,18)=0d0
d2l(8,5,1)=0d0
d2l(8,5,2)=0d0
d2l(8,5,3)=0d0
d2l(8,5,4)=0d0
d2l(8,5,5)=0d0
d2l(8,5,6)=0d0
d2l(8,5,7)=0d0
d2l(8,5,8)=0d0
d2l(8,5,9)=0d0
d2l(8,5,10)=0d0
d2l(8,5,11)=0d0
d2l(8,5,12)=0d0
d2l(8,5,13)=0d0
d2l(8,5,14)=0d0
d2l(8,5,15)=0d0
d2l(8,5,16)=0d0
d2l(8,5,17)=0d0
d2l(8,5,18)=0d0
d2l(8,6,1)=0d0
d2l(8,6,2)=0d0
d2l(8,6,3)=0d0
d2l(8,6,4)=0d0
d2l(8,6,5)=0d0
d2l(8,6,6)=0d0
d2l(8,6,7)=0d0
d2l(8,6,8)=0d0
d2l(8,6,9)=0d0
d2l(8,6,10)=0d0
d2l(8,6,11)=0d0
d2l(8,6,12)=0d0
d2l(8,6,13)=0d0
d2l(8,6,14)=0d0
d2l(8,6,15)=0d0
d2l(8,6,16)=0d0
d2l(8,6,17)=0d0
d2l(8,6,18)=0d0
d2l(8,7,1)=v(16623)
d2l(8,7,2)=v(16778)
d2l(8,7,3)=v(16918)
d2l(8,7,4)=0d0
d2l(8,7,5)=0d0
d2l(8,7,6)=0d0
d2l(8,7,7)=v(6608)*v(9507)+v(6604)*v(9552)+v(6600)*v(9572)+2d0*v(9800)
d2l(8,7,8)=v(17143)
d2l(8,7,9)=v(17144)
d2l(8,7,10)=0d0
d2l(8,7,11)=0d0
d2l(8,7,12)=0d0
d2l(8,7,13)=v(17145)
d2l(8,7,14)=v(17146)
d2l(8,7,15)=v(17147)
d2l(8,7,16)=0d0
d2l(8,7,17)=0d0
d2l(8,7,18)=0d0
d2l(8,8,1)=v(16624)
d2l(8,8,2)=v(16779)
d2l(8,8,3)=v(16919)
d2l(8,8,4)=0d0
d2l(8,8,5)=0d0
d2l(8,8,6)=0d0
d2l(8,8,7)=v(17143)
d2l(8,8,8)=v(6608)*v(9381)+v(6604)*v(9410)+v(6600)*v(9560)+2d0*v(9895)
d2l(8,8,9)=v(17254)
d2l(8,8,10)=0d0
d2l(8,8,11)=0d0
d2l(8,8,12)=0d0
d2l(8,8,13)=v(17255)
d2l(8,8,14)=v(17256)
d2l(8,8,15)=v(17257)
d2l(8,8,16)=0d0
d2l(8,8,17)=0d0
d2l(8,8,18)=0d0
d2l(8,9,1)=v(16625)
d2l(8,9,2)=v(16780)
d2l(8,9,3)=v(16920)
d2l(8,9,4)=0d0
d2l(8,9,5)=0d0
d2l(8,9,6)=0d0
d2l(8,9,7)=v(17144)
d2l(8,9,8)=v(17254)
d2l(8,9,9)=-v(17350)+v(6608)*v(9265)+v(6604)*v(9394)+v(6600)*v(9516)+v(9948)
d2l(8,9,10)=0d0
d2l(8,9,11)=0d0
d2l(8,9,12)=0d0
d2l(8,9,13)=v(17352)
d2l(8,9,14)=v(17353)
d2l(8,9,15)=v(17354)
d2l(8,9,16)=0d0
d2l(8,9,17)=0d0
d2l(8,9,18)=0d0
d2l(8,10,1)=0d0
d2l(8,10,2)=0d0
d2l(8,10,3)=0d0
d2l(8,10,4)=0d0
d2l(8,10,5)=0d0
d2l(8,10,6)=0d0
d2l(8,10,7)=0d0
d2l(8,10,8)=0d0
d2l(8,10,9)=0d0
d2l(8,10,10)=0d0
d2l(8,10,11)=0d0
d2l(8,10,12)=0d0
d2l(8,10,13)=0d0
d2l(8,10,14)=0d0
d2l(8,10,15)=0d0
d2l(8,10,16)=0d0
d2l(8,10,17)=0d0
d2l(8,10,18)=0d0
d2l(8,11,1)=0d0
d2l(8,11,2)=0d0
d2l(8,11,3)=0d0
d2l(8,11,4)=0d0
d2l(8,11,5)=0d0
d2l(8,11,6)=0d0
d2l(8,11,7)=0d0
d2l(8,11,8)=0d0
d2l(8,11,9)=0d0
d2l(8,11,10)=0d0
d2l(8,11,11)=0d0
d2l(8,11,12)=0d0
d2l(8,11,13)=0d0
d2l(8,11,14)=0d0
d2l(8,11,15)=0d0
d2l(8,11,16)=0d0
d2l(8,11,17)=0d0
d2l(8,11,18)=0d0
d2l(8,12,1)=0d0
d2l(8,12,2)=0d0
d2l(8,12,3)=0d0
d2l(8,12,4)=0d0
d2l(8,12,5)=0d0
d2l(8,12,6)=0d0
d2l(8,12,7)=0d0
d2l(8,12,8)=0d0
d2l(8,12,9)=0d0
d2l(8,12,10)=0d0
d2l(8,12,11)=0d0
d2l(8,12,12)=0d0
d2l(8,12,13)=0d0
d2l(8,12,14)=0d0
d2l(8,12,15)=0d0
d2l(8,12,16)=0d0
d2l(8,12,17)=0d0
d2l(8,12,18)=0d0
d2l(8,13,1)=v(16626)
d2l(8,13,2)=v(16781)
d2l(8,13,3)=v(16921)
d2l(8,13,4)=0d0
d2l(8,13,5)=0d0
d2l(8,13,6)=0d0
d2l(8,13,7)=v(17145)
d2l(8,13,8)=v(17255)
d2l(8,13,9)=v(17352)
d2l(8,13,10)=0d0
d2l(8,13,11)=0d0
d2l(8,13,12)=0d0
d2l(8,13,13)=v(6608)*v(9150)+v(6604)*v(9207)+v(6600)*v(9224)-v(9802)
d2l(8,13,14)=v(17532)
d2l(8,13,15)=v(17533)
d2l(8,13,16)=0d0
d2l(8,13,17)=0d0
d2l(8,13,18)=0d0
d2l(8,14,1)=v(16627)
d2l(8,14,2)=v(16782)
d2l(8,14,3)=v(16922)
d2l(8,14,4)=0d0
d2l(8,14,5)=0d0
d2l(8,14,6)=0d0
d2l(8,14,7)=v(17146)
d2l(8,14,8)=v(17256)
d2l(8,14,9)=v(17353)
d2l(8,14,10)=0d0
d2l(8,14,11)=0d0
d2l(8,14,12)=0d0
d2l(8,14,13)=v(17532)
d2l(8,14,14)=v(6608)*v(9142)+v(6600)*v(9197)+v(6604)*v(9198)-v(9897)
d2l(8,14,15)=v(17598)
d2l(8,14,16)=0d0
d2l(8,14,17)=0d0
d2l(8,14,18)=0d0
d2l(8,15,1)=v(16628)
d2l(8,15,2)=v(16783)
d2l(8,15,3)=v(16923)
d2l(8,15,4)=0d0
d2l(8,15,5)=0d0
d2l(8,15,6)=0d0
d2l(8,15,7)=v(17147)
d2l(8,15,8)=v(17257)
d2l(8,15,9)=v(17354)
d2l(8,15,10)=0d0
d2l(8,15,11)=0d0
d2l(8,15,12)=0d0
d2l(8,15,13)=v(17533)
d2l(8,15,14)=v(17598)
d2l(8,15,15)=v(17663)+v(6600)*v(9130)+v(6604)*v(9131)+v(6608)*v(9132)
d2l(8,15,16)=0d0
d2l(8,15,17)=0d0
d2l(8,15,18)=0d0
d2l(8,16,1)=0d0
d2l(8,16,2)=0d0
d2l(8,16,3)=0d0
d2l(8,16,4)=0d0
d2l(8,16,5)=0d0
d2l(8,16,6)=0d0
d2l(8,16,7)=0d0
d2l(8,16,8)=0d0
d2l(8,16,9)=0d0
d2l(8,16,10)=0d0
d2l(8,16,11)=0d0
d2l(8,16,12)=0d0
d2l(8,16,13)=0d0
d2l(8,16,14)=0d0
d2l(8,16,15)=0d0
d2l(8,16,16)=0d0
d2l(8,16,17)=0d0
d2l(8,16,18)=0d0
d2l(8,17,1)=0d0
d2l(8,17,2)=0d0
d2l(8,17,3)=0d0
d2l(8,17,4)=0d0
d2l(8,17,5)=0d0
d2l(8,17,6)=0d0
d2l(8,17,7)=0d0
d2l(8,17,8)=0d0
d2l(8,17,9)=0d0
d2l(8,17,10)=0d0
d2l(8,17,11)=0d0
d2l(8,17,12)=0d0
d2l(8,17,13)=0d0
d2l(8,17,14)=0d0
d2l(8,17,15)=0d0
d2l(8,17,16)=0d0
d2l(8,17,17)=0d0
d2l(8,17,18)=0d0
d2l(8,18,1)=0d0
d2l(8,18,2)=0d0
d2l(8,18,3)=0d0
d2l(8,18,4)=0d0
d2l(8,18,5)=0d0
d2l(8,18,6)=0d0
d2l(8,18,7)=0d0
d2l(8,18,8)=0d0
d2l(8,18,9)=0d0
d2l(8,18,10)=0d0
d2l(8,18,11)=0d0
d2l(8,18,12)=0d0
d2l(8,18,13)=0d0
d2l(8,18,14)=0d0
d2l(8,18,15)=0d0
d2l(8,18,16)=0d0
d2l(8,18,17)=0d0
d2l(8,18,18)=0d0
d2l(9,1,1)=0d0
d2l(9,1,2)=0d0
d2l(9,1,3)=0d0
d2l(9,1,4)=0d0
d2l(9,1,5)=0d0
d2l(9,1,6)=0d0
d2l(9,1,7)=0d0
d2l(9,1,8)=0d0
d2l(9,1,9)=0d0
d2l(9,1,10)=0d0
d2l(9,1,11)=0d0
d2l(9,1,12)=0d0
d2l(9,1,13)=0d0
d2l(9,1,14)=0d0
d2l(9,1,15)=0d0
d2l(9,1,16)=0d0
d2l(9,1,17)=0d0
d2l(9,1,18)=0d0
d2l(9,2,1)=0d0
d2l(9,2,2)=0d0
d2l(9,2,3)=0d0
d2l(9,2,4)=0d0
d2l(9,2,5)=0d0
d2l(9,2,6)=0d0
d2l(9,2,7)=0d0
d2l(9,2,8)=0d0
d2l(9,2,9)=0d0
d2l(9,2,10)=0d0
d2l(9,2,11)=0d0
d2l(9,2,12)=0d0
d2l(9,2,13)=0d0
d2l(9,2,14)=0d0
d2l(9,2,15)=0d0
d2l(9,2,16)=0d0
d2l(9,2,17)=0d0
d2l(9,2,18)=0d0
d2l(9,3,1)=0d0
d2l(9,3,2)=0d0
d2l(9,3,3)=0d0
d2l(9,3,4)=0d0
d2l(9,3,5)=0d0
d2l(9,3,6)=0d0
d2l(9,3,7)=0d0
d2l(9,3,8)=0d0
d2l(9,3,9)=0d0
d2l(9,3,10)=0d0
d2l(9,3,11)=0d0
d2l(9,3,12)=0d0
d2l(9,3,13)=0d0
d2l(9,3,14)=0d0
d2l(9,3,15)=0d0
d2l(9,3,16)=0d0
d2l(9,3,17)=0d0
d2l(9,3,18)=0d0
d2l(9,4,1)=0d0
d2l(9,4,2)=0d0
d2l(9,4,3)=0d0
d2l(9,4,4)=0d0
d2l(9,4,5)=0d0
d2l(9,4,6)=0d0
d2l(9,4,7)=0d0
d2l(9,4,8)=0d0
d2l(9,4,9)=0d0
d2l(9,4,10)=0d0
d2l(9,4,11)=0d0
d2l(9,4,12)=0d0
d2l(9,4,13)=0d0
d2l(9,4,14)=0d0
d2l(9,4,15)=0d0
d2l(9,4,16)=0d0
d2l(9,4,17)=0d0
d2l(9,4,18)=0d0
d2l(9,5,1)=0d0
d2l(9,5,2)=0d0
d2l(9,5,3)=0d0
d2l(9,5,4)=0d0
d2l(9,5,5)=0d0
d2l(9,5,6)=0d0
d2l(9,5,7)=0d0
d2l(9,5,8)=0d0
d2l(9,5,9)=0d0
d2l(9,5,10)=0d0
d2l(9,5,11)=0d0
d2l(9,5,12)=0d0
d2l(9,5,13)=0d0
d2l(9,5,14)=0d0
d2l(9,5,15)=0d0
d2l(9,5,16)=0d0
d2l(9,5,17)=0d0
d2l(9,5,18)=0d0
d2l(9,6,1)=0d0
d2l(9,6,2)=0d0
d2l(9,6,3)=0d0
d2l(9,6,4)=0d0
d2l(9,6,5)=0d0
d2l(9,6,6)=0d0
d2l(9,6,7)=0d0
d2l(9,6,8)=0d0
d2l(9,6,9)=0d0
d2l(9,6,10)=0d0
d2l(9,6,11)=0d0
d2l(9,6,12)=0d0
d2l(9,6,13)=0d0
d2l(9,6,14)=0d0
d2l(9,6,15)=0d0
d2l(9,6,16)=0d0
d2l(9,6,17)=0d0
d2l(9,6,18)=0d0
d2l(9,7,1)=0d0
d2l(9,7,2)=0d0
d2l(9,7,3)=0d0
d2l(9,7,4)=0d0
d2l(9,7,5)=0d0
d2l(9,7,6)=0d0
d2l(9,7,7)=0d0
d2l(9,7,8)=0d0
d2l(9,7,9)=0d0
d2l(9,7,10)=0d0
d2l(9,7,11)=0d0
d2l(9,7,12)=0d0
d2l(9,7,13)=0d0
d2l(9,7,14)=0d0
d2l(9,7,15)=0d0
d2l(9,7,16)=0d0
d2l(9,7,17)=0d0
d2l(9,7,18)=0d0
d2l(9,8,1)=0d0
d2l(9,8,2)=0d0
d2l(9,8,3)=0d0
d2l(9,8,4)=0d0
d2l(9,8,5)=0d0
d2l(9,8,6)=0d0
d2l(9,8,7)=0d0
d2l(9,8,8)=0d0
d2l(9,8,9)=0d0
d2l(9,8,10)=0d0
d2l(9,8,11)=0d0
d2l(9,8,12)=0d0
d2l(9,8,13)=0d0
d2l(9,8,14)=0d0
d2l(9,8,15)=0d0
d2l(9,8,16)=0d0
d2l(9,8,17)=0d0
d2l(9,8,18)=0d0
d2l(9,9,1)=0d0
d2l(9,9,2)=0d0
d2l(9,9,3)=0d0
d2l(9,9,4)=0d0
d2l(9,9,5)=0d0
d2l(9,9,6)=0d0
d2l(9,9,7)=0d0
d2l(9,9,8)=0d0
d2l(9,9,9)=0d0
d2l(9,9,10)=0d0
d2l(9,9,11)=0d0
d2l(9,9,12)=0d0
d2l(9,9,13)=0d0
d2l(9,9,14)=0d0
d2l(9,9,15)=0d0
d2l(9,9,16)=0d0
d2l(9,9,17)=0d0
d2l(9,9,18)=0d0
d2l(9,10,1)=0d0
d2l(9,10,2)=0d0
d2l(9,10,3)=0d0
d2l(9,10,4)=0d0
d2l(9,10,5)=0d0
d2l(9,10,6)=0d0
d2l(9,10,7)=0d0
d2l(9,10,8)=0d0
d2l(9,10,9)=0d0
d2l(9,10,10)=0d0
d2l(9,10,11)=0d0
d2l(9,10,12)=0d0
d2l(9,10,13)=0d0
d2l(9,10,14)=0d0
d2l(9,10,15)=0d0
d2l(9,10,16)=0d0
d2l(9,10,17)=0d0
d2l(9,10,18)=0d0
d2l(9,11,1)=0d0
d2l(9,11,2)=0d0
d2l(9,11,3)=0d0
d2l(9,11,4)=0d0
d2l(9,11,5)=0d0
d2l(9,11,6)=0d0
d2l(9,11,7)=0d0
d2l(9,11,8)=0d0
d2l(9,11,9)=0d0
d2l(9,11,10)=0d0
d2l(9,11,11)=0d0
d2l(9,11,12)=0d0
d2l(9,11,13)=0d0
d2l(9,11,14)=0d0
d2l(9,11,15)=0d0
d2l(9,11,16)=0d0
d2l(9,11,17)=0d0
d2l(9,11,18)=0d0
d2l(9,12,1)=0d0
d2l(9,12,2)=0d0
d2l(9,12,3)=0d0
d2l(9,12,4)=0d0
d2l(9,12,5)=0d0
d2l(9,12,6)=0d0
d2l(9,12,7)=0d0
d2l(9,12,8)=0d0
d2l(9,12,9)=0d0
d2l(9,12,10)=0d0
d2l(9,12,11)=0d0
d2l(9,12,12)=0d0
d2l(9,12,13)=0d0
d2l(9,12,14)=0d0
d2l(9,12,15)=0d0
d2l(9,12,16)=0d0
d2l(9,12,17)=0d0
d2l(9,12,18)=0d0
d2l(9,13,1)=0d0
d2l(9,13,2)=0d0
d2l(9,13,3)=0d0
d2l(9,13,4)=0d0
d2l(9,13,5)=0d0
d2l(9,13,6)=0d0
d2l(9,13,7)=0d0
d2l(9,13,8)=0d0
d2l(9,13,9)=0d0
d2l(9,13,10)=0d0
d2l(9,13,11)=0d0
d2l(9,13,12)=0d0
d2l(9,13,13)=0d0
d2l(9,13,14)=0d0
d2l(9,13,15)=0d0
d2l(9,13,16)=0d0
d2l(9,13,17)=0d0
d2l(9,13,18)=0d0
d2l(9,14,1)=0d0
d2l(9,14,2)=0d0
d2l(9,14,3)=0d0
d2l(9,14,4)=0d0
d2l(9,14,5)=0d0
d2l(9,14,6)=0d0
d2l(9,14,7)=0d0
d2l(9,14,8)=0d0
d2l(9,14,9)=0d0
d2l(9,14,10)=0d0
d2l(9,14,11)=0d0
d2l(9,14,12)=0d0
d2l(9,14,13)=0d0
d2l(9,14,14)=0d0
d2l(9,14,15)=0d0
d2l(9,14,16)=0d0
d2l(9,14,17)=0d0
d2l(9,14,18)=0d0
d2l(9,15,1)=0d0
d2l(9,15,2)=0d0
d2l(9,15,3)=0d0
d2l(9,15,4)=0d0
d2l(9,15,5)=0d0
d2l(9,15,6)=0d0
d2l(9,15,7)=0d0
d2l(9,15,8)=0d0
d2l(9,15,9)=0d0
d2l(9,15,10)=0d0
d2l(9,15,11)=0d0
d2l(9,15,12)=0d0
d2l(9,15,13)=0d0
d2l(9,15,14)=0d0
d2l(9,15,15)=0d0
d2l(9,15,16)=0d0
d2l(9,15,17)=0d0
d2l(9,15,18)=0d0
d2l(9,16,1)=0d0
d2l(9,16,2)=0d0
d2l(9,16,3)=0d0
d2l(9,16,4)=0d0
d2l(9,16,5)=0d0
d2l(9,16,6)=0d0
d2l(9,16,7)=0d0
d2l(9,16,8)=0d0
d2l(9,16,9)=0d0
d2l(9,16,10)=0d0
d2l(9,16,11)=0d0
d2l(9,16,12)=0d0
d2l(9,16,13)=0d0
d2l(9,16,14)=0d0
d2l(9,16,15)=0d0
d2l(9,16,16)=0d0
d2l(9,16,17)=0d0
d2l(9,16,18)=0d0
d2l(9,17,1)=0d0
d2l(9,17,2)=0d0
d2l(9,17,3)=0d0
d2l(9,17,4)=0d0
d2l(9,17,5)=0d0
d2l(9,17,6)=0d0
d2l(9,17,7)=0d0
d2l(9,17,8)=0d0
d2l(9,17,9)=0d0
d2l(9,17,10)=0d0
d2l(9,17,11)=0d0
d2l(9,17,12)=0d0
d2l(9,17,13)=0d0
d2l(9,17,14)=0d0
d2l(9,17,15)=0d0
d2l(9,17,16)=0d0
d2l(9,17,17)=0d0
d2l(9,17,18)=0d0
d2l(9,18,1)=0d0
d2l(9,18,2)=0d0
d2l(9,18,3)=0d0
d2l(9,18,4)=0d0
d2l(9,18,5)=0d0
d2l(9,18,6)=0d0
d2l(9,18,7)=0d0
d2l(9,18,8)=0d0
d2l(9,18,9)=0d0
d2l(9,18,10)=0d0
d2l(9,18,11)=0d0
d2l(9,18,12)=0d0
d2l(9,18,13)=0d0
d2l(9,18,14)=0d0
d2l(9,18,15)=0d0
d2l(9,18,16)=0d0
d2l(9,18,17)=0d0
d2l(9,18,18)=0d0
d2l(10,1,1)=(-(v(12199)*v(6422))-v(12505)*v(6424)-v(12811)*v(6425)+v(12298)*v(6426)+v(12604)*v(6427)+v(12910)*v(6428))&
&/2d0
d2l(10,1,2)=v(16630)
d2l(10,1,3)=v(16631)
d2l(10,1,4)=0d0
d2l(10,1,5)=0d0
d2l(10,1,6)=0d0
d2l(10,1,7)=v(16632)
d2l(10,1,8)=v(16633)
d2l(10,1,9)=v(16634)
d2l(10,1,10)=(-(v(12201)*v(6422))-v(12507)*v(6424)-v(12813)*v(6425)+v(12300)*v(6426)+v(12606)*v(6427)+v(12912)*v(6428))&
&/2d0
d2l(10,1,11)=(-(v(12203)*v(6422))-v(12509)*v(6424)-v(12815)*v(6425)+v(12302)*v(6426)+v(12608)*v(6427)+v(12914)*v(6428))&
&/2d0
d2l(10,1,12)=(-(v(12205)*v(6422))-v(12511)*v(6424)-v(12817)*v(6425)+v(12304)*v(6426)+v(12610)*v(6427)+v(12916)*v(6428))&
&/2d0
d2l(10,1,13)=v(16638)
d2l(10,1,14)=v(16639)
d2l(10,1,15)=v(16640)
d2l(10,1,16)=0d0
d2l(10,1,17)=0d0
d2l(10,1,18)=0d0
d2l(10,2,1)=v(16630)
d2l(10,2,2)=(-(v(12192)*v(6422))-v(12498)*v(6424)-v(12804)*v(6425)+v(12291)*v(6426)+v(12597)*v(6427)+v(12903)*v(6428))&
&/2d0
d2l(10,2,3)=v(16785)
d2l(10,2,4)=0d0
d2l(10,2,5)=0d0
d2l(10,2,6)=0d0
d2l(10,2,7)=v(16786)
d2l(10,2,8)=v(16787)
d2l(10,2,9)=v(16788)
d2l(10,2,10)=(-(v(12194)*v(6422))-v(12500)*v(6424)-v(12806)*v(6425)+v(12293)*v(6426)+v(12599)*v(6427)+v(12905)*v(6428))&
&/2d0
d2l(10,2,11)=(-(v(12196)*v(6422))-v(12502)*v(6424)-v(12808)*v(6425)+v(12295)*v(6426)+v(12601)*v(6427)+v(12907)*v(6428))&
&/2d0
d2l(10,2,12)=(-(v(12198)*v(6422))-v(12504)*v(6424)-v(12810)*v(6425)+v(12297)*v(6426)+v(12603)*v(6427)+v(12909)*v(6428))&
&/2d0
d2l(10,2,13)=v(16792)
d2l(10,2,14)=v(16793)
d2l(10,2,15)=v(16794)
d2l(10,2,16)=0d0
d2l(10,2,17)=0d0
d2l(10,2,18)=0d0
d2l(10,3,1)=v(16631)
d2l(10,3,2)=v(16785)
d2l(10,3,3)=(-(v(12184)*v(6422))-v(12490)*v(6424)-v(12796)*v(6425)+v(12283)*v(6426)+v(12589)*v(6427)+v(12895)*v(6428))&
&/2d0
d2l(10,3,4)=0d0
d2l(10,3,5)=0d0
d2l(10,3,6)=0d0
d2l(10,3,7)=v(16925)
d2l(10,3,8)=v(16926)
d2l(10,3,9)=v(16927)
d2l(10,3,10)=(-(v(12186)*v(6422))-v(12492)*v(6424)-v(12798)*v(6425)+v(12285)*v(6426)+v(12591)*v(6427)+v(12897)*v(6428))&
&/2d0
d2l(10,3,11)=(-(v(12188)*v(6422))-v(12494)*v(6424)-v(12800)*v(6425)+v(12287)*v(6426)+v(12593)*v(6427)+v(12899)*v(6428))&
&/2d0
d2l(10,3,12)=(-(v(12190)*v(6422))-v(12496)*v(6424)-v(12802)*v(6425)+v(12289)*v(6426)+v(12595)*v(6427)+v(12901)*v(6428))&
&/2d0
d2l(10,3,13)=v(16931)
d2l(10,3,14)=v(16932)
d2l(10,3,15)=v(16933)
d2l(10,3,16)=0d0
d2l(10,3,17)=0d0
d2l(10,3,18)=0d0
d2l(10,4,1)=0d0
d2l(10,4,2)=0d0
d2l(10,4,3)=0d0
d2l(10,4,4)=0d0
d2l(10,4,5)=0d0
d2l(10,4,6)=0d0
d2l(10,4,7)=0d0
d2l(10,4,8)=0d0
d2l(10,4,9)=0d0
d2l(10,4,10)=0d0
d2l(10,4,11)=0d0
d2l(10,4,12)=0d0
d2l(10,4,13)=0d0
d2l(10,4,14)=0d0
d2l(10,4,15)=0d0
d2l(10,4,16)=0d0
d2l(10,4,17)=0d0
d2l(10,4,18)=0d0
d2l(10,5,1)=0d0
d2l(10,5,2)=0d0
d2l(10,5,3)=0d0
d2l(10,5,4)=0d0
d2l(10,5,5)=0d0
d2l(10,5,6)=0d0
d2l(10,5,7)=0d0
d2l(10,5,8)=0d0
d2l(10,5,9)=0d0
d2l(10,5,10)=0d0
d2l(10,5,11)=0d0
d2l(10,5,12)=0d0
d2l(10,5,13)=0d0
d2l(10,5,14)=0d0
d2l(10,5,15)=0d0
d2l(10,5,16)=0d0
d2l(10,5,17)=0d0
d2l(10,5,18)=0d0
d2l(10,6,1)=0d0
d2l(10,6,2)=0d0
d2l(10,6,3)=0d0
d2l(10,6,4)=0d0
d2l(10,6,5)=0d0
d2l(10,6,6)=0d0
d2l(10,6,7)=0d0
d2l(10,6,8)=0d0
d2l(10,6,9)=0d0
d2l(10,6,10)=0d0
d2l(10,6,11)=0d0
d2l(10,6,12)=0d0
d2l(10,6,13)=0d0
d2l(10,6,14)=0d0
d2l(10,6,15)=0d0
d2l(10,6,16)=0d0
d2l(10,6,17)=0d0
d2l(10,6,18)=0d0
d2l(10,7,1)=v(16632)
d2l(10,7,2)=v(16786)
d2l(10,7,3)=v(16925)
d2l(10,7,4)=0d0
d2l(10,7,5)=0d0
d2l(10,7,6)=0d0
d2l(10,7,7)=(-(v(12175)*v(6422))-v(12481)*v(6424)-v(12787)*v(6425)+v(12274)*v(6426)+v(12580)*v(6427)+v(12886)*v(6428))&
&/2d0
d2l(10,7,8)=v(17149)
d2l(10,7,9)=v(17150)
d2l(10,7,10)=(-(v(12177)*v(6422))-v(12483)*v(6424)-v(12789)*v(6425)+v(12276)*v(6426)+v(12582)*v(6427)+v(12888)*v(6428))&
&/2d0
d2l(10,7,11)=(-(v(12179)*v(6422))-v(12485)*v(6424)-v(12791)*v(6425)+v(12278)*v(6426)+v(12584)*v(6427)+v(12890)*v(6428))&
&/2d0
d2l(10,7,12)=(-(v(12181)*v(6422))-v(12487)*v(6424)-v(12793)*v(6425)+v(12280)*v(6426)+v(12586)*v(6427)+v(12892)*v(6428))&
&/2d0
d2l(10,7,13)=v(17154)
d2l(10,7,14)=v(17155)
d2l(10,7,15)=v(17156)
d2l(10,7,16)=0d0
d2l(10,7,17)=0d0
d2l(10,7,18)=0d0
d2l(10,8,1)=v(16633)
d2l(10,8,2)=v(16787)
d2l(10,8,3)=v(16926)
d2l(10,8,4)=0d0
d2l(10,8,5)=0d0
d2l(10,8,6)=0d0
d2l(10,8,7)=v(17149)
d2l(10,8,8)=(-(v(12165)*v(6422))-v(12471)*v(6424)-v(12777)*v(6425)+v(12264)*v(6426)+v(12570)*v(6427)+v(12876)*v(6428))&
&/2d0
d2l(10,8,9)=v(17259)
d2l(10,8,10)=(-(v(12167)*v(6422))-v(12473)*v(6424)-v(12779)*v(6425)+v(12266)*v(6426)+v(12572)*v(6427)+v(12878)*v(6428))&
&/2d0
d2l(10,8,11)=(-(v(12169)*v(6422))-v(12475)*v(6424)-v(12781)*v(6425)+v(12268)*v(6426)+v(12574)*v(6427)+v(12880)*v(6428))&
&/2d0
d2l(10,8,12)=(-(v(12171)*v(6422))-v(12477)*v(6424)-v(12783)*v(6425)+v(12270)*v(6426)+v(12576)*v(6427)+v(12882)*v(6428))&
&/2d0
d2l(10,8,13)=v(17263)
d2l(10,8,14)=v(17264)
d2l(10,8,15)=v(17265)
d2l(10,8,16)=0d0
d2l(10,8,17)=0d0
d2l(10,8,18)=0d0
d2l(10,9,1)=v(16634)
d2l(10,9,2)=v(16788)
d2l(10,9,3)=v(16927)
d2l(10,9,4)=0d0
d2l(10,9,5)=0d0
d2l(10,9,6)=0d0
d2l(10,9,7)=v(17150)
d2l(10,9,8)=v(17259)
d2l(10,9,9)=(-(v(12154)*v(6422))-v(12460)*v(6424)-v(12766)*v(6425)+v(12253)*v(6426)+v(12559)*v(6427)+v(12865)*v(6428))&
&/2d0
d2l(10,9,10)=(-(v(12156)*v(6422))-v(12462)*v(6424)-v(12768)*v(6425)+v(12255)*v(6426)+v(12561)*v(6427)+v(12867)*v(6428))&
&/2d0
d2l(10,9,11)=(-(v(12158)*v(6422))-v(12464)*v(6424)-v(12770)*v(6425)+v(12257)*v(6426)+v(12563)*v(6427)+v(12869)*v(6428))&
&/2d0
d2l(10,9,12)=(-(v(12160)*v(6422))-v(12466)*v(6424)-v(12772)*v(6425)+v(12259)*v(6426)+v(12565)*v(6427)+v(12871)*v(6428))&
&/2d0
d2l(10,9,13)=v(17359)
d2l(10,9,14)=v(17360)
d2l(10,9,15)=v(17361)
d2l(10,9,16)=0d0
d2l(10,9,17)=0d0
d2l(10,9,18)=0d0
d2l(10,10,1)=(-(v(11940)*v(6422))-v(11909)*v(6424)-v(11878)*v(6425)+v(11950)*v(6426)+v(11919)*v(6427)+v(11888)*v(6428))&
&/2d0
d2l(10,10,2)=(-(v(11941)*v(6422))-v(11910)*v(6424)-v(11879)*v(6425)+v(11951)*v(6426)+v(11920)*v(6427)+v(11889)*v(6428))&
&/2d0
d2l(10,10,3)=(-(v(11942)*v(6422))-v(11911)*v(6424)-v(11880)*v(6425)+v(11952)*v(6426)+v(11921)*v(6427)+v(11890)*v(6428))&
&/2d0
d2l(10,10,4)=0d0
d2l(10,10,5)=0d0
d2l(10,10,6)=0d0
d2l(10,10,7)=(-(v(11943)*v(6422))-v(11912)*v(6424)-v(11881)*v(6425)+v(11953)*v(6426)+v(11922)*v(6427)+v(11891)*v(6428))&
&/2d0
d2l(10,10,8)=(-(v(11944)*v(6422))-v(11913)*v(6424)-v(11882)*v(6425)+v(11954)*v(6426)+v(11923)*v(6427)+v(11892)*v(6428))&
&/2d0
d2l(10,10,9)=(-(v(11945)*v(6422))-v(11914)*v(6424)-v(11883)*v(6425)+v(11955)*v(6426)+v(11924)*v(6427)+v(11893)*v(6428))&
&/2d0
d2l(10,10,10)=(-(v(11946)*v(6422))-v(11915)*v(6424)-v(11884)*v(6425)+v(11956)*v(6426)+v(11925)*v(6427)+v(11894)*v(6428)&
&)/2d0
d2l(10,10,11)=v(17412)
d2l(10,10,12)=v(17413)
d2l(10,10,13)=(-(v(11947)*v(6422))-v(11916)*v(6424)-v(11885)*v(6425)+v(11957)*v(6426)+v(11926)*v(6427)+v(11895)*v(6428)&
&)/2d0
d2l(10,10,14)=(-(v(11948)*v(6422))-v(11917)*v(6424)-v(11886)*v(6425)+v(11958)*v(6426)+v(11927)*v(6427)+v(11896)*v(6428)&
&)/2d0
d2l(10,10,15)=(-(v(11949)*v(6422))-v(11918)*v(6424)-v(11887)*v(6425)+v(11959)*v(6426)+v(11928)*v(6427)+v(11897)*v(6428)&
&)/2d0
d2l(10,10,16)=0d0
d2l(10,10,17)=0d0
d2l(10,10,18)=0d0
d2l(10,11,1)=(-(v(11836)*v(6422))-v(11801)*v(6424)-v(11766)*v(6425)+v(11847)*v(6426)+v(11812)*v(6427)+v(11777)*v(6428))&
&/2d0
d2l(10,11,2)=(-(v(11837)*v(6422))-v(11802)*v(6424)-v(11767)*v(6425)+v(11848)*v(6426)+v(11813)*v(6427)+v(11778)*v(6428))&
&/2d0
d2l(10,11,3)=(-(v(11838)*v(6422))-v(11803)*v(6424)-v(11768)*v(6425)+v(11849)*v(6426)+v(11814)*v(6427)+v(11779)*v(6428))&
&/2d0
d2l(10,11,4)=0d0
d2l(10,11,5)=0d0
d2l(10,11,6)=0d0
d2l(10,11,7)=(-(v(11839)*v(6422))-v(11804)*v(6424)-v(11769)*v(6425)+v(11850)*v(6426)+v(11815)*v(6427)+v(11780)*v(6428))&
&/2d0
d2l(10,11,8)=(-(v(11840)*v(6422))-v(11805)*v(6424)-v(11770)*v(6425)+v(11851)*v(6426)+v(11816)*v(6427)+v(11781)*v(6428))&
&/2d0
d2l(10,11,9)=(-(v(11841)*v(6422))-v(11806)*v(6424)-v(11771)*v(6425)+v(11852)*v(6426)+v(11817)*v(6427)+v(11782)*v(6428))&
&/2d0
d2l(10,11,10)=v(17412)
d2l(10,11,11)=(-(v(11843)*v(6422))-v(11808)*v(6424)-v(11773)*v(6425)+v(11854)*v(6426)+v(11819)*v(6427)+v(11784)*v(6428)&
&)/2d0
d2l(10,11,12)=v(17448)
d2l(10,11,13)=(-(v(11844)*v(6422))-v(11809)*v(6424)-v(11774)*v(6425)+v(11855)*v(6426)+v(11820)*v(6427)+v(11785)*v(6428)&
&)/2d0
d2l(10,11,14)=(-(v(11845)*v(6422))-v(11810)*v(6424)-v(11775)*v(6425)+v(11856)*v(6426)+v(11821)*v(6427)+v(11786)*v(6428)&
&)/2d0
d2l(10,11,15)=(-(v(11846)*v(6422))-v(11811)*v(6424)-v(11776)*v(6425)+v(11857)*v(6426)+v(11822)*v(6427)+v(11787)*v(6428)&
&)/2d0
d2l(10,11,16)=0d0
d2l(10,11,17)=0d0
d2l(10,11,18)=0d0
d2l(10,12,1)=(-(v(11713)*v(6422))-v(11674)*v(6424)-v(11635)*v(6425)+v(11725)*v(6426)+v(11686)*v(6427)+v(11647)*v(6428))&
&/2d0
d2l(10,12,2)=(-(v(11714)*v(6422))-v(11675)*v(6424)-v(11636)*v(6425)+v(11726)*v(6426)+v(11687)*v(6427)+v(11648)*v(6428))&
&/2d0
d2l(10,12,3)=(-(v(11715)*v(6422))-v(11676)*v(6424)-v(11637)*v(6425)+v(11727)*v(6426)+v(11688)*v(6427)+v(11649)*v(6428))&
&/2d0
d2l(10,12,4)=0d0
d2l(10,12,5)=0d0
d2l(10,12,6)=0d0
d2l(10,12,7)=(-(v(11716)*v(6422))-v(11677)*v(6424)-v(11638)*v(6425)+v(11728)*v(6426)+v(11689)*v(6427)+v(11650)*v(6428))&
&/2d0
d2l(10,12,8)=(-(v(11717)*v(6422))-v(11678)*v(6424)-v(11639)*v(6425)+v(11729)*v(6426)+v(11690)*v(6427)+v(11651)*v(6428))&
&/2d0
d2l(10,12,9)=(-(v(11718)*v(6422))-v(11679)*v(6424)-v(11640)*v(6425)+v(11730)*v(6426)+v(11691)*v(6427)+v(11652)*v(6428))&
&/2d0
d2l(10,12,10)=v(17413)
d2l(10,12,11)=v(17448)
d2l(10,12,12)=(-(v(11721)*v(6422))-v(11682)*v(6424)-v(11643)*v(6425)+v(11733)*v(6426)+v(11694)*v(6427)+v(11655)*v(6428)&
&)/2d0
d2l(10,12,13)=(-(v(11722)*v(6422))-v(11683)*v(6424)-v(11644)*v(6425)+v(11734)*v(6426)+v(11695)*v(6427)+v(11656)*v(6428)&
&)/2d0
d2l(10,12,14)=(-(v(11723)*v(6422))-v(11684)*v(6424)-v(11645)*v(6425)+v(11735)*v(6426)+v(11696)*v(6427)+v(11657)*v(6428)&
&)/2d0
d2l(10,12,15)=(-(v(11724)*v(6422))-v(11685)*v(6424)-v(11646)*v(6425)+v(11736)*v(6426)+v(11697)*v(6427)+v(11658)*v(6428)&
&)/2d0
d2l(10,12,16)=0d0
d2l(10,12,17)=0d0
d2l(10,12,18)=0d0
d2l(10,13,1)=v(16638)
d2l(10,13,2)=v(16792)
d2l(10,13,3)=v(16931)
d2l(10,13,4)=0d0
d2l(10,13,5)=0d0
d2l(10,13,6)=0d0
d2l(10,13,7)=v(17154)
d2l(10,13,8)=v(17263)
d2l(10,13,9)=v(17359)
d2l(10,13,10)=(-(v(12143)*v(6422))-v(12449)*v(6424)-v(12755)*v(6425)+v(12242)*v(6426)+v(12548)*v(6427)+v(12854)*v(6428)&
&)/2d0
d2l(10,13,11)=(-(v(12145)*v(6422))-v(12451)*v(6424)-v(12757)*v(6425)+v(12244)*v(6426)+v(12550)*v(6427)+v(12856)*v(6428)&
&)/2d0
d2l(10,13,12)=(-(v(12147)*v(6422))-v(12453)*v(6424)-v(12759)*v(6425)+v(12246)*v(6426)+v(12552)*v(6427)+v(12858)*v(6428)&
&)/2d0
d2l(10,13,13)=(-(v(12148)*v(6422))-v(12454)*v(6424)-v(12760)*v(6425)+v(12247)*v(6426)+v(12553)*v(6427)+v(12859)*v(6428)&
&)/2d0
d2l(10,13,14)=v(17538)
d2l(10,13,15)=v(17539)
d2l(10,13,16)=0d0
d2l(10,13,17)=0d0
d2l(10,13,18)=0d0
d2l(10,14,1)=v(16639)
d2l(10,14,2)=v(16793)
d2l(10,14,3)=v(16932)
d2l(10,14,4)=0d0
d2l(10,14,5)=0d0
d2l(10,14,6)=0d0
d2l(10,14,7)=v(17155)
d2l(10,14,8)=v(17264)
d2l(10,14,9)=v(17360)
d2l(10,14,10)=(-(v(12129)*v(6422))-v(12435)*v(6424)-v(12741)*v(6425)+v(12228)*v(6426)+v(12534)*v(6427)+v(12840)*v(6428)&
&)/2d0
d2l(10,14,11)=(-(v(12131)*v(6422))-v(12437)*v(6424)-v(12743)*v(6425)+v(12230)*v(6426)+v(12536)*v(6427)+v(12842)*v(6428)&
&)/2d0
d2l(10,14,12)=(-(v(12133)*v(6422))-v(12439)*v(6424)-v(12745)*v(6425)+v(12232)*v(6426)+v(12538)*v(6427)+v(12844)*v(6428)&
&)/2d0
d2l(10,14,13)=v(17538)
d2l(10,14,14)=(-(v(12135)*v(6422))-v(12441)*v(6424)-v(12747)*v(6425)+v(12234)*v(6426)+v(12540)*v(6427)+v(12846)*v(6428)&
&)/2d0
d2l(10,14,15)=v(17603)
d2l(10,14,16)=0d0
d2l(10,14,17)=0d0
d2l(10,14,18)=0d0
d2l(10,15,1)=v(16640)
d2l(10,15,2)=v(16794)
d2l(10,15,3)=v(16933)
d2l(10,15,4)=0d0
d2l(10,15,5)=0d0
d2l(10,15,6)=0d0
d2l(10,15,7)=v(17156)
d2l(10,15,8)=v(17265)
d2l(10,15,9)=v(17361)
d2l(10,15,10)=(-(v(12114)*v(6422))-v(12420)*v(6424)-v(12726)*v(6425)+v(12213)*v(6426)+v(12519)*v(6427)+v(12825)*v(6428)&
&)/2d0
d2l(10,15,11)=(-(v(12116)*v(6422))-v(12422)*v(6424)-v(12728)*v(6425)+v(12215)*v(6426)+v(12521)*v(6427)+v(12827)*v(6428)&
&)/2d0
d2l(10,15,12)=(-(v(12118)*v(6422))-v(12424)*v(6424)-v(12730)*v(6425)+v(12217)*v(6426)+v(12523)*v(6427)+v(12829)*v(6428)&
&)/2d0
d2l(10,15,13)=v(17539)
d2l(10,15,14)=v(17603)
d2l(10,15,15)=(-(v(12121)*v(6422))-v(12427)*v(6424)-v(12733)*v(6425)+v(12220)*v(6426)+v(12526)*v(6427)+v(12832)*v(6428)&
&)/2d0
d2l(10,15,16)=0d0
d2l(10,15,17)=0d0
d2l(10,15,18)=0d0
d2l(10,16,1)=0d0
d2l(10,16,2)=0d0
d2l(10,16,3)=0d0
d2l(10,16,4)=0d0
d2l(10,16,5)=0d0
d2l(10,16,6)=0d0
d2l(10,16,7)=0d0
d2l(10,16,8)=0d0
d2l(10,16,9)=0d0
d2l(10,16,10)=0d0
d2l(10,16,11)=0d0
d2l(10,16,12)=0d0
d2l(10,16,13)=0d0
d2l(10,16,14)=0d0
d2l(10,16,15)=0d0
d2l(10,16,16)=0d0
d2l(10,16,17)=0d0
d2l(10,16,18)=0d0
d2l(10,17,1)=0d0
d2l(10,17,2)=0d0
d2l(10,17,3)=0d0
d2l(10,17,4)=0d0
d2l(10,17,5)=0d0
d2l(10,17,6)=0d0
d2l(10,17,7)=0d0
d2l(10,17,8)=0d0
d2l(10,17,9)=0d0
d2l(10,17,10)=0d0
d2l(10,17,11)=0d0
d2l(10,17,12)=0d0
d2l(10,17,13)=0d0
d2l(10,17,14)=0d0
d2l(10,17,15)=0d0
d2l(10,17,16)=0d0
d2l(10,17,17)=0d0
d2l(10,17,18)=0d0
d2l(10,18,1)=0d0
d2l(10,18,2)=0d0
d2l(10,18,3)=0d0
d2l(10,18,4)=0d0
d2l(10,18,5)=0d0
d2l(10,18,6)=0d0
d2l(10,18,7)=0d0
d2l(10,18,8)=0d0
d2l(10,18,9)=0d0
d2l(10,18,10)=0d0
d2l(10,18,11)=0d0
d2l(10,18,12)=0d0
d2l(10,18,13)=0d0
d2l(10,18,14)=0d0
d2l(10,18,15)=0d0
d2l(10,18,16)=0d0
d2l(10,18,17)=0d0
d2l(10,18,18)=0d0
d2l(11,1,1)=(-(v(12298)*v(6415))-v(12604)*v(6417)-v(12910)*v(6418)+v(12100)*v(6422)+v(12406)*v(6424)+v(12712)*v(6425))&
&/2d0
d2l(11,1,2)=v(16642)
d2l(11,1,3)=v(16643)
d2l(11,1,4)=0d0
d2l(11,1,5)=0d0
d2l(11,1,6)=0d0
d2l(11,1,7)=v(16644)
d2l(11,1,8)=v(16645)
d2l(11,1,9)=v(16646)
d2l(11,1,10)=(-(v(12300)*v(6415))-v(12606)*v(6417)-v(12912)*v(6418)+v(12102)*v(6422)+v(12408)*v(6424)+v(12714)*v(6425))&
&/2d0
d2l(11,1,11)=(-(v(12302)*v(6415))-v(12608)*v(6417)-v(12914)*v(6418)+v(12104)*v(6422)+v(12410)*v(6424)+v(12716)*v(6425))&
&/2d0
d2l(11,1,12)=(-(v(12304)*v(6415))-v(12610)*v(6417)-v(12916)*v(6418)+v(12106)*v(6422)+v(12412)*v(6424)+v(12718)*v(6425))&
&/2d0
d2l(11,1,13)=v(16650)
d2l(11,1,14)=v(16651)
d2l(11,1,15)=v(16652)
d2l(11,1,16)=0d0
d2l(11,1,17)=0d0
d2l(11,1,18)=0d0
d2l(11,2,1)=v(16642)
d2l(11,2,2)=(-(v(12291)*v(6415))-v(12597)*v(6417)-v(12903)*v(6418)+v(12093)*v(6422)+v(12399)*v(6424)+v(12705)*v(6425))&
&/2d0
d2l(11,2,3)=v(16796)
d2l(11,2,4)=0d0
d2l(11,2,5)=0d0
d2l(11,2,6)=0d0
d2l(11,2,7)=v(16797)
d2l(11,2,8)=v(16798)
d2l(11,2,9)=v(16799)
d2l(11,2,10)=(-(v(12293)*v(6415))-v(12599)*v(6417)-v(12905)*v(6418)+v(12095)*v(6422)+v(12401)*v(6424)+v(12707)*v(6425))&
&/2d0
d2l(11,2,11)=(-(v(12295)*v(6415))-v(12601)*v(6417)-v(12907)*v(6418)+v(12097)*v(6422)+v(12403)*v(6424)+v(12709)*v(6425))&
&/2d0
d2l(11,2,12)=(-(v(12297)*v(6415))-v(12603)*v(6417)-v(12909)*v(6418)+v(12099)*v(6422)+v(12405)*v(6424)+v(12711)*v(6425))&
&/2d0
d2l(11,2,13)=v(16803)
d2l(11,2,14)=v(16804)
d2l(11,2,15)=v(16805)
d2l(11,2,16)=0d0
d2l(11,2,17)=0d0
d2l(11,2,18)=0d0
d2l(11,3,1)=v(16643)
d2l(11,3,2)=v(16796)
d2l(11,3,3)=(-(v(12283)*v(6415))-v(12589)*v(6417)-v(12895)*v(6418)+v(12085)*v(6422)+v(12391)*v(6424)+v(12697)*v(6425))&
&/2d0
d2l(11,3,4)=0d0
d2l(11,3,5)=0d0
d2l(11,3,6)=0d0
d2l(11,3,7)=v(16935)
d2l(11,3,8)=v(16936)
d2l(11,3,9)=v(16937)
d2l(11,3,10)=(-(v(12285)*v(6415))-v(12591)*v(6417)-v(12897)*v(6418)+v(12087)*v(6422)+v(12393)*v(6424)+v(12699)*v(6425))&
&/2d0
d2l(11,3,11)=(-(v(12287)*v(6415))-v(12593)*v(6417)-v(12899)*v(6418)+v(12089)*v(6422)+v(12395)*v(6424)+v(12701)*v(6425))&
&/2d0
d2l(11,3,12)=(-(v(12289)*v(6415))-v(12595)*v(6417)-v(12901)*v(6418)+v(12091)*v(6422)+v(12397)*v(6424)+v(12703)*v(6425))&
&/2d0
d2l(11,3,13)=v(16941)
d2l(11,3,14)=v(16942)
d2l(11,3,15)=v(16943)
d2l(11,3,16)=0d0
d2l(11,3,17)=0d0
d2l(11,3,18)=0d0
d2l(11,4,1)=0d0
d2l(11,4,2)=0d0
d2l(11,4,3)=0d0
d2l(11,4,4)=0d0
d2l(11,4,5)=0d0
d2l(11,4,6)=0d0
d2l(11,4,7)=0d0
d2l(11,4,8)=0d0
d2l(11,4,9)=0d0
d2l(11,4,10)=0d0
d2l(11,4,11)=0d0
d2l(11,4,12)=0d0
d2l(11,4,13)=0d0
d2l(11,4,14)=0d0
d2l(11,4,15)=0d0
d2l(11,4,16)=0d0
d2l(11,4,17)=0d0
d2l(11,4,18)=0d0
d2l(11,5,1)=0d0
d2l(11,5,2)=0d0
d2l(11,5,3)=0d0
d2l(11,5,4)=0d0
d2l(11,5,5)=0d0
d2l(11,5,6)=0d0
d2l(11,5,7)=0d0
d2l(11,5,8)=0d0
d2l(11,5,9)=0d0
d2l(11,5,10)=0d0
d2l(11,5,11)=0d0
d2l(11,5,12)=0d0
d2l(11,5,13)=0d0
d2l(11,5,14)=0d0
d2l(11,5,15)=0d0
d2l(11,5,16)=0d0
d2l(11,5,17)=0d0
d2l(11,5,18)=0d0
d2l(11,6,1)=0d0
d2l(11,6,2)=0d0
d2l(11,6,3)=0d0
d2l(11,6,4)=0d0
d2l(11,6,5)=0d0
d2l(11,6,6)=0d0
d2l(11,6,7)=0d0
d2l(11,6,8)=0d0
d2l(11,6,9)=0d0
d2l(11,6,10)=0d0
d2l(11,6,11)=0d0
d2l(11,6,12)=0d0
d2l(11,6,13)=0d0
d2l(11,6,14)=0d0
d2l(11,6,15)=0d0
d2l(11,6,16)=0d0
d2l(11,6,17)=0d0
d2l(11,6,18)=0d0
d2l(11,7,1)=v(16644)
d2l(11,7,2)=v(16797)
d2l(11,7,3)=v(16935)
d2l(11,7,4)=0d0
d2l(11,7,5)=0d0
d2l(11,7,6)=0d0
d2l(11,7,7)=(-(v(12274)*v(6415))-v(12580)*v(6417)-v(12886)*v(6418)+v(12076)*v(6422)+v(12382)*v(6424)+v(12688)*v(6425))&
&/2d0
d2l(11,7,8)=v(17158)
d2l(11,7,9)=v(17159)
d2l(11,7,10)=(-(v(12276)*v(6415))-v(12582)*v(6417)-v(12888)*v(6418)+v(12078)*v(6422)+v(12384)*v(6424)+v(12690)*v(6425))&
&/2d0
d2l(11,7,11)=(-(v(12278)*v(6415))-v(12584)*v(6417)-v(12890)*v(6418)+v(12080)*v(6422)+v(12386)*v(6424)+v(12692)*v(6425))&
&/2d0
d2l(11,7,12)=(-(v(12280)*v(6415))-v(12586)*v(6417)-v(12892)*v(6418)+v(12082)*v(6422)+v(12388)*v(6424)+v(12694)*v(6425))&
&/2d0
d2l(11,7,13)=v(17163)
d2l(11,7,14)=v(17164)
d2l(11,7,15)=v(17165)
d2l(11,7,16)=0d0
d2l(11,7,17)=0d0
d2l(11,7,18)=0d0
d2l(11,8,1)=v(16645)
d2l(11,8,2)=v(16798)
d2l(11,8,3)=v(16936)
d2l(11,8,4)=0d0
d2l(11,8,5)=0d0
d2l(11,8,6)=0d0
d2l(11,8,7)=v(17158)
d2l(11,8,8)=(-(v(12264)*v(6415))-v(12570)*v(6417)-v(12876)*v(6418)+v(12066)*v(6422)+v(12372)*v(6424)+v(12678)*v(6425))&
&/2d0
d2l(11,8,9)=v(17267)
d2l(11,8,10)=(-(v(12266)*v(6415))-v(12572)*v(6417)-v(12878)*v(6418)+v(12068)*v(6422)+v(12374)*v(6424)+v(12680)*v(6425))&
&/2d0
d2l(11,8,11)=(-(v(12268)*v(6415))-v(12574)*v(6417)-v(12880)*v(6418)+v(12070)*v(6422)+v(12376)*v(6424)+v(12682)*v(6425))&
&/2d0
d2l(11,8,12)=(-(v(12270)*v(6415))-v(12576)*v(6417)-v(12882)*v(6418)+v(12072)*v(6422)+v(12378)*v(6424)+v(12684)*v(6425))&
&/2d0
d2l(11,8,13)=v(17271)
d2l(11,8,14)=v(17272)
d2l(11,8,15)=v(17273)
d2l(11,8,16)=0d0
d2l(11,8,17)=0d0
d2l(11,8,18)=0d0
d2l(11,9,1)=v(16646)
d2l(11,9,2)=v(16799)
d2l(11,9,3)=v(16937)
d2l(11,9,4)=0d0
d2l(11,9,5)=0d0
d2l(11,9,6)=0d0
d2l(11,9,7)=v(17159)
d2l(11,9,8)=v(17267)
d2l(11,9,9)=(-(v(12253)*v(6415))-v(12559)*v(6417)-v(12865)*v(6418)+v(12055)*v(6422)+v(12361)*v(6424)+v(12667)*v(6425))&
&/2d0
d2l(11,9,10)=(-(v(12255)*v(6415))-v(12561)*v(6417)-v(12867)*v(6418)+v(12057)*v(6422)+v(12363)*v(6424)+v(12669)*v(6425))&
&/2d0
d2l(11,9,11)=(-(v(12257)*v(6415))-v(12563)*v(6417)-v(12869)*v(6418)+v(12059)*v(6422)+v(12365)*v(6424)+v(12671)*v(6425))&
&/2d0
d2l(11,9,12)=(-(v(12259)*v(6415))-v(12565)*v(6417)-v(12871)*v(6418)+v(12061)*v(6422)+v(12367)*v(6424)+v(12673)*v(6425))&
&/2d0
d2l(11,9,13)=v(17366)
d2l(11,9,14)=v(17367)
d2l(11,9,15)=v(17368)
d2l(11,9,16)=0d0
d2l(11,9,17)=0d0
d2l(11,9,18)=0d0
d2l(11,10,1)=(-(v(11950)*v(6415))-v(11919)*v(6417)-v(11888)*v(6418)+v(11930)*v(6422)+v(11899)*v(6424)+v(11868)*v(6425))&
&/2d0
d2l(11,10,2)=(-(v(11951)*v(6415))-v(11920)*v(6417)-v(11889)*v(6418)+v(11931)*v(6422)+v(11900)*v(6424)+v(11869)*v(6425))&
&/2d0
d2l(11,10,3)=(-(v(11952)*v(6415))-v(11921)*v(6417)-v(11890)*v(6418)+v(11932)*v(6422)+v(11901)*v(6424)+v(11870)*v(6425))&
&/2d0
d2l(11,10,4)=0d0
d2l(11,10,5)=0d0
d2l(11,10,6)=0d0
d2l(11,10,7)=(-(v(11953)*v(6415))-v(11922)*v(6417)-v(11891)*v(6418)+v(11933)*v(6422)+v(11902)*v(6424)+v(11871)*v(6425))&
&/2d0
d2l(11,10,8)=(-(v(11954)*v(6415))-v(11923)*v(6417)-v(11892)*v(6418)+v(11934)*v(6422)+v(11903)*v(6424)+v(11872)*v(6425))&
&/2d0
d2l(11,10,9)=(-(v(11955)*v(6415))-v(11924)*v(6417)-v(11893)*v(6418)+v(11935)*v(6422)+v(11904)*v(6424)+v(11873)*v(6425))&
&/2d0
d2l(11,10,10)=(-(v(11956)*v(6415))-v(11925)*v(6417)-v(11894)*v(6418)+v(11936)*v(6422)+v(11905)*v(6424)+v(11874)*v(6425)&
&)/2d0
d2l(11,10,11)=v(17424)
d2l(11,10,12)=v(17425)
d2l(11,10,13)=(-(v(11957)*v(6415))-v(11926)*v(6417)-v(11895)*v(6418)+v(11937)*v(6422)+v(11906)*v(6424)+v(11875)*v(6425)&
&)/2d0
d2l(11,10,14)=(-(v(11958)*v(6415))-v(11927)*v(6417)-v(11896)*v(6418)+v(11938)*v(6422)+v(11907)*v(6424)+v(11876)*v(6425)&
&)/2d0
d2l(11,10,15)=(-(v(11959)*v(6415))-v(11928)*v(6417)-v(11897)*v(6418)+v(11939)*v(6422)+v(11908)*v(6424)+v(11877)*v(6425)&
&)/2d0
d2l(11,10,16)=0d0
d2l(11,10,17)=0d0
d2l(11,10,18)=0d0
d2l(11,11,1)=(-(v(11847)*v(6415))-v(11812)*v(6417)-v(11777)*v(6418)+v(11825)*v(6422)+v(11790)*v(6424)+v(11755)*v(6425))&
&/2d0
d2l(11,11,2)=(-(v(11848)*v(6415))-v(11813)*v(6417)-v(11778)*v(6418)+v(11826)*v(6422)+v(11791)*v(6424)+v(11756)*v(6425))&
&/2d0
d2l(11,11,3)=(-(v(11849)*v(6415))-v(11814)*v(6417)-v(11779)*v(6418)+v(11827)*v(6422)+v(11792)*v(6424)+v(11757)*v(6425))&
&/2d0
d2l(11,11,4)=0d0
d2l(11,11,5)=0d0
d2l(11,11,6)=0d0
d2l(11,11,7)=(-(v(11850)*v(6415))-v(11815)*v(6417)-v(11780)*v(6418)+v(11828)*v(6422)+v(11793)*v(6424)+v(11758)*v(6425))&
&/2d0
d2l(11,11,8)=(-(v(11851)*v(6415))-v(11816)*v(6417)-v(11781)*v(6418)+v(11829)*v(6422)+v(11794)*v(6424)+v(11759)*v(6425))&
&/2d0
d2l(11,11,9)=(-(v(11852)*v(6415))-v(11817)*v(6417)-v(11782)*v(6418)+v(11830)*v(6422)+v(11795)*v(6424)+v(11760)*v(6425))&
&/2d0
d2l(11,11,10)=v(17424)
d2l(11,11,11)=(-(v(11854)*v(6415))-v(11819)*v(6417)-v(11784)*v(6418)+v(11832)*v(6422)+v(11797)*v(6424)+v(11762)*v(6425)&
&)/2d0
d2l(11,11,12)=v(17459)
d2l(11,11,13)=(-(v(11855)*v(6415))-v(11820)*v(6417)-v(11785)*v(6418)+v(11833)*v(6422)+v(11798)*v(6424)+v(11763)*v(6425)&
&)/2d0
d2l(11,11,14)=(-(v(11856)*v(6415))-v(11821)*v(6417)-v(11786)*v(6418)+v(11834)*v(6422)+v(11799)*v(6424)+v(11764)*v(6425)&
&)/2d0
d2l(11,11,15)=(-(v(11857)*v(6415))-v(11822)*v(6417)-v(11787)*v(6418)+v(11835)*v(6422)+v(11800)*v(6424)+v(11765)*v(6425)&
&)/2d0
d2l(11,11,16)=0d0
d2l(11,11,17)=0d0
d2l(11,11,18)=0d0
d2l(11,12,1)=(-(v(11725)*v(6415))-v(11686)*v(6417)-v(11647)*v(6418)+v(11701)*v(6422)+v(11662)*v(6424)+v(11623)*v(6425))&
&/2d0
d2l(11,12,2)=(-(v(11726)*v(6415))-v(11687)*v(6417)-v(11648)*v(6418)+v(11702)*v(6422)+v(11663)*v(6424)+v(11624)*v(6425))&
&/2d0
d2l(11,12,3)=(-(v(11727)*v(6415))-v(11688)*v(6417)-v(11649)*v(6418)+v(11703)*v(6422)+v(11664)*v(6424)+v(11625)*v(6425))&
&/2d0
d2l(11,12,4)=0d0
d2l(11,12,5)=0d0
d2l(11,12,6)=0d0
d2l(11,12,7)=(-(v(11728)*v(6415))-v(11689)*v(6417)-v(11650)*v(6418)+v(11704)*v(6422)+v(11665)*v(6424)+v(11626)*v(6425))&
&/2d0
d2l(11,12,8)=(-(v(11729)*v(6415))-v(11690)*v(6417)-v(11651)*v(6418)+v(11705)*v(6422)+v(11666)*v(6424)+v(11627)*v(6425))&
&/2d0
d2l(11,12,9)=(-(v(11730)*v(6415))-v(11691)*v(6417)-v(11652)*v(6418)+v(11706)*v(6422)+v(11667)*v(6424)+v(11628)*v(6425))&
&/2d0
d2l(11,12,10)=v(17425)
d2l(11,12,11)=v(17459)
d2l(11,12,12)=(-(v(11733)*v(6415))-v(11694)*v(6417)-v(11655)*v(6418)+v(11709)*v(6422)+v(11670)*v(6424)+v(11631)*v(6425)&
&)/2d0
d2l(11,12,13)=(-(v(11734)*v(6415))-v(11695)*v(6417)-v(11656)*v(6418)+v(11710)*v(6422)+v(11671)*v(6424)+v(11632)*v(6425)&
&)/2d0
d2l(11,12,14)=(-(v(11735)*v(6415))-v(11696)*v(6417)-v(11657)*v(6418)+v(11711)*v(6422)+v(11672)*v(6424)+v(11633)*v(6425)&
&)/2d0
d2l(11,12,15)=(-(v(11736)*v(6415))-v(11697)*v(6417)-v(11658)*v(6418)+v(11712)*v(6422)+v(11673)*v(6424)+v(11634)*v(6425)&
&)/2d0
d2l(11,12,16)=0d0
d2l(11,12,17)=0d0
d2l(11,12,18)=0d0
d2l(11,13,1)=v(16650)
d2l(11,13,2)=v(16803)
d2l(11,13,3)=v(16941)
d2l(11,13,4)=0d0
d2l(11,13,5)=0d0
d2l(11,13,6)=0d0
d2l(11,13,7)=v(17163)
d2l(11,13,8)=v(17271)
d2l(11,13,9)=v(17366)
d2l(11,13,10)=(-(v(12242)*v(6415))-v(12548)*v(6417)-v(12854)*v(6418)+v(12044)*v(6422)+v(12350)*v(6424)+v(12656)*v(6425)&
&)/2d0
d2l(11,13,11)=(-(v(12244)*v(6415))-v(12550)*v(6417)-v(12856)*v(6418)+v(12046)*v(6422)+v(12352)*v(6424)+v(12658)*v(6425)&
&)/2d0
d2l(11,13,12)=(-(v(12246)*v(6415))-v(12552)*v(6417)-v(12858)*v(6418)+v(12048)*v(6422)+v(12354)*v(6424)+v(12660)*v(6425)&
&)/2d0
d2l(11,13,13)=(-(v(12247)*v(6415))-v(12553)*v(6417)-v(12859)*v(6418)+v(12049)*v(6422)+v(12355)*v(6424)+v(12661)*v(6425)&
&)/2d0
d2l(11,13,14)=v(17544)
d2l(11,13,15)=v(17545)
d2l(11,13,16)=0d0
d2l(11,13,17)=0d0
d2l(11,13,18)=0d0
d2l(11,14,1)=v(16651)
d2l(11,14,2)=v(16804)
d2l(11,14,3)=v(16942)
d2l(11,14,4)=0d0
d2l(11,14,5)=0d0
d2l(11,14,6)=0d0
d2l(11,14,7)=v(17164)
d2l(11,14,8)=v(17272)
d2l(11,14,9)=v(17367)
d2l(11,14,10)=(-(v(12228)*v(6415))-v(12534)*v(6417)-v(12840)*v(6418)+v(12030)*v(6422)+v(12336)*v(6424)+v(12642)*v(6425)&
&)/2d0
d2l(11,14,11)=(-(v(12230)*v(6415))-v(12536)*v(6417)-v(12842)*v(6418)+v(12032)*v(6422)+v(12338)*v(6424)+v(12644)*v(6425)&
&)/2d0
d2l(11,14,12)=(-(v(12232)*v(6415))-v(12538)*v(6417)-v(12844)*v(6418)+v(12034)*v(6422)+v(12340)*v(6424)+v(12646)*v(6425)&
&)/2d0
d2l(11,14,13)=v(17544)
d2l(11,14,14)=(-(v(12234)*v(6415))-v(12540)*v(6417)-v(12846)*v(6418)+v(12036)*v(6422)+v(12342)*v(6424)+v(12648)*v(6425)&
&)/2d0
d2l(11,14,15)=v(17608)
d2l(11,14,16)=0d0
d2l(11,14,17)=0d0
d2l(11,14,18)=0d0
d2l(11,15,1)=v(16652)
d2l(11,15,2)=v(16805)
d2l(11,15,3)=v(16943)
d2l(11,15,4)=0d0
d2l(11,15,5)=0d0
d2l(11,15,6)=0d0
d2l(11,15,7)=v(17165)
d2l(11,15,8)=v(17273)
d2l(11,15,9)=v(17368)
d2l(11,15,10)=(-(v(12213)*v(6415))-v(12519)*v(6417)-v(12825)*v(6418)+v(12015)*v(6422)+v(12321)*v(6424)+v(12627)*v(6425)&
&)/2d0
d2l(11,15,11)=(-(v(12215)*v(6415))-v(12521)*v(6417)-v(12827)*v(6418)+v(12017)*v(6422)+v(12323)*v(6424)+v(12629)*v(6425)&
&)/2d0
d2l(11,15,12)=(-(v(12217)*v(6415))-v(12523)*v(6417)-v(12829)*v(6418)+v(12019)*v(6422)+v(12325)*v(6424)+v(12631)*v(6425)&
&)/2d0
d2l(11,15,13)=v(17545)
d2l(11,15,14)=v(17608)
d2l(11,15,15)=(-(v(12220)*v(6415))-v(12526)*v(6417)-v(12832)*v(6418)+v(12022)*v(6422)+v(12328)*v(6424)+v(12634)*v(6425)&
&)/2d0
d2l(11,15,16)=0d0
d2l(11,15,17)=0d0
d2l(11,15,18)=0d0
d2l(11,16,1)=0d0
d2l(11,16,2)=0d0
d2l(11,16,3)=0d0
d2l(11,16,4)=0d0
d2l(11,16,5)=0d0
d2l(11,16,6)=0d0
d2l(11,16,7)=0d0
d2l(11,16,8)=0d0
d2l(11,16,9)=0d0
d2l(11,16,10)=0d0
d2l(11,16,11)=0d0
d2l(11,16,12)=0d0
d2l(11,16,13)=0d0
d2l(11,16,14)=0d0
d2l(11,16,15)=0d0
d2l(11,16,16)=0d0
d2l(11,16,17)=0d0
d2l(11,16,18)=0d0
d2l(11,17,1)=0d0
d2l(11,17,2)=0d0
d2l(11,17,3)=0d0
d2l(11,17,4)=0d0
d2l(11,17,5)=0d0
d2l(11,17,6)=0d0
d2l(11,17,7)=0d0
d2l(11,17,8)=0d0
d2l(11,17,9)=0d0
d2l(11,17,10)=0d0
d2l(11,17,11)=0d0
d2l(11,17,12)=0d0
d2l(11,17,13)=0d0
d2l(11,17,14)=0d0
d2l(11,17,15)=0d0
d2l(11,17,16)=0d0
d2l(11,17,17)=0d0
d2l(11,17,18)=0d0
d2l(11,18,1)=0d0
d2l(11,18,2)=0d0
d2l(11,18,3)=0d0
d2l(11,18,4)=0d0
d2l(11,18,5)=0d0
d2l(11,18,6)=0d0
d2l(11,18,7)=0d0
d2l(11,18,8)=0d0
d2l(11,18,9)=0d0
d2l(11,18,10)=0d0
d2l(11,18,11)=0d0
d2l(11,18,12)=0d0
d2l(11,18,13)=0d0
d2l(11,18,14)=0d0
d2l(11,18,15)=0d0
d2l(11,18,16)=0d0
d2l(11,18,17)=0d0
d2l(11,18,18)=0d0
d2l(12,1,1)=(v(12199)*v(6415)+v(12505)*v(6417)+v(12811)*v(6418)-v(12100)*v(6426)-v(12406)*v(6427)-v(12712)*v(6428))/2d0
d2l(12,1,2)=v(16654)
d2l(12,1,3)=v(16655)
d2l(12,1,4)=0d0
d2l(12,1,5)=0d0
d2l(12,1,6)=0d0
d2l(12,1,7)=v(16656)
d2l(12,1,8)=v(16657)
d2l(12,1,9)=v(16658)
d2l(12,1,10)=(v(12201)*v(6415)+v(12507)*v(6417)+v(12813)*v(6418)-v(12102)*v(6426)-v(12408)*v(6427)-v(12714)*v(6428))&
&/2d0
d2l(12,1,11)=(v(12203)*v(6415)+v(12509)*v(6417)+v(12815)*v(6418)-v(12104)*v(6426)-v(12410)*v(6427)-v(12716)*v(6428))&
&/2d0
d2l(12,1,12)=(v(12205)*v(6415)+v(12511)*v(6417)+v(12817)*v(6418)-v(12106)*v(6426)-v(12412)*v(6427)-v(12718)*v(6428))&
&/2d0
d2l(12,1,13)=v(16662)
d2l(12,1,14)=v(16663)
d2l(12,1,15)=v(16664)
d2l(12,1,16)=0d0
d2l(12,1,17)=0d0
d2l(12,1,18)=0d0
d2l(12,2,1)=v(16654)
d2l(12,2,2)=(v(12192)*v(6415)+v(12498)*v(6417)+v(12804)*v(6418)-v(12093)*v(6426)-v(12399)*v(6427)-v(12705)*v(6428))/2d0
d2l(12,2,3)=v(16807)
d2l(12,2,4)=0d0
d2l(12,2,5)=0d0
d2l(12,2,6)=0d0
d2l(12,2,7)=v(16808)
d2l(12,2,8)=v(16809)
d2l(12,2,9)=v(16810)
d2l(12,2,10)=(v(12194)*v(6415)+v(12500)*v(6417)+v(12806)*v(6418)-v(12095)*v(6426)-v(12401)*v(6427)-v(12707)*v(6428))&
&/2d0
d2l(12,2,11)=(v(12196)*v(6415)+v(12502)*v(6417)+v(12808)*v(6418)-v(12097)*v(6426)-v(12403)*v(6427)-v(12709)*v(6428))&
&/2d0
d2l(12,2,12)=(v(12198)*v(6415)+v(12504)*v(6417)+v(12810)*v(6418)-v(12099)*v(6426)-v(12405)*v(6427)-v(12711)*v(6428))&
&/2d0
d2l(12,2,13)=v(16814)
d2l(12,2,14)=v(16815)
d2l(12,2,15)=v(16816)
d2l(12,2,16)=0d0
d2l(12,2,17)=0d0
d2l(12,2,18)=0d0
d2l(12,3,1)=v(16655)
d2l(12,3,2)=v(16807)
d2l(12,3,3)=(v(12184)*v(6415)+v(12490)*v(6417)+v(12796)*v(6418)-v(12085)*v(6426)-v(12391)*v(6427)-v(12697)*v(6428))/2d0
d2l(12,3,4)=0d0
d2l(12,3,5)=0d0
d2l(12,3,6)=0d0
d2l(12,3,7)=v(16945)
d2l(12,3,8)=v(16946)
d2l(12,3,9)=v(16947)
d2l(12,3,10)=(v(12186)*v(6415)+v(12492)*v(6417)+v(12798)*v(6418)-v(12087)*v(6426)-v(12393)*v(6427)-v(12699)*v(6428))&
&/2d0
d2l(12,3,11)=(v(12188)*v(6415)+v(12494)*v(6417)+v(12800)*v(6418)-v(12089)*v(6426)-v(12395)*v(6427)-v(12701)*v(6428))&
&/2d0
d2l(12,3,12)=(v(12190)*v(6415)+v(12496)*v(6417)+v(12802)*v(6418)-v(12091)*v(6426)-v(12397)*v(6427)-v(12703)*v(6428))&
&/2d0
d2l(12,3,13)=v(16951)
d2l(12,3,14)=v(16952)
d2l(12,3,15)=v(16953)
d2l(12,3,16)=0d0
d2l(12,3,17)=0d0
d2l(12,3,18)=0d0
d2l(12,4,1)=0d0
d2l(12,4,2)=0d0
d2l(12,4,3)=0d0
d2l(12,4,4)=0d0
d2l(12,4,5)=0d0
d2l(12,4,6)=0d0
d2l(12,4,7)=0d0
d2l(12,4,8)=0d0
d2l(12,4,9)=0d0
d2l(12,4,10)=0d0
d2l(12,4,11)=0d0
d2l(12,4,12)=0d0
d2l(12,4,13)=0d0
d2l(12,4,14)=0d0
d2l(12,4,15)=0d0
d2l(12,4,16)=0d0
d2l(12,4,17)=0d0
d2l(12,4,18)=0d0
d2l(12,5,1)=0d0
d2l(12,5,2)=0d0
d2l(12,5,3)=0d0
d2l(12,5,4)=0d0
d2l(12,5,5)=0d0
d2l(12,5,6)=0d0
d2l(12,5,7)=0d0
d2l(12,5,8)=0d0
d2l(12,5,9)=0d0
d2l(12,5,10)=0d0
d2l(12,5,11)=0d0
d2l(12,5,12)=0d0
d2l(12,5,13)=0d0
d2l(12,5,14)=0d0
d2l(12,5,15)=0d0
d2l(12,5,16)=0d0
d2l(12,5,17)=0d0
d2l(12,5,18)=0d0
d2l(12,6,1)=0d0
d2l(12,6,2)=0d0
d2l(12,6,3)=0d0
d2l(12,6,4)=0d0
d2l(12,6,5)=0d0
d2l(12,6,6)=0d0
d2l(12,6,7)=0d0
d2l(12,6,8)=0d0
d2l(12,6,9)=0d0
d2l(12,6,10)=0d0
d2l(12,6,11)=0d0
d2l(12,6,12)=0d0
d2l(12,6,13)=0d0
d2l(12,6,14)=0d0
d2l(12,6,15)=0d0
d2l(12,6,16)=0d0
d2l(12,6,17)=0d0
d2l(12,6,18)=0d0
d2l(12,7,1)=v(16656)
d2l(12,7,2)=v(16808)
d2l(12,7,3)=v(16945)
d2l(12,7,4)=0d0
d2l(12,7,5)=0d0
d2l(12,7,6)=0d0
d2l(12,7,7)=(v(12175)*v(6415)+v(12481)*v(6417)+v(12787)*v(6418)-v(12076)*v(6426)-v(12382)*v(6427)-v(12688)*v(6428))/2d0
d2l(12,7,8)=v(17167)
d2l(12,7,9)=v(17168)
d2l(12,7,10)=(v(12177)*v(6415)+v(12483)*v(6417)+v(12789)*v(6418)-v(12078)*v(6426)-v(12384)*v(6427)-v(12690)*v(6428))&
&/2d0
d2l(12,7,11)=(v(12179)*v(6415)+v(12485)*v(6417)+v(12791)*v(6418)-v(12080)*v(6426)-v(12386)*v(6427)-v(12692)*v(6428))&
&/2d0
d2l(12,7,12)=(v(12181)*v(6415)+v(12487)*v(6417)+v(12793)*v(6418)-v(12082)*v(6426)-v(12388)*v(6427)-v(12694)*v(6428))&
&/2d0
d2l(12,7,13)=v(17172)
d2l(12,7,14)=v(17173)
d2l(12,7,15)=v(17174)
d2l(12,7,16)=0d0
d2l(12,7,17)=0d0
d2l(12,7,18)=0d0
d2l(12,8,1)=v(16657)
d2l(12,8,2)=v(16809)
d2l(12,8,3)=v(16946)
d2l(12,8,4)=0d0
d2l(12,8,5)=0d0
d2l(12,8,6)=0d0
d2l(12,8,7)=v(17167)
d2l(12,8,8)=(v(12165)*v(6415)+v(12471)*v(6417)+v(12777)*v(6418)-v(12066)*v(6426)-v(12372)*v(6427)-v(12678)*v(6428))/2d0
d2l(12,8,9)=v(17275)
d2l(12,8,10)=(v(12167)*v(6415)+v(12473)*v(6417)+v(12779)*v(6418)-v(12068)*v(6426)-v(12374)*v(6427)-v(12680)*v(6428))&
&/2d0
d2l(12,8,11)=(v(12169)*v(6415)+v(12475)*v(6417)+v(12781)*v(6418)-v(12070)*v(6426)-v(12376)*v(6427)-v(12682)*v(6428))&
&/2d0
d2l(12,8,12)=(v(12171)*v(6415)+v(12477)*v(6417)+v(12783)*v(6418)-v(12072)*v(6426)-v(12378)*v(6427)-v(12684)*v(6428))&
&/2d0
d2l(12,8,13)=v(17279)
d2l(12,8,14)=v(17280)
d2l(12,8,15)=v(17281)
d2l(12,8,16)=0d0
d2l(12,8,17)=0d0
d2l(12,8,18)=0d0
d2l(12,9,1)=v(16658)
d2l(12,9,2)=v(16810)
d2l(12,9,3)=v(16947)
d2l(12,9,4)=0d0
d2l(12,9,5)=0d0
d2l(12,9,6)=0d0
d2l(12,9,7)=v(17168)
d2l(12,9,8)=v(17275)
d2l(12,9,9)=(v(12154)*v(6415)+v(12460)*v(6417)+v(12766)*v(6418)-v(12055)*v(6426)-v(12361)*v(6427)-v(12667)*v(6428))/2d0
d2l(12,9,10)=(v(12156)*v(6415)+v(12462)*v(6417)+v(12768)*v(6418)-v(12057)*v(6426)-v(12363)*v(6427)-v(12669)*v(6428))&
&/2d0
d2l(12,9,11)=(v(12158)*v(6415)+v(12464)*v(6417)+v(12770)*v(6418)-v(12059)*v(6426)-v(12365)*v(6427)-v(12671)*v(6428))&
&/2d0
d2l(12,9,12)=(v(12160)*v(6415)+v(12466)*v(6417)+v(12772)*v(6418)-v(12061)*v(6426)-v(12367)*v(6427)-v(12673)*v(6428))&
&/2d0
d2l(12,9,13)=v(17373)
d2l(12,9,14)=v(17374)
d2l(12,9,15)=v(17375)
d2l(12,9,16)=0d0
d2l(12,9,17)=0d0
d2l(12,9,18)=0d0
d2l(12,10,1)=(v(11940)*v(6415)+v(11909)*v(6417)+v(11878)*v(6418)-v(11930)*v(6426)-v(11899)*v(6427)-v(11868)*v(6428))&
&/2d0
d2l(12,10,2)=(v(11941)*v(6415)+v(11910)*v(6417)+v(11879)*v(6418)-v(11931)*v(6426)-v(11900)*v(6427)-v(11869)*v(6428))&
&/2d0
d2l(12,10,3)=(v(11942)*v(6415)+v(11911)*v(6417)+v(11880)*v(6418)-v(11932)*v(6426)-v(11901)*v(6427)-v(11870)*v(6428))&
&/2d0
d2l(12,10,4)=0d0
d2l(12,10,5)=0d0
d2l(12,10,6)=0d0
d2l(12,10,7)=(v(11943)*v(6415)+v(11912)*v(6417)+v(11881)*v(6418)-v(11933)*v(6426)-v(11902)*v(6427)-v(11871)*v(6428))&
&/2d0
d2l(12,10,8)=(v(11944)*v(6415)+v(11913)*v(6417)+v(11882)*v(6418)-v(11934)*v(6426)-v(11903)*v(6427)-v(11872)*v(6428))&
&/2d0
d2l(12,10,9)=(v(11945)*v(6415)+v(11914)*v(6417)+v(11883)*v(6418)-v(11935)*v(6426)-v(11904)*v(6427)-v(11873)*v(6428))&
&/2d0
d2l(12,10,10)=(v(11946)*v(6415)+v(11915)*v(6417)+v(11884)*v(6418)-v(11936)*v(6426)-v(11905)*v(6427)-v(11874)*v(6428))&
&/2d0
d2l(12,10,11)=v(17436)
d2l(12,10,12)=v(17437)
d2l(12,10,13)=(v(11947)*v(6415)+v(11916)*v(6417)+v(11885)*v(6418)-v(11937)*v(6426)-v(11906)*v(6427)-v(11875)*v(6428))&
&/2d0
d2l(12,10,14)=(v(11948)*v(6415)+v(11917)*v(6417)+v(11886)*v(6418)-v(11938)*v(6426)-v(11907)*v(6427)-v(11876)*v(6428))&
&/2d0
d2l(12,10,15)=(v(11949)*v(6415)+v(11918)*v(6417)+v(11887)*v(6418)-v(11939)*v(6426)-v(11908)*v(6427)-v(11877)*v(6428))&
&/2d0
d2l(12,10,16)=0d0
d2l(12,10,17)=0d0
d2l(12,10,18)=0d0
d2l(12,11,1)=(v(11836)*v(6415)+v(11801)*v(6417)+v(11766)*v(6418)-v(11825)*v(6426)-v(11790)*v(6427)-v(11755)*v(6428))&
&/2d0
d2l(12,11,2)=(v(11837)*v(6415)+v(11802)*v(6417)+v(11767)*v(6418)-v(11826)*v(6426)-v(11791)*v(6427)-v(11756)*v(6428))&
&/2d0
d2l(12,11,3)=(v(11838)*v(6415)+v(11803)*v(6417)+v(11768)*v(6418)-v(11827)*v(6426)-v(11792)*v(6427)-v(11757)*v(6428))&
&/2d0
d2l(12,11,4)=0d0
d2l(12,11,5)=0d0
d2l(12,11,6)=0d0
d2l(12,11,7)=(v(11839)*v(6415)+v(11804)*v(6417)+v(11769)*v(6418)-v(11828)*v(6426)-v(11793)*v(6427)-v(11758)*v(6428))&
&/2d0
d2l(12,11,8)=(v(11840)*v(6415)+v(11805)*v(6417)+v(11770)*v(6418)-v(11829)*v(6426)-v(11794)*v(6427)-v(11759)*v(6428))&
&/2d0
d2l(12,11,9)=(v(11841)*v(6415)+v(11806)*v(6417)+v(11771)*v(6418)-v(11830)*v(6426)-v(11795)*v(6427)-v(11760)*v(6428))&
&/2d0
d2l(12,11,10)=v(17436)
d2l(12,11,11)=(v(11843)*v(6415)+v(11808)*v(6417)+v(11773)*v(6418)-v(11832)*v(6426)-v(11797)*v(6427)-v(11762)*v(6428))&
&/2d0
d2l(12,11,12)=v(17470)
d2l(12,11,13)=(v(11844)*v(6415)+v(11809)*v(6417)+v(11774)*v(6418)-v(11833)*v(6426)-v(11798)*v(6427)-v(11763)*v(6428))&
&/2d0
d2l(12,11,14)=(v(11845)*v(6415)+v(11810)*v(6417)+v(11775)*v(6418)-v(11834)*v(6426)-v(11799)*v(6427)-v(11764)*v(6428))&
&/2d0
d2l(12,11,15)=(v(11846)*v(6415)+v(11811)*v(6417)+v(11776)*v(6418)-v(11835)*v(6426)-v(11800)*v(6427)-v(11765)*v(6428))&
&/2d0
d2l(12,11,16)=0d0
d2l(12,11,17)=0d0
d2l(12,11,18)=0d0
d2l(12,12,1)=(v(11713)*v(6415)+v(11674)*v(6417)+v(11635)*v(6418)-v(11701)*v(6426)-v(11662)*v(6427)-v(11623)*v(6428))&
&/2d0
d2l(12,12,2)=(v(11714)*v(6415)+v(11675)*v(6417)+v(11636)*v(6418)-v(11702)*v(6426)-v(11663)*v(6427)-v(11624)*v(6428))&
&/2d0
d2l(12,12,3)=(v(11715)*v(6415)+v(11676)*v(6417)+v(11637)*v(6418)-v(11703)*v(6426)-v(11664)*v(6427)-v(11625)*v(6428))&
&/2d0
d2l(12,12,4)=0d0
d2l(12,12,5)=0d0
d2l(12,12,6)=0d0
d2l(12,12,7)=(v(11716)*v(6415)+v(11677)*v(6417)+v(11638)*v(6418)-v(11704)*v(6426)-v(11665)*v(6427)-v(11626)*v(6428))&
&/2d0
d2l(12,12,8)=(v(11717)*v(6415)+v(11678)*v(6417)+v(11639)*v(6418)-v(11705)*v(6426)-v(11666)*v(6427)-v(11627)*v(6428))&
&/2d0
d2l(12,12,9)=(v(11718)*v(6415)+v(11679)*v(6417)+v(11640)*v(6418)-v(11706)*v(6426)-v(11667)*v(6427)-v(11628)*v(6428))&
&/2d0
d2l(12,12,10)=v(17437)
d2l(12,12,11)=v(17470)
d2l(12,12,12)=(v(11721)*v(6415)+v(11682)*v(6417)+v(11643)*v(6418)-v(11709)*v(6426)-v(11670)*v(6427)-v(11631)*v(6428))&
&/2d0
d2l(12,12,13)=(v(11722)*v(6415)+v(11683)*v(6417)+v(11644)*v(6418)-v(11710)*v(6426)-v(11671)*v(6427)-v(11632)*v(6428))&
&/2d0
d2l(12,12,14)=(v(11723)*v(6415)+v(11684)*v(6417)+v(11645)*v(6418)-v(11711)*v(6426)-v(11672)*v(6427)-v(11633)*v(6428))&
&/2d0
d2l(12,12,15)=(v(11724)*v(6415)+v(11685)*v(6417)+v(11646)*v(6418)-v(11712)*v(6426)-v(11673)*v(6427)-v(11634)*v(6428))&
&/2d0
d2l(12,12,16)=0d0
d2l(12,12,17)=0d0
d2l(12,12,18)=0d0
d2l(12,13,1)=v(16662)
d2l(12,13,2)=v(16814)
d2l(12,13,3)=v(16951)
d2l(12,13,4)=0d0
d2l(12,13,5)=0d0
d2l(12,13,6)=0d0
d2l(12,13,7)=v(17172)
d2l(12,13,8)=v(17279)
d2l(12,13,9)=v(17373)
d2l(12,13,10)=(v(12143)*v(6415)+v(12449)*v(6417)+v(12755)*v(6418)-v(12044)*v(6426)-v(12350)*v(6427)-v(12656)*v(6428))&
&/2d0
d2l(12,13,11)=(v(12145)*v(6415)+v(12451)*v(6417)+v(12757)*v(6418)-v(12046)*v(6426)-v(12352)*v(6427)-v(12658)*v(6428))&
&/2d0
d2l(12,13,12)=(v(12147)*v(6415)+v(12453)*v(6417)+v(12759)*v(6418)-v(12048)*v(6426)-v(12354)*v(6427)-v(12660)*v(6428))&
&/2d0
d2l(12,13,13)=(v(12148)*v(6415)+v(12454)*v(6417)+v(12760)*v(6418)-v(12049)*v(6426)-v(12355)*v(6427)-v(12661)*v(6428))&
&/2d0
d2l(12,13,14)=v(17550)
d2l(12,13,15)=v(17551)
d2l(12,13,16)=0d0
d2l(12,13,17)=0d0
d2l(12,13,18)=0d0
d2l(12,14,1)=v(16663)
d2l(12,14,2)=v(16815)
d2l(12,14,3)=v(16952)
d2l(12,14,4)=0d0
d2l(12,14,5)=0d0
d2l(12,14,6)=0d0
d2l(12,14,7)=v(17173)
d2l(12,14,8)=v(17280)
d2l(12,14,9)=v(17374)
d2l(12,14,10)=(v(12129)*v(6415)+v(12435)*v(6417)+v(12741)*v(6418)-v(12030)*v(6426)-v(12336)*v(6427)-v(12642)*v(6428))&
&/2d0
d2l(12,14,11)=(v(12131)*v(6415)+v(12437)*v(6417)+v(12743)*v(6418)-v(12032)*v(6426)-v(12338)*v(6427)-v(12644)*v(6428))&
&/2d0
d2l(12,14,12)=(v(12133)*v(6415)+v(12439)*v(6417)+v(12745)*v(6418)-v(12034)*v(6426)-v(12340)*v(6427)-v(12646)*v(6428))&
&/2d0
d2l(12,14,13)=v(17550)
d2l(12,14,14)=(v(12135)*v(6415)+v(12441)*v(6417)+v(12747)*v(6418)-v(12036)*v(6426)-v(12342)*v(6427)-v(12648)*v(6428))&
&/2d0
d2l(12,14,15)=v(17613)
d2l(12,14,16)=0d0
d2l(12,14,17)=0d0
d2l(12,14,18)=0d0
d2l(12,15,1)=v(16664)
d2l(12,15,2)=v(16816)
d2l(12,15,3)=v(16953)
d2l(12,15,4)=0d0
d2l(12,15,5)=0d0
d2l(12,15,6)=0d0
d2l(12,15,7)=v(17174)
d2l(12,15,8)=v(17281)
d2l(12,15,9)=v(17375)
d2l(12,15,10)=(v(12114)*v(6415)+v(12420)*v(6417)+v(12726)*v(6418)-v(12015)*v(6426)-v(12321)*v(6427)-v(12627)*v(6428))&
&/2d0
d2l(12,15,11)=(v(12116)*v(6415)+v(12422)*v(6417)+v(12728)*v(6418)-v(12017)*v(6426)-v(12323)*v(6427)-v(12629)*v(6428))&
&/2d0
d2l(12,15,12)=(v(12118)*v(6415)+v(12424)*v(6417)+v(12730)*v(6418)-v(12019)*v(6426)-v(12325)*v(6427)-v(12631)*v(6428))&
&/2d0
d2l(12,15,13)=v(17551)
d2l(12,15,14)=v(17613)
d2l(12,15,15)=(v(12121)*v(6415)+v(12427)*v(6417)+v(12733)*v(6418)-v(12022)*v(6426)-v(12328)*v(6427)-v(12634)*v(6428))&
&/2d0
d2l(12,15,16)=0d0
d2l(12,15,17)=0d0
d2l(12,15,18)=0d0
d2l(12,16,1)=0d0
d2l(12,16,2)=0d0
d2l(12,16,3)=0d0
d2l(12,16,4)=0d0
d2l(12,16,5)=0d0
d2l(12,16,6)=0d0
d2l(12,16,7)=0d0
d2l(12,16,8)=0d0
d2l(12,16,9)=0d0
d2l(12,16,10)=0d0
d2l(12,16,11)=0d0
d2l(12,16,12)=0d0
d2l(12,16,13)=0d0
d2l(12,16,14)=0d0
d2l(12,16,15)=0d0
d2l(12,16,16)=0d0
d2l(12,16,17)=0d0
d2l(12,16,18)=0d0
d2l(12,17,1)=0d0
d2l(12,17,2)=0d0
d2l(12,17,3)=0d0
d2l(12,17,4)=0d0
d2l(12,17,5)=0d0
d2l(12,17,6)=0d0
d2l(12,17,7)=0d0
d2l(12,17,8)=0d0
d2l(12,17,9)=0d0
d2l(12,17,10)=0d0
d2l(12,17,11)=0d0
d2l(12,17,12)=0d0
d2l(12,17,13)=0d0
d2l(12,17,14)=0d0
d2l(12,17,15)=0d0
d2l(12,17,16)=0d0
d2l(12,17,17)=0d0
d2l(12,17,18)=0d0
d2l(12,18,1)=0d0
d2l(12,18,2)=0d0
d2l(12,18,3)=0d0
d2l(12,18,4)=0d0
d2l(12,18,5)=0d0
d2l(12,18,6)=0d0
d2l(12,18,7)=0d0
d2l(12,18,8)=0d0
d2l(12,18,9)=0d0
d2l(12,18,10)=0d0
d2l(12,18,11)=0d0
d2l(12,18,12)=0d0
d2l(12,18,13)=0d0
d2l(12,18,14)=0d0
d2l(12,18,15)=0d0
d2l(12,18,16)=0d0
d2l(12,18,17)=0d0
d2l(12,18,18)=0d0
d2l(13,1,1)=v(6447)*v(9366)+v(6445)*v(9497)+v(6443)*v(9740)-v(9741)
d2l(13,1,2)=v(16666)
d2l(13,1,3)=v(16667)
d2l(13,1,4)=0d0
d2l(13,1,5)=0d0
d2l(13,1,6)=0d0
d2l(13,1,7)=v(16668)
d2l(13,1,8)=v(16669)
d2l(13,1,9)=v(16670)
d2l(13,1,10)=0d0
d2l(13,1,11)=0d0
d2l(13,1,12)=0d0
d2l(13,1,13)=v(16671)
d2l(13,1,14)=v(16672)
d2l(13,1,15)=v(16673)
d2l(13,1,16)=0d0
d2l(13,1,17)=0d0
d2l(13,1,18)=0d0
d2l(13,2,1)=v(16666)
d2l(13,2,2)=v(6447)*v(9363)+v(6445)*v(9494)+v(6443)*v(9737)-v(9856)
d2l(13,2,3)=v(16818)
d2l(13,2,4)=0d0
d2l(13,2,5)=0d0
d2l(13,2,6)=0d0
d2l(13,2,7)=v(16819)
d2l(13,2,8)=v(16820)
d2l(13,2,9)=v(16821)
d2l(13,2,10)=0d0
d2l(13,2,11)=0d0
d2l(13,2,12)=0d0
d2l(13,2,13)=v(16822)
d2l(13,2,14)=v(16823)
d2l(13,2,15)=v(16824)
d2l(13,2,16)=0d0
d2l(13,2,17)=0d0
d2l(13,2,18)=0d0
d2l(13,3,1)=v(16667)
d2l(13,3,2)=v(16818)
d2l(13,3,3)=v(6447)*v(9358)+v(6445)*v(9489)+v(6443)*v(9710)-v(9927)
d2l(13,3,4)=0d0
d2l(13,3,5)=0d0
d2l(13,3,6)=0d0
d2l(13,3,7)=v(16955)
d2l(13,3,8)=v(16956)
d2l(13,3,9)=v(16957)
d2l(13,3,10)=0d0
d2l(13,3,11)=0d0
d2l(13,3,12)=0d0
d2l(13,3,13)=v(16958)
d2l(13,3,14)=v(16959)
d2l(13,3,15)=v(16960)
d2l(13,3,16)=0d0
d2l(13,3,17)=0d0
d2l(13,3,18)=0d0
d2l(13,4,1)=0d0
d2l(13,4,2)=0d0
d2l(13,4,3)=0d0
d2l(13,4,4)=0d0
d2l(13,4,5)=0d0
d2l(13,4,6)=0d0
d2l(13,4,7)=0d0
d2l(13,4,8)=0d0
d2l(13,4,9)=0d0
d2l(13,4,10)=0d0
d2l(13,4,11)=0d0
d2l(13,4,12)=0d0
d2l(13,4,13)=0d0
d2l(13,4,14)=0d0
d2l(13,4,15)=0d0
d2l(13,4,16)=0d0
d2l(13,4,17)=0d0
d2l(13,4,18)=0d0
d2l(13,5,1)=0d0
d2l(13,5,2)=0d0
d2l(13,5,3)=0d0
d2l(13,5,4)=0d0
d2l(13,5,5)=0d0
d2l(13,5,6)=0d0
d2l(13,5,7)=0d0
d2l(13,5,8)=0d0
d2l(13,5,9)=0d0
d2l(13,5,10)=0d0
d2l(13,5,11)=0d0
d2l(13,5,12)=0d0
d2l(13,5,13)=0d0
d2l(13,5,14)=0d0
d2l(13,5,15)=0d0
d2l(13,5,16)=0d0
d2l(13,5,17)=0d0
d2l(13,5,18)=0d0
d2l(13,6,1)=0d0
d2l(13,6,2)=0d0
d2l(13,6,3)=0d0
d2l(13,6,4)=0d0
d2l(13,6,5)=0d0
d2l(13,6,6)=0d0
d2l(13,6,7)=0d0
d2l(13,6,8)=0d0
d2l(13,6,9)=0d0
d2l(13,6,10)=0d0
d2l(13,6,11)=0d0
d2l(13,6,12)=0d0
d2l(13,6,13)=0d0
d2l(13,6,14)=0d0
d2l(13,6,15)=0d0
d2l(13,6,16)=0d0
d2l(13,6,17)=0d0
d2l(13,6,18)=0d0
d2l(13,7,1)=v(16668)
d2l(13,7,2)=v(16819)
d2l(13,7,3)=v(16955)
d2l(13,7,4)=0d0
d2l(13,7,5)=0d0
d2l(13,7,6)=0d0
d2l(13,7,7)=v(6447)*v(9351)+v(6445)*v(9483)+v(6443)*v(9705)-v(9743)
d2l(13,7,8)=v(17176)
d2l(13,7,9)=v(17177)
d2l(13,7,10)=0d0
d2l(13,7,11)=0d0
d2l(13,7,12)=0d0
d2l(13,7,13)=v(17178)
d2l(13,7,14)=v(17179)
d2l(13,7,15)=v(17180)
d2l(13,7,16)=0d0
d2l(13,7,17)=0d0
d2l(13,7,18)=0d0
d2l(13,8,1)=v(16669)
d2l(13,8,2)=v(16820)
d2l(13,8,3)=v(16956)
d2l(13,8,4)=0d0
d2l(13,8,5)=0d0
d2l(13,8,6)=0d0
d2l(13,8,7)=v(17176)
d2l(13,8,8)=v(6447)*v(9343)+v(6445)*v(9476)+v(6443)*v(9699)-v(9859)
d2l(13,8,9)=v(17283)
d2l(13,8,10)=0d0
d2l(13,8,11)=0d0
d2l(13,8,12)=0d0
d2l(13,8,13)=v(17284)
d2l(13,8,14)=v(17285)
d2l(13,8,15)=v(17286)
d2l(13,8,16)=0d0
d2l(13,8,17)=0d0
d2l(13,8,18)=0d0
d2l(13,9,1)=v(16670)
d2l(13,9,2)=v(16821)
d2l(13,9,3)=v(16957)
d2l(13,9,4)=0d0
d2l(13,9,5)=0d0
d2l(13,9,6)=0d0
d2l(13,9,7)=v(17177)
d2l(13,9,8)=v(17283)
d2l(13,9,9)=v(17345)+v(6447)*v(9334)+v(6445)*v(9468)+v(6443)*v(9666)
d2l(13,9,10)=0d0
d2l(13,9,11)=0d0
d2l(13,9,12)=0d0
d2l(13,9,13)=v(17377)
d2l(13,9,14)=v(17378)
d2l(13,9,15)=v(17379)
d2l(13,9,16)=0d0
d2l(13,9,17)=0d0
d2l(13,9,18)=0d0
d2l(13,10,1)=0d0
d2l(13,10,2)=0d0
d2l(13,10,3)=0d0
d2l(13,10,4)=0d0
d2l(13,10,5)=0d0
d2l(13,10,6)=0d0
d2l(13,10,7)=0d0
d2l(13,10,8)=0d0
d2l(13,10,9)=0d0
d2l(13,10,10)=0d0
d2l(13,10,11)=0d0
d2l(13,10,12)=0d0
d2l(13,10,13)=0d0
d2l(13,10,14)=0d0
d2l(13,10,15)=0d0
d2l(13,10,16)=0d0
d2l(13,10,17)=0d0
d2l(13,10,18)=0d0
d2l(13,11,1)=0d0
d2l(13,11,2)=0d0
d2l(13,11,3)=0d0
d2l(13,11,4)=0d0
d2l(13,11,5)=0d0
d2l(13,11,6)=0d0
d2l(13,11,7)=0d0
d2l(13,11,8)=0d0
d2l(13,11,9)=0d0
d2l(13,11,10)=0d0
d2l(13,11,11)=0d0
d2l(13,11,12)=0d0
d2l(13,11,13)=0d0
d2l(13,11,14)=0d0
d2l(13,11,15)=0d0
d2l(13,11,16)=0d0
d2l(13,11,17)=0d0
d2l(13,11,18)=0d0
d2l(13,12,1)=0d0
d2l(13,12,2)=0d0
d2l(13,12,3)=0d0
d2l(13,12,4)=0d0
d2l(13,12,5)=0d0
d2l(13,12,6)=0d0
d2l(13,12,7)=0d0
d2l(13,12,8)=0d0
d2l(13,12,9)=0d0
d2l(13,12,10)=0d0
d2l(13,12,11)=0d0
d2l(13,12,12)=0d0
d2l(13,12,13)=0d0
d2l(13,12,14)=0d0
d2l(13,12,15)=0d0
d2l(13,12,16)=0d0
d2l(13,12,17)=0d0
d2l(13,12,18)=0d0
d2l(13,13,1)=v(16671)
d2l(13,13,2)=v(16822)
d2l(13,13,3)=v(16958)
d2l(13,13,4)=0d0
d2l(13,13,5)=0d0
d2l(13,13,6)=0d0
d2l(13,13,7)=v(17178)
d2l(13,13,8)=v(17284)
d2l(13,13,9)=v(17377)
d2l(13,13,10)=0d0
d2l(13,13,11)=0d0
d2l(13,13,12)=0d0
d2l(13,13,13)=v(6447)*v(9324)+v(6445)*v(9459)+v(6443)*v(9658)+2d0*v(9745)
d2l(13,13,14)=v(17553)
d2l(13,13,15)=v(17554)
d2l(13,13,16)=0d0
d2l(13,13,17)=0d0
d2l(13,13,18)=0d0
d2l(13,14,1)=v(16672)
d2l(13,14,2)=v(16823)
d2l(13,14,3)=v(16959)
d2l(13,14,4)=0d0
d2l(13,14,5)=0d0
d2l(13,14,6)=0d0
d2l(13,14,7)=v(17179)
d2l(13,14,8)=v(17285)
d2l(13,14,9)=v(17378)
d2l(13,14,10)=0d0
d2l(13,14,11)=0d0
d2l(13,14,12)=0d0
d2l(13,14,13)=v(17553)
d2l(13,14,14)=v(6447)*v(9303)+v(6445)*v(9439)+v(6443)*v(9650)+2d0*v(9862)
d2l(13,14,15)=v(17615)
d2l(13,14,16)=0d0
d2l(13,14,17)=0d0
d2l(13,14,18)=0d0
d2l(13,15,1)=v(16673)
d2l(13,15,2)=v(16824)
d2l(13,15,3)=v(16960)
d2l(13,15,4)=0d0
d2l(13,15,5)=0d0
d2l(13,15,6)=0d0
d2l(13,15,7)=v(17180)
d2l(13,15,8)=v(17286)
d2l(13,15,9)=v(17379)
d2l(13,15,10)=0d0
d2l(13,15,11)=0d0
d2l(13,15,12)=0d0
d2l(13,15,13)=v(17554)
d2l(13,15,14)=v(17615)
d2l(13,15,15)=-v(17661)+v(6447)*v(9283)+v(6445)*v(9430)+v(6443)*v(9613)+v(9933)
d2l(13,15,16)=0d0
d2l(13,15,17)=0d0
d2l(13,15,18)=0d0
d2l(13,16,1)=0d0
d2l(13,16,2)=0d0
d2l(13,16,3)=0d0
d2l(13,16,4)=0d0
d2l(13,16,5)=0d0
d2l(13,16,6)=0d0
d2l(13,16,7)=0d0
d2l(13,16,8)=0d0
d2l(13,16,9)=0d0
d2l(13,16,10)=0d0
d2l(13,16,11)=0d0
d2l(13,16,12)=0d0
d2l(13,16,13)=0d0
d2l(13,16,14)=0d0
d2l(13,16,15)=0d0
d2l(13,16,16)=0d0
d2l(13,16,17)=0d0
d2l(13,16,18)=0d0
d2l(13,17,1)=0d0
d2l(13,17,2)=0d0
d2l(13,17,3)=0d0
d2l(13,17,4)=0d0
d2l(13,17,5)=0d0
d2l(13,17,6)=0d0
d2l(13,17,7)=0d0
d2l(13,17,8)=0d0
d2l(13,17,9)=0d0
d2l(13,17,10)=0d0
d2l(13,17,11)=0d0
d2l(13,17,12)=0d0
d2l(13,17,13)=0d0
d2l(13,17,14)=0d0
d2l(13,17,15)=0d0
d2l(13,17,16)=0d0
d2l(13,17,17)=0d0
d2l(13,17,18)=0d0
d2l(13,18,1)=0d0
d2l(13,18,2)=0d0
d2l(13,18,3)=0d0
d2l(13,18,4)=0d0
d2l(13,18,5)=0d0
d2l(13,18,6)=0d0
d2l(13,18,7)=0d0
d2l(13,18,8)=0d0
d2l(13,18,9)=0d0
d2l(13,18,10)=0d0
d2l(13,18,11)=0d0
d2l(13,18,12)=0d0
d2l(13,18,13)=0d0
d2l(13,18,14)=0d0
d2l(13,18,15)=0d0
d2l(13,18,16)=0d0
d2l(13,18,17)=0d0
d2l(13,18,18)=0d0
d2l(14,1,1)=v(6447)*v(9509)+v(6445)*v(9554)+v(6443)*v(9604)-v(9798)
d2l(14,1,2)=v(16675)
d2l(14,1,3)=v(16676)
d2l(14,1,4)=0d0
d2l(14,1,5)=0d0
d2l(14,1,6)=0d0
d2l(14,1,7)=v(16677)
d2l(14,1,8)=v(16678)
d2l(14,1,9)=v(16679)
d2l(14,1,10)=0d0
d2l(14,1,11)=0d0
d2l(14,1,12)=0d0
d2l(14,1,13)=v(16680)
d2l(14,1,14)=v(16681)
d2l(14,1,15)=v(16682)
d2l(14,1,16)=0d0
d2l(14,1,17)=0d0
d2l(14,1,18)=0d0
d2l(14,2,1)=v(16675)
d2l(14,2,2)=v(6447)*v(9384)+v(6445)*v(9419)+v(6443)*v(9602)-v(9892)
d2l(14,2,3)=v(16826)
d2l(14,2,4)=0d0
d2l(14,2,5)=0d0
d2l(14,2,6)=0d0
d2l(14,2,7)=v(16827)
d2l(14,2,8)=v(16828)
d2l(14,2,9)=v(16829)
d2l(14,2,10)=0d0
d2l(14,2,11)=0d0
d2l(14,2,12)=0d0
d2l(14,2,13)=v(16830)
d2l(14,2,14)=v(16831)
d2l(14,2,15)=v(16832)
d2l(14,2,16)=0d0
d2l(14,2,17)=0d0
d2l(14,2,18)=0d0
d2l(14,3,1)=v(16676)
d2l(14,3,2)=v(16826)
d2l(14,3,3)=v(6447)*v(9269)+v(6445)*v(9414)+v(6443)*v(9576)-v(9945)
d2l(14,3,4)=0d0
d2l(14,3,5)=0d0
d2l(14,3,6)=0d0
d2l(14,3,7)=v(16962)
d2l(14,3,8)=v(16963)
d2l(14,3,9)=v(16964)
d2l(14,3,10)=0d0
d2l(14,3,11)=0d0
d2l(14,3,12)=0d0
d2l(14,3,13)=v(16965)
d2l(14,3,14)=v(16966)
d2l(14,3,15)=v(16967)
d2l(14,3,16)=0d0
d2l(14,3,17)=0d0
d2l(14,3,18)=0d0
d2l(14,4,1)=0d0
d2l(14,4,2)=0d0
d2l(14,4,3)=0d0
d2l(14,4,4)=0d0
d2l(14,4,5)=0d0
d2l(14,4,6)=0d0
d2l(14,4,7)=0d0
d2l(14,4,8)=0d0
d2l(14,4,9)=0d0
d2l(14,4,10)=0d0
d2l(14,4,11)=0d0
d2l(14,4,12)=0d0
d2l(14,4,13)=0d0
d2l(14,4,14)=0d0
d2l(14,4,15)=0d0
d2l(14,4,16)=0d0
d2l(14,4,17)=0d0
d2l(14,4,18)=0d0
d2l(14,5,1)=0d0
d2l(14,5,2)=0d0
d2l(14,5,3)=0d0
d2l(14,5,4)=0d0
d2l(14,5,5)=0d0
d2l(14,5,6)=0d0
d2l(14,5,7)=0d0
d2l(14,5,8)=0d0
d2l(14,5,9)=0d0
d2l(14,5,10)=0d0
d2l(14,5,11)=0d0
d2l(14,5,12)=0d0
d2l(14,5,13)=0d0
d2l(14,5,14)=0d0
d2l(14,5,15)=0d0
d2l(14,5,16)=0d0
d2l(14,5,17)=0d0
d2l(14,5,18)=0d0
d2l(14,6,1)=0d0
d2l(14,6,2)=0d0
d2l(14,6,3)=0d0
d2l(14,6,4)=0d0
d2l(14,6,5)=0d0
d2l(14,6,6)=0d0
d2l(14,6,7)=0d0
d2l(14,6,8)=0d0
d2l(14,6,9)=0d0
d2l(14,6,10)=0d0
d2l(14,6,11)=0d0
d2l(14,6,12)=0d0
d2l(14,6,13)=0d0
d2l(14,6,14)=0d0
d2l(14,6,15)=0d0
d2l(14,6,16)=0d0
d2l(14,6,17)=0d0
d2l(14,6,18)=0d0
d2l(14,7,1)=v(16677)
d2l(14,7,2)=v(16827)
d2l(14,7,3)=v(16962)
d2l(14,7,4)=0d0
d2l(14,7,5)=0d0
d2l(14,7,6)=0d0
d2l(14,7,7)=v(6447)*v(9507)+v(6445)*v(9552)+v(6443)*v(9572)-v(9800)
d2l(14,7,8)=v(17182)
d2l(14,7,9)=v(17183)
d2l(14,7,10)=0d0
d2l(14,7,11)=0d0
d2l(14,7,12)=0d0
d2l(14,7,13)=v(17184)
d2l(14,7,14)=v(17185)
d2l(14,7,15)=v(17186)
d2l(14,7,16)=0d0
d2l(14,7,17)=0d0
d2l(14,7,18)=0d0
d2l(14,8,1)=v(16678)
d2l(14,8,2)=v(16828)
d2l(14,8,3)=v(16963)
d2l(14,8,4)=0d0
d2l(14,8,5)=0d0
d2l(14,8,6)=0d0
d2l(14,8,7)=v(17182)
d2l(14,8,8)=v(6447)*v(9381)+v(6445)*v(9410)+v(6443)*v(9560)-v(9895)
d2l(14,8,9)=v(17288)
d2l(14,8,10)=0d0
d2l(14,8,11)=0d0
d2l(14,8,12)=0d0
d2l(14,8,13)=v(17289)
d2l(14,8,14)=v(17290)
d2l(14,8,15)=v(17291)
d2l(14,8,16)=0d0
d2l(14,8,17)=0d0
d2l(14,8,18)=0d0
d2l(14,9,1)=v(16679)
d2l(14,9,2)=v(16829)
d2l(14,9,3)=v(16964)
d2l(14,9,4)=0d0
d2l(14,9,5)=0d0
d2l(14,9,6)=0d0
d2l(14,9,7)=v(17183)
d2l(14,9,8)=v(17288)
d2l(14,9,9)=v(17350)+v(6447)*v(9265)+v(6445)*v(9394)+v(6443)*v(9516)
d2l(14,9,10)=0d0
d2l(14,9,11)=0d0
d2l(14,9,12)=0d0
d2l(14,9,13)=v(17381)
d2l(14,9,14)=v(17382)
d2l(14,9,15)=v(17383)
d2l(14,9,16)=0d0
d2l(14,9,17)=0d0
d2l(14,9,18)=0d0
d2l(14,10,1)=0d0
d2l(14,10,2)=0d0
d2l(14,10,3)=0d0
d2l(14,10,4)=0d0
d2l(14,10,5)=0d0
d2l(14,10,6)=0d0
d2l(14,10,7)=0d0
d2l(14,10,8)=0d0
d2l(14,10,9)=0d0
d2l(14,10,10)=0d0
d2l(14,10,11)=0d0
d2l(14,10,12)=0d0
d2l(14,10,13)=0d0
d2l(14,10,14)=0d0
d2l(14,10,15)=0d0
d2l(14,10,16)=0d0
d2l(14,10,17)=0d0
d2l(14,10,18)=0d0
d2l(14,11,1)=0d0
d2l(14,11,2)=0d0
d2l(14,11,3)=0d0
d2l(14,11,4)=0d0
d2l(14,11,5)=0d0
d2l(14,11,6)=0d0
d2l(14,11,7)=0d0
d2l(14,11,8)=0d0
d2l(14,11,9)=0d0
d2l(14,11,10)=0d0
d2l(14,11,11)=0d0
d2l(14,11,12)=0d0
d2l(14,11,13)=0d0
d2l(14,11,14)=0d0
d2l(14,11,15)=0d0
d2l(14,11,16)=0d0
d2l(14,11,17)=0d0
d2l(14,11,18)=0d0
d2l(14,12,1)=0d0
d2l(14,12,2)=0d0
d2l(14,12,3)=0d0
d2l(14,12,4)=0d0
d2l(14,12,5)=0d0
d2l(14,12,6)=0d0
d2l(14,12,7)=0d0
d2l(14,12,8)=0d0
d2l(14,12,9)=0d0
d2l(14,12,10)=0d0
d2l(14,12,11)=0d0
d2l(14,12,12)=0d0
d2l(14,12,13)=0d0
d2l(14,12,14)=0d0
d2l(14,12,15)=0d0
d2l(14,12,16)=0d0
d2l(14,12,17)=0d0
d2l(14,12,18)=0d0
d2l(14,13,1)=v(16680)
d2l(14,13,2)=v(16830)
d2l(14,13,3)=v(16965)
d2l(14,13,4)=0d0
d2l(14,13,5)=0d0
d2l(14,13,6)=0d0
d2l(14,13,7)=v(17184)
d2l(14,13,8)=v(17289)
d2l(14,13,9)=v(17381)
d2l(14,13,10)=0d0
d2l(14,13,11)=0d0
d2l(14,13,12)=0d0
d2l(14,13,13)=v(6447)*v(9150)+v(6445)*v(9207)+v(6443)*v(9224)+2d0*v(9802)
d2l(14,13,14)=v(17556)
d2l(14,13,15)=v(17557)
d2l(14,13,16)=0d0
d2l(14,13,17)=0d0
d2l(14,13,18)=0d0
d2l(14,14,1)=v(16681)
d2l(14,14,2)=v(16831)
d2l(14,14,3)=v(16966)
d2l(14,14,4)=0d0
d2l(14,14,5)=0d0
d2l(14,14,6)=0d0
d2l(14,14,7)=v(17185)
d2l(14,14,8)=v(17290)
d2l(14,14,9)=v(17382)
d2l(14,14,10)=0d0
d2l(14,14,11)=0d0
d2l(14,14,12)=0d0
d2l(14,14,13)=v(17556)
d2l(14,14,14)=v(6447)*v(9142)+v(6443)*v(9197)+v(6445)*v(9198)+2d0*v(9897)
d2l(14,14,15)=v(17617)
d2l(14,14,16)=0d0
d2l(14,14,17)=0d0
d2l(14,14,18)=0d0
d2l(14,15,1)=v(16682)
d2l(14,15,2)=v(16832)
d2l(14,15,3)=v(16967)
d2l(14,15,4)=0d0
d2l(14,15,5)=0d0
d2l(14,15,6)=0d0
d2l(14,15,7)=v(17186)
d2l(14,15,8)=v(17291)
d2l(14,15,9)=v(17383)
d2l(14,15,10)=0d0
d2l(14,15,11)=0d0
d2l(14,15,12)=0d0
d2l(14,15,13)=v(17557)
d2l(14,15,14)=v(17617)
d2l(14,15,15)=-v(17663)+v(6443)*v(9130)+v(6445)*v(9131)+v(6447)*v(9132)+v(9949)
d2l(14,15,16)=0d0
d2l(14,15,17)=0d0
d2l(14,15,18)=0d0
d2l(14,16,1)=0d0
d2l(14,16,2)=0d0
d2l(14,16,3)=0d0
d2l(14,16,4)=0d0
d2l(14,16,5)=0d0
d2l(14,16,6)=0d0
d2l(14,16,7)=0d0
d2l(14,16,8)=0d0
d2l(14,16,9)=0d0
d2l(14,16,10)=0d0
d2l(14,16,11)=0d0
d2l(14,16,12)=0d0
d2l(14,16,13)=0d0
d2l(14,16,14)=0d0
d2l(14,16,15)=0d0
d2l(14,16,16)=0d0
d2l(14,16,17)=0d0
d2l(14,16,18)=0d0
d2l(14,17,1)=0d0
d2l(14,17,2)=0d0
d2l(14,17,3)=0d0
d2l(14,17,4)=0d0
d2l(14,17,5)=0d0
d2l(14,17,6)=0d0
d2l(14,17,7)=0d0
d2l(14,17,8)=0d0
d2l(14,17,9)=0d0
d2l(14,17,10)=0d0
d2l(14,17,11)=0d0
d2l(14,17,12)=0d0
d2l(14,17,13)=0d0
d2l(14,17,14)=0d0
d2l(14,17,15)=0d0
d2l(14,17,16)=0d0
d2l(14,17,17)=0d0
d2l(14,17,18)=0d0
d2l(14,18,1)=0d0
d2l(14,18,2)=0d0
d2l(14,18,3)=0d0
d2l(14,18,4)=0d0
d2l(14,18,5)=0d0
d2l(14,18,6)=0d0
d2l(14,18,7)=0d0
d2l(14,18,8)=0d0
d2l(14,18,9)=0d0
d2l(14,18,10)=0d0
d2l(14,18,11)=0d0
d2l(14,18,12)=0d0
d2l(14,18,13)=0d0
d2l(14,18,14)=0d0
d2l(14,18,15)=0d0
d2l(14,18,16)=0d0
d2l(14,18,17)=0d0
d2l(14,18,18)=0d0
d2l(15,1,1)=0d0
d2l(15,1,2)=0d0
d2l(15,1,3)=0d0
d2l(15,1,4)=0d0
d2l(15,1,5)=0d0
d2l(15,1,6)=0d0
d2l(15,1,7)=0d0
d2l(15,1,8)=0d0
d2l(15,1,9)=0d0
d2l(15,1,10)=0d0
d2l(15,1,11)=0d0
d2l(15,1,12)=0d0
d2l(15,1,13)=0d0
d2l(15,1,14)=0d0
d2l(15,1,15)=0d0
d2l(15,1,16)=0d0
d2l(15,1,17)=0d0
d2l(15,1,18)=0d0
d2l(15,2,1)=0d0
d2l(15,2,2)=0d0
d2l(15,2,3)=0d0
d2l(15,2,4)=0d0
d2l(15,2,5)=0d0
d2l(15,2,6)=0d0
d2l(15,2,7)=0d0
d2l(15,2,8)=0d0
d2l(15,2,9)=0d0
d2l(15,2,10)=0d0
d2l(15,2,11)=0d0
d2l(15,2,12)=0d0
d2l(15,2,13)=0d0
d2l(15,2,14)=0d0
d2l(15,2,15)=0d0
d2l(15,2,16)=0d0
d2l(15,2,17)=0d0
d2l(15,2,18)=0d0
d2l(15,3,1)=0d0
d2l(15,3,2)=0d0
d2l(15,3,3)=0d0
d2l(15,3,4)=0d0
d2l(15,3,5)=0d0
d2l(15,3,6)=0d0
d2l(15,3,7)=0d0
d2l(15,3,8)=0d0
d2l(15,3,9)=0d0
d2l(15,3,10)=0d0
d2l(15,3,11)=0d0
d2l(15,3,12)=0d0
d2l(15,3,13)=0d0
d2l(15,3,14)=0d0
d2l(15,3,15)=0d0
d2l(15,3,16)=0d0
d2l(15,3,17)=0d0
d2l(15,3,18)=0d0
d2l(15,4,1)=0d0
d2l(15,4,2)=0d0
d2l(15,4,3)=0d0
d2l(15,4,4)=0d0
d2l(15,4,5)=0d0
d2l(15,4,6)=0d0
d2l(15,4,7)=0d0
d2l(15,4,8)=0d0
d2l(15,4,9)=0d0
d2l(15,4,10)=0d0
d2l(15,4,11)=0d0
d2l(15,4,12)=0d0
d2l(15,4,13)=0d0
d2l(15,4,14)=0d0
d2l(15,4,15)=0d0
d2l(15,4,16)=0d0
d2l(15,4,17)=0d0
d2l(15,4,18)=0d0
d2l(15,5,1)=0d0
d2l(15,5,2)=0d0
d2l(15,5,3)=0d0
d2l(15,5,4)=0d0
d2l(15,5,5)=0d0
d2l(15,5,6)=0d0
d2l(15,5,7)=0d0
d2l(15,5,8)=0d0
d2l(15,5,9)=0d0
d2l(15,5,10)=0d0
d2l(15,5,11)=0d0
d2l(15,5,12)=0d0
d2l(15,5,13)=0d0
d2l(15,5,14)=0d0
d2l(15,5,15)=0d0
d2l(15,5,16)=0d0
d2l(15,5,17)=0d0
d2l(15,5,18)=0d0
d2l(15,6,1)=0d0
d2l(15,6,2)=0d0
d2l(15,6,3)=0d0
d2l(15,6,4)=0d0
d2l(15,6,5)=0d0
d2l(15,6,6)=0d0
d2l(15,6,7)=0d0
d2l(15,6,8)=0d0
d2l(15,6,9)=0d0
d2l(15,6,10)=0d0
d2l(15,6,11)=0d0
d2l(15,6,12)=0d0
d2l(15,6,13)=0d0
d2l(15,6,14)=0d0
d2l(15,6,15)=0d0
d2l(15,6,16)=0d0
d2l(15,6,17)=0d0
d2l(15,6,18)=0d0
d2l(15,7,1)=0d0
d2l(15,7,2)=0d0
d2l(15,7,3)=0d0
d2l(15,7,4)=0d0
d2l(15,7,5)=0d0
d2l(15,7,6)=0d0
d2l(15,7,7)=0d0
d2l(15,7,8)=0d0
d2l(15,7,9)=0d0
d2l(15,7,10)=0d0
d2l(15,7,11)=0d0
d2l(15,7,12)=0d0
d2l(15,7,13)=0d0
d2l(15,7,14)=0d0
d2l(15,7,15)=0d0
d2l(15,7,16)=0d0
d2l(15,7,17)=0d0
d2l(15,7,18)=0d0
d2l(15,8,1)=0d0
d2l(15,8,2)=0d0
d2l(15,8,3)=0d0
d2l(15,8,4)=0d0
d2l(15,8,5)=0d0
d2l(15,8,6)=0d0
d2l(15,8,7)=0d0
d2l(15,8,8)=0d0
d2l(15,8,9)=0d0
d2l(15,8,10)=0d0
d2l(15,8,11)=0d0
d2l(15,8,12)=0d0
d2l(15,8,13)=0d0
d2l(15,8,14)=0d0
d2l(15,8,15)=0d0
d2l(15,8,16)=0d0
d2l(15,8,17)=0d0
d2l(15,8,18)=0d0
d2l(15,9,1)=0d0
d2l(15,9,2)=0d0
d2l(15,9,3)=0d0
d2l(15,9,4)=0d0
d2l(15,9,5)=0d0
d2l(15,9,6)=0d0
d2l(15,9,7)=0d0
d2l(15,9,8)=0d0
d2l(15,9,9)=0d0
d2l(15,9,10)=0d0
d2l(15,9,11)=0d0
d2l(15,9,12)=0d0
d2l(15,9,13)=0d0
d2l(15,9,14)=0d0
d2l(15,9,15)=0d0
d2l(15,9,16)=0d0
d2l(15,9,17)=0d0
d2l(15,9,18)=0d0
d2l(15,10,1)=0d0
d2l(15,10,2)=0d0
d2l(15,10,3)=0d0
d2l(15,10,4)=0d0
d2l(15,10,5)=0d0
d2l(15,10,6)=0d0
d2l(15,10,7)=0d0
d2l(15,10,8)=0d0
d2l(15,10,9)=0d0
d2l(15,10,10)=0d0
d2l(15,10,11)=0d0
d2l(15,10,12)=0d0
d2l(15,10,13)=0d0
d2l(15,10,14)=0d0
d2l(15,10,15)=0d0
d2l(15,10,16)=0d0
d2l(15,10,17)=0d0
d2l(15,10,18)=0d0
d2l(15,11,1)=0d0
d2l(15,11,2)=0d0
d2l(15,11,3)=0d0
d2l(15,11,4)=0d0
d2l(15,11,5)=0d0
d2l(15,11,6)=0d0
d2l(15,11,7)=0d0
d2l(15,11,8)=0d0
d2l(15,11,9)=0d0
d2l(15,11,10)=0d0
d2l(15,11,11)=0d0
d2l(15,11,12)=0d0
d2l(15,11,13)=0d0
d2l(15,11,14)=0d0
d2l(15,11,15)=0d0
d2l(15,11,16)=0d0
d2l(15,11,17)=0d0
d2l(15,11,18)=0d0
d2l(15,12,1)=0d0
d2l(15,12,2)=0d0
d2l(15,12,3)=0d0
d2l(15,12,4)=0d0
d2l(15,12,5)=0d0
d2l(15,12,6)=0d0
d2l(15,12,7)=0d0
d2l(15,12,8)=0d0
d2l(15,12,9)=0d0
d2l(15,12,10)=0d0
d2l(15,12,11)=0d0
d2l(15,12,12)=0d0
d2l(15,12,13)=0d0
d2l(15,12,14)=0d0
d2l(15,12,15)=0d0
d2l(15,12,16)=0d0
d2l(15,12,17)=0d0
d2l(15,12,18)=0d0
d2l(15,13,1)=0d0
d2l(15,13,2)=0d0
d2l(15,13,3)=0d0
d2l(15,13,4)=0d0
d2l(15,13,5)=0d0
d2l(15,13,6)=0d0
d2l(15,13,7)=0d0
d2l(15,13,8)=0d0
d2l(15,13,9)=0d0
d2l(15,13,10)=0d0
d2l(15,13,11)=0d0
d2l(15,13,12)=0d0
d2l(15,13,13)=0d0
d2l(15,13,14)=0d0
d2l(15,13,15)=0d0
d2l(15,13,16)=0d0
d2l(15,13,17)=0d0
d2l(15,13,18)=0d0
d2l(15,14,1)=0d0
d2l(15,14,2)=0d0
d2l(15,14,3)=0d0
d2l(15,14,4)=0d0
d2l(15,14,5)=0d0
d2l(15,14,6)=0d0
d2l(15,14,7)=0d0
d2l(15,14,8)=0d0
d2l(15,14,9)=0d0
d2l(15,14,10)=0d0
d2l(15,14,11)=0d0
d2l(15,14,12)=0d0
d2l(15,14,13)=0d0
d2l(15,14,14)=0d0
d2l(15,14,15)=0d0
d2l(15,14,16)=0d0
d2l(15,14,17)=0d0
d2l(15,14,18)=0d0
d2l(15,15,1)=0d0
d2l(15,15,2)=0d0
d2l(15,15,3)=0d0
d2l(15,15,4)=0d0
d2l(15,15,5)=0d0
d2l(15,15,6)=0d0
d2l(15,15,7)=0d0
d2l(15,15,8)=0d0
d2l(15,15,9)=0d0
d2l(15,15,10)=0d0
d2l(15,15,11)=0d0
d2l(15,15,12)=0d0
d2l(15,15,13)=0d0
d2l(15,15,14)=0d0
d2l(15,15,15)=0d0
d2l(15,15,16)=0d0
d2l(15,15,17)=0d0
d2l(15,15,18)=0d0
d2l(15,16,1)=0d0
d2l(15,16,2)=0d0
d2l(15,16,3)=0d0
d2l(15,16,4)=0d0
d2l(15,16,5)=0d0
d2l(15,16,6)=0d0
d2l(15,16,7)=0d0
d2l(15,16,8)=0d0
d2l(15,16,9)=0d0
d2l(15,16,10)=0d0
d2l(15,16,11)=0d0
d2l(15,16,12)=0d0
d2l(15,16,13)=0d0
d2l(15,16,14)=0d0
d2l(15,16,15)=0d0
d2l(15,16,16)=0d0
d2l(15,16,17)=0d0
d2l(15,16,18)=0d0
d2l(15,17,1)=0d0
d2l(15,17,2)=0d0
d2l(15,17,3)=0d0
d2l(15,17,4)=0d0
d2l(15,17,5)=0d0
d2l(15,17,6)=0d0
d2l(15,17,7)=0d0
d2l(15,17,8)=0d0
d2l(15,17,9)=0d0
d2l(15,17,10)=0d0
d2l(15,17,11)=0d0
d2l(15,17,12)=0d0
d2l(15,17,13)=0d0
d2l(15,17,14)=0d0
d2l(15,17,15)=0d0
d2l(15,17,16)=0d0
d2l(15,17,17)=0d0
d2l(15,17,18)=0d0
d2l(15,18,1)=0d0
d2l(15,18,2)=0d0
d2l(15,18,3)=0d0
d2l(15,18,4)=0d0
d2l(15,18,5)=0d0
d2l(15,18,6)=0d0
d2l(15,18,7)=0d0
d2l(15,18,8)=0d0
d2l(15,18,9)=0d0
d2l(15,18,10)=0d0
d2l(15,18,11)=0d0
d2l(15,18,12)=0d0
d2l(15,18,13)=0d0
d2l(15,18,14)=0d0
d2l(15,18,15)=0d0
d2l(15,18,16)=0d0
d2l(15,18,17)=0d0
d2l(15,18,18)=0d0
d2l(16,1,1)=(-(v(13679)*v(6422))-v(13985)*v(6424)-v(14291)*v(6425)+v(13778)*v(6426)+v(14084)*v(6427)+v(14390)*v(6428))&
&/2d0
d2l(16,1,2)=v(16684)
d2l(16,1,3)=v(16685)
d2l(16,1,4)=0d0
d2l(16,1,5)=0d0
d2l(16,1,6)=0d0
d2l(16,1,7)=v(16686)
d2l(16,1,8)=v(16687)
d2l(16,1,9)=v(16688)
d2l(16,1,10)=0d0
d2l(16,1,11)=0d0
d2l(16,1,12)=0d0
d2l(16,1,13)=v(16689)
d2l(16,1,14)=v(16690)
d2l(16,1,15)=v(16691)
d2l(16,1,16)=(-(v(13681)*v(6422))-v(13987)*v(6424)-v(14293)*v(6425)+v(13780)*v(6426)+v(14086)*v(6427)+v(14392)*v(6428))&
&/2d0
d2l(16,1,17)=(-(v(13683)*v(6422))-v(13989)*v(6424)-v(14295)*v(6425)+v(13782)*v(6426)+v(14088)*v(6427)+v(14394)*v(6428))&
&/2d0
d2l(16,1,18)=(-(v(13685)*v(6422))-v(13991)*v(6424)-v(14297)*v(6425)+v(13784)*v(6426)+v(14090)*v(6427)+v(14396)*v(6428))&
&/2d0
d2l(16,2,1)=v(16684)
d2l(16,2,2)=(-(v(13672)*v(6422))-v(13978)*v(6424)-v(14284)*v(6425)+v(13771)*v(6426)+v(14077)*v(6427)+v(14383)*v(6428))&
&/2d0
d2l(16,2,3)=v(16834)
d2l(16,2,4)=0d0
d2l(16,2,5)=0d0
d2l(16,2,6)=0d0
d2l(16,2,7)=v(16835)
d2l(16,2,8)=v(16836)
d2l(16,2,9)=v(16837)
d2l(16,2,10)=0d0
d2l(16,2,11)=0d0
d2l(16,2,12)=0d0
d2l(16,2,13)=v(16838)
d2l(16,2,14)=v(16839)
d2l(16,2,15)=v(16840)
d2l(16,2,16)=(-(v(13674)*v(6422))-v(13980)*v(6424)-v(14286)*v(6425)+v(13773)*v(6426)+v(14079)*v(6427)+v(14385)*v(6428))&
&/2d0
d2l(16,2,17)=(-(v(13676)*v(6422))-v(13982)*v(6424)-v(14288)*v(6425)+v(13775)*v(6426)+v(14081)*v(6427)+v(14387)*v(6428))&
&/2d0
d2l(16,2,18)=(-(v(13678)*v(6422))-v(13984)*v(6424)-v(14290)*v(6425)+v(13777)*v(6426)+v(14083)*v(6427)+v(14389)*v(6428))&
&/2d0
d2l(16,3,1)=v(16685)
d2l(16,3,2)=v(16834)
d2l(16,3,3)=(-(v(13664)*v(6422))-v(13970)*v(6424)-v(14276)*v(6425)+v(13763)*v(6426)+v(14069)*v(6427)+v(14375)*v(6428))&
&/2d0
d2l(16,3,4)=0d0
d2l(16,3,5)=0d0
d2l(16,3,6)=0d0
d2l(16,3,7)=v(16969)
d2l(16,3,8)=v(16970)
d2l(16,3,9)=v(16971)
d2l(16,3,10)=0d0
d2l(16,3,11)=0d0
d2l(16,3,12)=0d0
d2l(16,3,13)=v(16972)
d2l(16,3,14)=v(16973)
d2l(16,3,15)=v(16974)
d2l(16,3,16)=(-(v(13666)*v(6422))-v(13972)*v(6424)-v(14278)*v(6425)+v(13765)*v(6426)+v(14071)*v(6427)+v(14377)*v(6428))&
&/2d0
d2l(16,3,17)=(-(v(13668)*v(6422))-v(13974)*v(6424)-v(14280)*v(6425)+v(13767)*v(6426)+v(14073)*v(6427)+v(14379)*v(6428))&
&/2d0
d2l(16,3,18)=(-(v(13670)*v(6422))-v(13976)*v(6424)-v(14282)*v(6425)+v(13769)*v(6426)+v(14075)*v(6427)+v(14381)*v(6428))&
&/2d0
d2l(16,4,1)=0d0
d2l(16,4,2)=0d0
d2l(16,4,3)=0d0
d2l(16,4,4)=0d0
d2l(16,4,5)=0d0
d2l(16,4,6)=0d0
d2l(16,4,7)=0d0
d2l(16,4,8)=0d0
d2l(16,4,9)=0d0
d2l(16,4,10)=0d0
d2l(16,4,11)=0d0
d2l(16,4,12)=0d0
d2l(16,4,13)=0d0
d2l(16,4,14)=0d0
d2l(16,4,15)=0d0
d2l(16,4,16)=0d0
d2l(16,4,17)=0d0
d2l(16,4,18)=0d0
d2l(16,5,1)=0d0
d2l(16,5,2)=0d0
d2l(16,5,3)=0d0
d2l(16,5,4)=0d0
d2l(16,5,5)=0d0
d2l(16,5,6)=0d0
d2l(16,5,7)=0d0
d2l(16,5,8)=0d0
d2l(16,5,9)=0d0
d2l(16,5,10)=0d0
d2l(16,5,11)=0d0
d2l(16,5,12)=0d0
d2l(16,5,13)=0d0
d2l(16,5,14)=0d0
d2l(16,5,15)=0d0
d2l(16,5,16)=0d0
d2l(16,5,17)=0d0
d2l(16,5,18)=0d0
d2l(16,6,1)=0d0
d2l(16,6,2)=0d0
d2l(16,6,3)=0d0
d2l(16,6,4)=0d0
d2l(16,6,5)=0d0
d2l(16,6,6)=0d0
d2l(16,6,7)=0d0
d2l(16,6,8)=0d0
d2l(16,6,9)=0d0
d2l(16,6,10)=0d0
d2l(16,6,11)=0d0
d2l(16,6,12)=0d0
d2l(16,6,13)=0d0
d2l(16,6,14)=0d0
d2l(16,6,15)=0d0
d2l(16,6,16)=0d0
d2l(16,6,17)=0d0
d2l(16,6,18)=0d0
d2l(16,7,1)=v(16686)
d2l(16,7,2)=v(16835)
d2l(16,7,3)=v(16969)
d2l(16,7,4)=0d0
d2l(16,7,5)=0d0
d2l(16,7,6)=0d0
d2l(16,7,7)=(-(v(13655)*v(6422))-v(13961)*v(6424)-v(14267)*v(6425)+v(13754)*v(6426)+v(14060)*v(6427)+v(14366)*v(6428))&
&/2d0
d2l(16,7,8)=v(17188)
d2l(16,7,9)=v(17189)
d2l(16,7,10)=0d0
d2l(16,7,11)=0d0
d2l(16,7,12)=0d0
d2l(16,7,13)=v(17190)
d2l(16,7,14)=v(17191)
d2l(16,7,15)=v(17192)
d2l(16,7,16)=(-(v(13657)*v(6422))-v(13963)*v(6424)-v(14269)*v(6425)+v(13756)*v(6426)+v(14062)*v(6427)+v(14368)*v(6428))&
&/2d0
d2l(16,7,17)=(-(v(13659)*v(6422))-v(13965)*v(6424)-v(14271)*v(6425)+v(13758)*v(6426)+v(14064)*v(6427)+v(14370)*v(6428))&
&/2d0
d2l(16,7,18)=(-(v(13661)*v(6422))-v(13967)*v(6424)-v(14273)*v(6425)+v(13760)*v(6426)+v(14066)*v(6427)+v(14372)*v(6428))&
&/2d0
d2l(16,8,1)=v(16687)
d2l(16,8,2)=v(16836)
d2l(16,8,3)=v(16970)
d2l(16,8,4)=0d0
d2l(16,8,5)=0d0
d2l(16,8,6)=0d0
d2l(16,8,7)=v(17188)
d2l(16,8,8)=(-(v(13645)*v(6422))-v(13951)*v(6424)-v(14257)*v(6425)+v(13744)*v(6426)+v(14050)*v(6427)+v(14356)*v(6428))&
&/2d0
d2l(16,8,9)=v(17293)
d2l(16,8,10)=0d0
d2l(16,8,11)=0d0
d2l(16,8,12)=0d0
d2l(16,8,13)=v(17294)
d2l(16,8,14)=v(17295)
d2l(16,8,15)=v(17296)
d2l(16,8,16)=(-(v(13647)*v(6422))-v(13953)*v(6424)-v(14259)*v(6425)+v(13746)*v(6426)+v(14052)*v(6427)+v(14358)*v(6428))&
&/2d0
d2l(16,8,17)=(-(v(13649)*v(6422))-v(13955)*v(6424)-v(14261)*v(6425)+v(13748)*v(6426)+v(14054)*v(6427)+v(14360)*v(6428))&
&/2d0
d2l(16,8,18)=(-(v(13651)*v(6422))-v(13957)*v(6424)-v(14263)*v(6425)+v(13750)*v(6426)+v(14056)*v(6427)+v(14362)*v(6428))&
&/2d0
d2l(16,9,1)=v(16688)
d2l(16,9,2)=v(16837)
d2l(16,9,3)=v(16971)
d2l(16,9,4)=0d0
d2l(16,9,5)=0d0
d2l(16,9,6)=0d0
d2l(16,9,7)=v(17189)
d2l(16,9,8)=v(17293)
d2l(16,9,9)=(-(v(13634)*v(6422))-v(13940)*v(6424)-v(14246)*v(6425)+v(13733)*v(6426)+v(14039)*v(6427)+v(14345)*v(6428))&
&/2d0
d2l(16,9,10)=0d0
d2l(16,9,11)=0d0
d2l(16,9,12)=0d0
d2l(16,9,13)=v(17385)
d2l(16,9,14)=v(17386)
d2l(16,9,15)=v(17387)
d2l(16,9,16)=(-(v(13636)*v(6422))-v(13942)*v(6424)-v(14248)*v(6425)+v(13735)*v(6426)+v(14041)*v(6427)+v(14347)*v(6428))&
&/2d0
d2l(16,9,17)=(-(v(13638)*v(6422))-v(13944)*v(6424)-v(14250)*v(6425)+v(13737)*v(6426)+v(14043)*v(6427)+v(14349)*v(6428))&
&/2d0
d2l(16,9,18)=(-(v(13640)*v(6422))-v(13946)*v(6424)-v(14252)*v(6425)+v(13739)*v(6426)+v(14045)*v(6427)+v(14351)*v(6428))&
&/2d0
d2l(16,10,1)=0d0
d2l(16,10,2)=0d0
d2l(16,10,3)=0d0
d2l(16,10,4)=0d0
d2l(16,10,5)=0d0
d2l(16,10,6)=0d0
d2l(16,10,7)=0d0
d2l(16,10,8)=0d0
d2l(16,10,9)=0d0
d2l(16,10,10)=0d0
d2l(16,10,11)=0d0
d2l(16,10,12)=0d0
d2l(16,10,13)=0d0
d2l(16,10,14)=0d0
d2l(16,10,15)=0d0
d2l(16,10,16)=0d0
d2l(16,10,17)=0d0
d2l(16,10,18)=0d0
d2l(16,11,1)=0d0
d2l(16,11,2)=0d0
d2l(16,11,3)=0d0
d2l(16,11,4)=0d0
d2l(16,11,5)=0d0
d2l(16,11,6)=0d0
d2l(16,11,7)=0d0
d2l(16,11,8)=0d0
d2l(16,11,9)=0d0
d2l(16,11,10)=0d0
d2l(16,11,11)=0d0
d2l(16,11,12)=0d0
d2l(16,11,13)=0d0
d2l(16,11,14)=0d0
d2l(16,11,15)=0d0
d2l(16,11,16)=0d0
d2l(16,11,17)=0d0
d2l(16,11,18)=0d0
d2l(16,12,1)=0d0
d2l(16,12,2)=0d0
d2l(16,12,3)=0d0
d2l(16,12,4)=0d0
d2l(16,12,5)=0d0
d2l(16,12,6)=0d0
d2l(16,12,7)=0d0
d2l(16,12,8)=0d0
d2l(16,12,9)=0d0
d2l(16,12,10)=0d0
d2l(16,12,11)=0d0
d2l(16,12,12)=0d0
d2l(16,12,13)=0d0
d2l(16,12,14)=0d0
d2l(16,12,15)=0d0
d2l(16,12,16)=0d0
d2l(16,12,17)=0d0
d2l(16,12,18)=0d0
d2l(16,13,1)=v(16689)
d2l(16,13,2)=v(16838)
d2l(16,13,3)=v(16972)
d2l(16,13,4)=0d0
d2l(16,13,5)=0d0
d2l(16,13,6)=0d0
d2l(16,13,7)=v(17190)
d2l(16,13,8)=v(17294)
d2l(16,13,9)=v(17385)
d2l(16,13,10)=0d0
d2l(16,13,11)=0d0
d2l(16,13,12)=0d0
d2l(16,13,13)=(-(v(13622)*v(6422))-v(13928)*v(6424)-v(14234)*v(6425)+v(13721)*v(6426)+v(14027)*v(6427)+v(14333)*v(6428)&
&)/2d0
d2l(16,13,14)=v(17559)
d2l(16,13,15)=v(17560)
d2l(16,13,16)=(-(v(13624)*v(6422))-v(13930)*v(6424)-v(14236)*v(6425)+v(13723)*v(6426)+v(14029)*v(6427)+v(14335)*v(6428)&
&)/2d0
d2l(16,13,17)=(-(v(13626)*v(6422))-v(13932)*v(6424)-v(14238)*v(6425)+v(13725)*v(6426)+v(14031)*v(6427)+v(14337)*v(6428)&
&)/2d0
d2l(16,13,18)=(-(v(13628)*v(6422))-v(13934)*v(6424)-v(14240)*v(6425)+v(13727)*v(6426)+v(14033)*v(6427)+v(14339)*v(6428)&
&)/2d0
d2l(16,14,1)=v(16690)
d2l(16,14,2)=v(16839)
d2l(16,14,3)=v(16973)
d2l(16,14,4)=0d0
d2l(16,14,5)=0d0
d2l(16,14,6)=0d0
d2l(16,14,7)=v(17191)
d2l(16,14,8)=v(17295)
d2l(16,14,9)=v(17386)
d2l(16,14,10)=0d0
d2l(16,14,11)=0d0
d2l(16,14,12)=0d0
d2l(16,14,13)=v(17559)
d2l(16,14,14)=(-(v(13609)*v(6422))-v(13915)*v(6424)-v(14221)*v(6425)+v(13708)*v(6426)+v(14014)*v(6427)+v(14320)*v(6428)&
&)/2d0
d2l(16,14,15)=v(17619)
d2l(16,14,16)=(-(v(13611)*v(6422))-v(13917)*v(6424)-v(14223)*v(6425)+v(13710)*v(6426)+v(14016)*v(6427)+v(14322)*v(6428)&
&)/2d0
d2l(16,14,17)=(-(v(13613)*v(6422))-v(13919)*v(6424)-v(14225)*v(6425)+v(13712)*v(6426)+v(14018)*v(6427)+v(14324)*v(6428)&
&)/2d0
d2l(16,14,18)=(-(v(13615)*v(6422))-v(13921)*v(6424)-v(14227)*v(6425)+v(13714)*v(6426)+v(14020)*v(6427)+v(14326)*v(6428)&
&)/2d0
d2l(16,15,1)=v(16691)
d2l(16,15,2)=v(16840)
d2l(16,15,3)=v(16974)
d2l(16,15,4)=0d0
d2l(16,15,5)=0d0
d2l(16,15,6)=0d0
d2l(16,15,7)=v(17192)
d2l(16,15,8)=v(17296)
d2l(16,15,9)=v(17387)
d2l(16,15,10)=0d0
d2l(16,15,11)=0d0
d2l(16,15,12)=0d0
d2l(16,15,13)=v(17560)
d2l(16,15,14)=v(17619)
d2l(16,15,15)=(-(v(13595)*v(6422))-v(13901)*v(6424)-v(14207)*v(6425)+v(13694)*v(6426)+v(14000)*v(6427)+v(14306)*v(6428)&
&)/2d0
d2l(16,15,16)=(-(v(13597)*v(6422))-v(13903)*v(6424)-v(14209)*v(6425)+v(13696)*v(6426)+v(14002)*v(6427)+v(14308)*v(6428)&
&)/2d0
d2l(16,15,17)=(-(v(13599)*v(6422))-v(13905)*v(6424)-v(14211)*v(6425)+v(13698)*v(6426)+v(14004)*v(6427)+v(14310)*v(6428)&
&)/2d0
d2l(16,15,18)=(-(v(13601)*v(6422))-v(13907)*v(6424)-v(14213)*v(6425)+v(13700)*v(6426)+v(14006)*v(6427)+v(14312)*v(6428)&
&)/2d0
d2l(16,16,1)=(-(v(13420)*v(6422))-v(13389)*v(6424)-v(13358)*v(6425)+v(13430)*v(6426)+v(13399)*v(6427)+v(13368)*v(6428))&
&/2d0
d2l(16,16,2)=(-(v(13421)*v(6422))-v(13390)*v(6424)-v(13359)*v(6425)+v(13431)*v(6426)+v(13400)*v(6427)+v(13369)*v(6428))&
&/2d0
d2l(16,16,3)=(-(v(13422)*v(6422))-v(13391)*v(6424)-v(13360)*v(6425)+v(13432)*v(6426)+v(13401)*v(6427)+v(13370)*v(6428))&
&/2d0
d2l(16,16,4)=0d0
d2l(16,16,5)=0d0
d2l(16,16,6)=0d0
d2l(16,16,7)=(-(v(13423)*v(6422))-v(13392)*v(6424)-v(13361)*v(6425)+v(13433)*v(6426)+v(13402)*v(6427)+v(13371)*v(6428))&
&/2d0
d2l(16,16,8)=(-(v(13424)*v(6422))-v(13393)*v(6424)-v(13362)*v(6425)+v(13434)*v(6426)+v(13403)*v(6427)+v(13372)*v(6428))&
&/2d0
d2l(16,16,9)=(-(v(13425)*v(6422))-v(13394)*v(6424)-v(13363)*v(6425)+v(13435)*v(6426)+v(13404)*v(6427)+v(13373)*v(6428))&
&/2d0
d2l(16,16,10)=0d0
d2l(16,16,11)=0d0
d2l(16,16,12)=0d0
d2l(16,16,13)=(-(v(13426)*v(6422))-v(13395)*v(6424)-v(13364)*v(6425)+v(13436)*v(6426)+v(13405)*v(6427)+v(13374)*v(6428)&
&)/2d0
d2l(16,16,14)=(-(v(13427)*v(6422))-v(13396)*v(6424)-v(13365)*v(6425)+v(13437)*v(6426)+v(13406)*v(6427)+v(13375)*v(6428)&
&)/2d0
d2l(16,16,15)=(-(v(13428)*v(6422))-v(13397)*v(6424)-v(13366)*v(6425)+v(13438)*v(6426)+v(13407)*v(6427)+v(13376)*v(6428)&
&)/2d0
d2l(16,16,16)=(-(v(13429)*v(6422))-v(13398)*v(6424)-v(13367)*v(6425)+v(13439)*v(6426)+v(13408)*v(6427)+v(13377)*v(6428)&
&)/2d0
d2l(16,16,17)=v(17687)
d2l(16,16,18)=v(17688)
d2l(16,17,1)=(-(v(13316)*v(6422))-v(13281)*v(6424)-v(13246)*v(6425)+v(13327)*v(6426)+v(13292)*v(6427)+v(13257)*v(6428))&
&/2d0
d2l(16,17,2)=(-(v(13317)*v(6422))-v(13282)*v(6424)-v(13247)*v(6425)+v(13328)*v(6426)+v(13293)*v(6427)+v(13258)*v(6428))&
&/2d0
d2l(16,17,3)=(-(v(13318)*v(6422))-v(13283)*v(6424)-v(13248)*v(6425)+v(13329)*v(6426)+v(13294)*v(6427)+v(13259)*v(6428))&
&/2d0
d2l(16,17,4)=0d0
d2l(16,17,5)=0d0
d2l(16,17,6)=0d0
d2l(16,17,7)=(-(v(13319)*v(6422))-v(13284)*v(6424)-v(13249)*v(6425)+v(13330)*v(6426)+v(13295)*v(6427)+v(13260)*v(6428))&
&/2d0
d2l(16,17,8)=(-(v(13320)*v(6422))-v(13285)*v(6424)-v(13250)*v(6425)+v(13331)*v(6426)+v(13296)*v(6427)+v(13261)*v(6428))&
&/2d0
d2l(16,17,9)=(-(v(13321)*v(6422))-v(13286)*v(6424)-v(13251)*v(6425)+v(13332)*v(6426)+v(13297)*v(6427)+v(13262)*v(6428))&
&/2d0
d2l(16,17,10)=0d0
d2l(16,17,11)=0d0
d2l(16,17,12)=0d0
d2l(16,17,13)=(-(v(13322)*v(6422))-v(13287)*v(6424)-v(13252)*v(6425)+v(13333)*v(6426)+v(13298)*v(6427)+v(13263)*v(6428)&
&)/2d0
d2l(16,17,14)=(-(v(13323)*v(6422))-v(13288)*v(6424)-v(13253)*v(6425)+v(13334)*v(6426)+v(13299)*v(6427)+v(13264)*v(6428)&
&)/2d0
d2l(16,17,15)=(-(v(13324)*v(6422))-v(13289)*v(6424)-v(13254)*v(6425)+v(13335)*v(6426)+v(13300)*v(6427)+v(13265)*v(6428)&
&)/2d0
d2l(16,17,16)=v(17687)
d2l(16,17,17)=(-(v(13326)*v(6422))-v(13291)*v(6424)-v(13256)*v(6425)+v(13337)*v(6426)+v(13302)*v(6427)+v(13267)*v(6428)&
&)/2d0
d2l(16,17,18)=v(17723)
d2l(16,18,1)=(-(v(13193)*v(6422))-v(13154)*v(6424)-v(13115)*v(6425)+v(13205)*v(6426)+v(13166)*v(6427)+v(13127)*v(6428))&
&/2d0
d2l(16,18,2)=(-(v(13194)*v(6422))-v(13155)*v(6424)-v(13116)*v(6425)+v(13206)*v(6426)+v(13167)*v(6427)+v(13128)*v(6428))&
&/2d0
d2l(16,18,3)=(-(v(13195)*v(6422))-v(13156)*v(6424)-v(13117)*v(6425)+v(13207)*v(6426)+v(13168)*v(6427)+v(13129)*v(6428))&
&/2d0
d2l(16,18,4)=0d0
d2l(16,18,5)=0d0
d2l(16,18,6)=0d0
d2l(16,18,7)=(-(v(13196)*v(6422))-v(13157)*v(6424)-v(13118)*v(6425)+v(13208)*v(6426)+v(13169)*v(6427)+v(13130)*v(6428))&
&/2d0
d2l(16,18,8)=(-(v(13197)*v(6422))-v(13158)*v(6424)-v(13119)*v(6425)+v(13209)*v(6426)+v(13170)*v(6427)+v(13131)*v(6428))&
&/2d0
d2l(16,18,9)=(-(v(13198)*v(6422))-v(13159)*v(6424)-v(13120)*v(6425)+v(13210)*v(6426)+v(13171)*v(6427)+v(13132)*v(6428))&
&/2d0
d2l(16,18,10)=0d0
d2l(16,18,11)=0d0
d2l(16,18,12)=0d0
d2l(16,18,13)=(-(v(13199)*v(6422))-v(13160)*v(6424)-v(13121)*v(6425)+v(13211)*v(6426)+v(13172)*v(6427)+v(13133)*v(6428)&
&)/2d0
d2l(16,18,14)=(-(v(13200)*v(6422))-v(13161)*v(6424)-v(13122)*v(6425)+v(13212)*v(6426)+v(13173)*v(6427)+v(13134)*v(6428)&
&)/2d0
d2l(16,18,15)=(-(v(13201)*v(6422))-v(13162)*v(6424)-v(13123)*v(6425)+v(13213)*v(6426)+v(13174)*v(6427)+v(13135)*v(6428)&
&)/2d0
d2l(16,18,16)=v(17688)
d2l(16,18,17)=v(17723)
d2l(16,18,18)=(-(v(13204)*v(6422))-v(13165)*v(6424)-v(13126)*v(6425)+v(13216)*v(6426)+v(13177)*v(6427)+v(13138)*v(6428)&
&)/2d0
d2l(17,1,1)=(-(v(13778)*v(6415))-v(14084)*v(6417)-v(14390)*v(6418)+v(13580)*v(6422)+v(13886)*v(6424)+v(14192)*v(6425))&
&/2d0
d2l(17,1,2)=v(16696)
d2l(17,1,3)=v(16697)
d2l(17,1,4)=0d0
d2l(17,1,5)=0d0
d2l(17,1,6)=0d0
d2l(17,1,7)=v(16698)
d2l(17,1,8)=v(16699)
d2l(17,1,9)=v(16700)
d2l(17,1,10)=0d0
d2l(17,1,11)=0d0
d2l(17,1,12)=0d0
d2l(17,1,13)=v(16701)
d2l(17,1,14)=v(16702)
d2l(17,1,15)=v(16703)
d2l(17,1,16)=(-(v(13780)*v(6415))-v(14086)*v(6417)-v(14392)*v(6418)+v(13582)*v(6422)+v(13888)*v(6424)+v(14194)*v(6425))&
&/2d0
d2l(17,1,17)=(-(v(13782)*v(6415))-v(14088)*v(6417)-v(14394)*v(6418)+v(13584)*v(6422)+v(13890)*v(6424)+v(14196)*v(6425))&
&/2d0
d2l(17,1,18)=(-(v(13784)*v(6415))-v(14090)*v(6417)-v(14396)*v(6418)+v(13586)*v(6422)+v(13892)*v(6424)+v(14198)*v(6425))&
&/2d0
d2l(17,2,1)=v(16696)
d2l(17,2,2)=(-(v(13771)*v(6415))-v(14077)*v(6417)-v(14383)*v(6418)+v(13573)*v(6422)+v(13879)*v(6424)+v(14185)*v(6425))&
&/2d0
d2l(17,2,3)=v(16845)
d2l(17,2,4)=0d0
d2l(17,2,5)=0d0
d2l(17,2,6)=0d0
d2l(17,2,7)=v(16846)
d2l(17,2,8)=v(16847)
d2l(17,2,9)=v(16848)
d2l(17,2,10)=0d0
d2l(17,2,11)=0d0
d2l(17,2,12)=0d0
d2l(17,2,13)=v(16849)
d2l(17,2,14)=v(16850)
d2l(17,2,15)=v(16851)
d2l(17,2,16)=(-(v(13773)*v(6415))-v(14079)*v(6417)-v(14385)*v(6418)+v(13575)*v(6422)+v(13881)*v(6424)+v(14187)*v(6425))&
&/2d0
d2l(17,2,17)=(-(v(13775)*v(6415))-v(14081)*v(6417)-v(14387)*v(6418)+v(13577)*v(6422)+v(13883)*v(6424)+v(14189)*v(6425))&
&/2d0
d2l(17,2,18)=(-(v(13777)*v(6415))-v(14083)*v(6417)-v(14389)*v(6418)+v(13579)*v(6422)+v(13885)*v(6424)+v(14191)*v(6425))&
&/2d0
d2l(17,3,1)=v(16697)
d2l(17,3,2)=v(16845)
d2l(17,3,3)=(-(v(13763)*v(6415))-v(14069)*v(6417)-v(14375)*v(6418)+v(13565)*v(6422)+v(13871)*v(6424)+v(14177)*v(6425))&
&/2d0
d2l(17,3,4)=0d0
d2l(17,3,5)=0d0
d2l(17,3,6)=0d0
d2l(17,3,7)=v(16979)
d2l(17,3,8)=v(16980)
d2l(17,3,9)=v(16981)
d2l(17,3,10)=0d0
d2l(17,3,11)=0d0
d2l(17,3,12)=0d0
d2l(17,3,13)=v(16982)
d2l(17,3,14)=v(16983)
d2l(17,3,15)=v(16984)
d2l(17,3,16)=(-(v(13765)*v(6415))-v(14071)*v(6417)-v(14377)*v(6418)+v(13567)*v(6422)+v(13873)*v(6424)+v(14179)*v(6425))&
&/2d0
d2l(17,3,17)=(-(v(13767)*v(6415))-v(14073)*v(6417)-v(14379)*v(6418)+v(13569)*v(6422)+v(13875)*v(6424)+v(14181)*v(6425))&
&/2d0
d2l(17,3,18)=(-(v(13769)*v(6415))-v(14075)*v(6417)-v(14381)*v(6418)+v(13571)*v(6422)+v(13877)*v(6424)+v(14183)*v(6425))&
&/2d0
d2l(17,4,1)=0d0
d2l(17,4,2)=0d0
d2l(17,4,3)=0d0
d2l(17,4,4)=0d0
d2l(17,4,5)=0d0
d2l(17,4,6)=0d0
d2l(17,4,7)=0d0
d2l(17,4,8)=0d0
d2l(17,4,9)=0d0
d2l(17,4,10)=0d0
d2l(17,4,11)=0d0
d2l(17,4,12)=0d0
d2l(17,4,13)=0d0
d2l(17,4,14)=0d0
d2l(17,4,15)=0d0
d2l(17,4,16)=0d0
d2l(17,4,17)=0d0
d2l(17,4,18)=0d0
d2l(17,5,1)=0d0
d2l(17,5,2)=0d0
d2l(17,5,3)=0d0
d2l(17,5,4)=0d0
d2l(17,5,5)=0d0
d2l(17,5,6)=0d0
d2l(17,5,7)=0d0
d2l(17,5,8)=0d0
d2l(17,5,9)=0d0
d2l(17,5,10)=0d0
d2l(17,5,11)=0d0
d2l(17,5,12)=0d0
d2l(17,5,13)=0d0
d2l(17,5,14)=0d0
d2l(17,5,15)=0d0
d2l(17,5,16)=0d0
d2l(17,5,17)=0d0
d2l(17,5,18)=0d0
d2l(17,6,1)=0d0
d2l(17,6,2)=0d0
d2l(17,6,3)=0d0
d2l(17,6,4)=0d0
d2l(17,6,5)=0d0
d2l(17,6,6)=0d0
d2l(17,6,7)=0d0
d2l(17,6,8)=0d0
d2l(17,6,9)=0d0
d2l(17,6,10)=0d0
d2l(17,6,11)=0d0
d2l(17,6,12)=0d0
d2l(17,6,13)=0d0
d2l(17,6,14)=0d0
d2l(17,6,15)=0d0
d2l(17,6,16)=0d0
d2l(17,6,17)=0d0
d2l(17,6,18)=0d0
d2l(17,7,1)=v(16698)
d2l(17,7,2)=v(16846)
d2l(17,7,3)=v(16979)
d2l(17,7,4)=0d0
d2l(17,7,5)=0d0
d2l(17,7,6)=0d0
d2l(17,7,7)=(-(v(13754)*v(6415))-v(14060)*v(6417)-v(14366)*v(6418)+v(13556)*v(6422)+v(13862)*v(6424)+v(14168)*v(6425))&
&/2d0
d2l(17,7,8)=v(17197)
d2l(17,7,9)=v(17198)
d2l(17,7,10)=0d0
d2l(17,7,11)=0d0
d2l(17,7,12)=0d0
d2l(17,7,13)=v(17199)
d2l(17,7,14)=v(17200)
d2l(17,7,15)=v(17201)
d2l(17,7,16)=(-(v(13756)*v(6415))-v(14062)*v(6417)-v(14368)*v(6418)+v(13558)*v(6422)+v(13864)*v(6424)+v(14170)*v(6425))&
&/2d0
d2l(17,7,17)=(-(v(13758)*v(6415))-v(14064)*v(6417)-v(14370)*v(6418)+v(13560)*v(6422)+v(13866)*v(6424)+v(14172)*v(6425))&
&/2d0
d2l(17,7,18)=(-(v(13760)*v(6415))-v(14066)*v(6417)-v(14372)*v(6418)+v(13562)*v(6422)+v(13868)*v(6424)+v(14174)*v(6425))&
&/2d0
d2l(17,8,1)=v(16699)
d2l(17,8,2)=v(16847)
d2l(17,8,3)=v(16980)
d2l(17,8,4)=0d0
d2l(17,8,5)=0d0
d2l(17,8,6)=0d0
d2l(17,8,7)=v(17197)
d2l(17,8,8)=(-(v(13744)*v(6415))-v(14050)*v(6417)-v(14356)*v(6418)+v(13546)*v(6422)+v(13852)*v(6424)+v(14158)*v(6425))&
&/2d0
d2l(17,8,9)=v(17301)
d2l(17,8,10)=0d0
d2l(17,8,11)=0d0
d2l(17,8,12)=0d0
d2l(17,8,13)=v(17302)
d2l(17,8,14)=v(17303)
d2l(17,8,15)=v(17304)
d2l(17,8,16)=(-(v(13746)*v(6415))-v(14052)*v(6417)-v(14358)*v(6418)+v(13548)*v(6422)+v(13854)*v(6424)+v(14160)*v(6425))&
&/2d0
d2l(17,8,17)=(-(v(13748)*v(6415))-v(14054)*v(6417)-v(14360)*v(6418)+v(13550)*v(6422)+v(13856)*v(6424)+v(14162)*v(6425))&
&/2d0
d2l(17,8,18)=(-(v(13750)*v(6415))-v(14056)*v(6417)-v(14362)*v(6418)+v(13552)*v(6422)+v(13858)*v(6424)+v(14164)*v(6425))&
&/2d0
d2l(17,9,1)=v(16700)
d2l(17,9,2)=v(16848)
d2l(17,9,3)=v(16981)
d2l(17,9,4)=0d0
d2l(17,9,5)=0d0
d2l(17,9,6)=0d0
d2l(17,9,7)=v(17198)
d2l(17,9,8)=v(17301)
d2l(17,9,9)=(-(v(13733)*v(6415))-v(14039)*v(6417)-v(14345)*v(6418)+v(13535)*v(6422)+v(13841)*v(6424)+v(14147)*v(6425))&
&/2d0
d2l(17,9,10)=0d0
d2l(17,9,11)=0d0
d2l(17,9,12)=0d0
d2l(17,9,13)=v(17392)
d2l(17,9,14)=v(17393)
d2l(17,9,15)=v(17394)
d2l(17,9,16)=(-(v(13735)*v(6415))-v(14041)*v(6417)-v(14347)*v(6418)+v(13537)*v(6422)+v(13843)*v(6424)+v(14149)*v(6425))&
&/2d0
d2l(17,9,17)=(-(v(13737)*v(6415))-v(14043)*v(6417)-v(14349)*v(6418)+v(13539)*v(6422)+v(13845)*v(6424)+v(14151)*v(6425))&
&/2d0
d2l(17,9,18)=(-(v(13739)*v(6415))-v(14045)*v(6417)-v(14351)*v(6418)+v(13541)*v(6422)+v(13847)*v(6424)+v(14153)*v(6425))&
&/2d0
d2l(17,10,1)=0d0
d2l(17,10,2)=0d0
d2l(17,10,3)=0d0
d2l(17,10,4)=0d0
d2l(17,10,5)=0d0
d2l(17,10,6)=0d0
d2l(17,10,7)=0d0
d2l(17,10,8)=0d0
d2l(17,10,9)=0d0
d2l(17,10,10)=0d0
d2l(17,10,11)=0d0
d2l(17,10,12)=0d0
d2l(17,10,13)=0d0
d2l(17,10,14)=0d0
d2l(17,10,15)=0d0
d2l(17,10,16)=0d0
d2l(17,10,17)=0d0
d2l(17,10,18)=0d0
d2l(17,11,1)=0d0
d2l(17,11,2)=0d0
d2l(17,11,3)=0d0
d2l(17,11,4)=0d0
d2l(17,11,5)=0d0
d2l(17,11,6)=0d0
d2l(17,11,7)=0d0
d2l(17,11,8)=0d0
d2l(17,11,9)=0d0
d2l(17,11,10)=0d0
d2l(17,11,11)=0d0
d2l(17,11,12)=0d0
d2l(17,11,13)=0d0
d2l(17,11,14)=0d0
d2l(17,11,15)=0d0
d2l(17,11,16)=0d0
d2l(17,11,17)=0d0
d2l(17,11,18)=0d0
d2l(17,12,1)=0d0
d2l(17,12,2)=0d0
d2l(17,12,3)=0d0
d2l(17,12,4)=0d0
d2l(17,12,5)=0d0
d2l(17,12,6)=0d0
d2l(17,12,7)=0d0
d2l(17,12,8)=0d0
d2l(17,12,9)=0d0
d2l(17,12,10)=0d0
d2l(17,12,11)=0d0
d2l(17,12,12)=0d0
d2l(17,12,13)=0d0
d2l(17,12,14)=0d0
d2l(17,12,15)=0d0
d2l(17,12,16)=0d0
d2l(17,12,17)=0d0
d2l(17,12,18)=0d0
d2l(17,13,1)=v(16701)
d2l(17,13,2)=v(16849)
d2l(17,13,3)=v(16982)
d2l(17,13,4)=0d0
d2l(17,13,5)=0d0
d2l(17,13,6)=0d0
d2l(17,13,7)=v(17199)
d2l(17,13,8)=v(17302)
d2l(17,13,9)=v(17392)
d2l(17,13,10)=0d0
d2l(17,13,11)=0d0
d2l(17,13,12)=0d0
d2l(17,13,13)=(-(v(13721)*v(6415))-v(14027)*v(6417)-v(14333)*v(6418)+v(13523)*v(6422)+v(13829)*v(6424)+v(14135)*v(6425)&
&)/2d0
d2l(17,13,14)=v(17565)
d2l(17,13,15)=v(17566)
d2l(17,13,16)=(-(v(13723)*v(6415))-v(14029)*v(6417)-v(14335)*v(6418)+v(13525)*v(6422)+v(13831)*v(6424)+v(14137)*v(6425)&
&)/2d0
d2l(17,13,17)=(-(v(13725)*v(6415))-v(14031)*v(6417)-v(14337)*v(6418)+v(13527)*v(6422)+v(13833)*v(6424)+v(14139)*v(6425)&
&)/2d0
d2l(17,13,18)=(-(v(13727)*v(6415))-v(14033)*v(6417)-v(14339)*v(6418)+v(13529)*v(6422)+v(13835)*v(6424)+v(14141)*v(6425)&
&)/2d0
d2l(17,14,1)=v(16702)
d2l(17,14,2)=v(16850)
d2l(17,14,3)=v(16983)
d2l(17,14,4)=0d0
d2l(17,14,5)=0d0
d2l(17,14,6)=0d0
d2l(17,14,7)=v(17200)
d2l(17,14,8)=v(17303)
d2l(17,14,9)=v(17393)
d2l(17,14,10)=0d0
d2l(17,14,11)=0d0
d2l(17,14,12)=0d0
d2l(17,14,13)=v(17565)
d2l(17,14,14)=(-(v(13708)*v(6415))-v(14014)*v(6417)-v(14320)*v(6418)+v(13510)*v(6422)+v(13816)*v(6424)+v(14122)*v(6425)&
&)/2d0
d2l(17,14,15)=v(17624)
d2l(17,14,16)=(-(v(13710)*v(6415))-v(14016)*v(6417)-v(14322)*v(6418)+v(13512)*v(6422)+v(13818)*v(6424)+v(14124)*v(6425)&
&)/2d0
d2l(17,14,17)=(-(v(13712)*v(6415))-v(14018)*v(6417)-v(14324)*v(6418)+v(13514)*v(6422)+v(13820)*v(6424)+v(14126)*v(6425)&
&)/2d0
d2l(17,14,18)=(-(v(13714)*v(6415))-v(14020)*v(6417)-v(14326)*v(6418)+v(13516)*v(6422)+v(13822)*v(6424)+v(14128)*v(6425)&
&)/2d0
d2l(17,15,1)=v(16703)
d2l(17,15,2)=v(16851)
d2l(17,15,3)=v(16984)
d2l(17,15,4)=0d0
d2l(17,15,5)=0d0
d2l(17,15,6)=0d0
d2l(17,15,7)=v(17201)
d2l(17,15,8)=v(17304)
d2l(17,15,9)=v(17394)
d2l(17,15,10)=0d0
d2l(17,15,11)=0d0
d2l(17,15,12)=0d0
d2l(17,15,13)=v(17566)
d2l(17,15,14)=v(17624)
d2l(17,15,15)=(-(v(13694)*v(6415))-v(14000)*v(6417)-v(14306)*v(6418)+v(13496)*v(6422)+v(13802)*v(6424)+v(14108)*v(6425)&
&)/2d0
d2l(17,15,16)=(-(v(13696)*v(6415))-v(14002)*v(6417)-v(14308)*v(6418)+v(13498)*v(6422)+v(13804)*v(6424)+v(14110)*v(6425)&
&)/2d0
d2l(17,15,17)=(-(v(13698)*v(6415))-v(14004)*v(6417)-v(14310)*v(6418)+v(13500)*v(6422)+v(13806)*v(6424)+v(14112)*v(6425)&
&)/2d0
d2l(17,15,18)=(-(v(13700)*v(6415))-v(14006)*v(6417)-v(14312)*v(6418)+v(13502)*v(6422)+v(13808)*v(6424)+v(14114)*v(6425)&
&)/2d0
d2l(17,16,1)=(-(v(13430)*v(6415))-v(13399)*v(6417)-v(13368)*v(6418)+v(13410)*v(6422)+v(13379)*v(6424)+v(13348)*v(6425))&
&/2d0
d2l(17,16,2)=(-(v(13431)*v(6415))-v(13400)*v(6417)-v(13369)*v(6418)+v(13411)*v(6422)+v(13380)*v(6424)+v(13349)*v(6425))&
&/2d0
d2l(17,16,3)=(-(v(13432)*v(6415))-v(13401)*v(6417)-v(13370)*v(6418)+v(13412)*v(6422)+v(13381)*v(6424)+v(13350)*v(6425))&
&/2d0
d2l(17,16,4)=0d0
d2l(17,16,5)=0d0
d2l(17,16,6)=0d0
d2l(17,16,7)=(-(v(13433)*v(6415))-v(13402)*v(6417)-v(13371)*v(6418)+v(13413)*v(6422)+v(13382)*v(6424)+v(13351)*v(6425))&
&/2d0
d2l(17,16,8)=(-(v(13434)*v(6415))-v(13403)*v(6417)-v(13372)*v(6418)+v(13414)*v(6422)+v(13383)*v(6424)+v(13352)*v(6425))&
&/2d0
d2l(17,16,9)=(-(v(13435)*v(6415))-v(13404)*v(6417)-v(13373)*v(6418)+v(13415)*v(6422)+v(13384)*v(6424)+v(13353)*v(6425))&
&/2d0
d2l(17,16,10)=0d0
d2l(17,16,11)=0d0
d2l(17,16,12)=0d0
d2l(17,16,13)=(-(v(13436)*v(6415))-v(13405)*v(6417)-v(13374)*v(6418)+v(13416)*v(6422)+v(13385)*v(6424)+v(13354)*v(6425)&
&)/2d0
d2l(17,16,14)=(-(v(13437)*v(6415))-v(13406)*v(6417)-v(13375)*v(6418)+v(13417)*v(6422)+v(13386)*v(6424)+v(13355)*v(6425)&
&)/2d0
d2l(17,16,15)=(-(v(13438)*v(6415))-v(13407)*v(6417)-v(13376)*v(6418)+v(13418)*v(6422)+v(13387)*v(6424)+v(13356)*v(6425)&
&)/2d0
d2l(17,16,16)=(-(v(13439)*v(6415))-v(13408)*v(6417)-v(13377)*v(6418)+v(13419)*v(6422)+v(13388)*v(6424)+v(13357)*v(6425)&
&)/2d0
d2l(17,16,17)=v(17699)
d2l(17,16,18)=v(17700)
d2l(17,17,1)=(-(v(13327)*v(6415))-v(13292)*v(6417)-v(13257)*v(6418)+v(13305)*v(6422)+v(13270)*v(6424)+v(13235)*v(6425))&
&/2d0
d2l(17,17,2)=(-(v(13328)*v(6415))-v(13293)*v(6417)-v(13258)*v(6418)+v(13306)*v(6422)+v(13271)*v(6424)+v(13236)*v(6425))&
&/2d0
d2l(17,17,3)=(-(v(13329)*v(6415))-v(13294)*v(6417)-v(13259)*v(6418)+v(13307)*v(6422)+v(13272)*v(6424)+v(13237)*v(6425))&
&/2d0
d2l(17,17,4)=0d0
d2l(17,17,5)=0d0
d2l(17,17,6)=0d0
d2l(17,17,7)=(-(v(13330)*v(6415))-v(13295)*v(6417)-v(13260)*v(6418)+v(13308)*v(6422)+v(13273)*v(6424)+v(13238)*v(6425))&
&/2d0
d2l(17,17,8)=(-(v(13331)*v(6415))-v(13296)*v(6417)-v(13261)*v(6418)+v(13309)*v(6422)+v(13274)*v(6424)+v(13239)*v(6425))&
&/2d0
d2l(17,17,9)=(-(v(13332)*v(6415))-v(13297)*v(6417)-v(13262)*v(6418)+v(13310)*v(6422)+v(13275)*v(6424)+v(13240)*v(6425))&
&/2d0
d2l(17,17,10)=0d0
d2l(17,17,11)=0d0
d2l(17,17,12)=0d0
d2l(17,17,13)=(-(v(13333)*v(6415))-v(13298)*v(6417)-v(13263)*v(6418)+v(13311)*v(6422)+v(13276)*v(6424)+v(13241)*v(6425)&
&)/2d0
d2l(17,17,14)=(-(v(13334)*v(6415))-v(13299)*v(6417)-v(13264)*v(6418)+v(13312)*v(6422)+v(13277)*v(6424)+v(13242)*v(6425)&
&)/2d0
d2l(17,17,15)=(-(v(13335)*v(6415))-v(13300)*v(6417)-v(13265)*v(6418)+v(13313)*v(6422)+v(13278)*v(6424)+v(13243)*v(6425)&
&)/2d0
d2l(17,17,16)=v(17699)
d2l(17,17,17)=(-(v(13337)*v(6415))-v(13302)*v(6417)-v(13267)*v(6418)+v(13315)*v(6422)+v(13280)*v(6424)+v(13245)*v(6425)&
&)/2d0
d2l(17,17,18)=v(17734)
d2l(17,18,1)=(-(v(13205)*v(6415))-v(13166)*v(6417)-v(13127)*v(6418)+v(13181)*v(6422)+v(13142)*v(6424)+v(13103)*v(6425))&
&/2d0
d2l(17,18,2)=(-(v(13206)*v(6415))-v(13167)*v(6417)-v(13128)*v(6418)+v(13182)*v(6422)+v(13143)*v(6424)+v(13104)*v(6425))&
&/2d0
d2l(17,18,3)=(-(v(13207)*v(6415))-v(13168)*v(6417)-v(13129)*v(6418)+v(13183)*v(6422)+v(13144)*v(6424)+v(13105)*v(6425))&
&/2d0
d2l(17,18,4)=0d0
d2l(17,18,5)=0d0
d2l(17,18,6)=0d0
d2l(17,18,7)=(-(v(13208)*v(6415))-v(13169)*v(6417)-v(13130)*v(6418)+v(13184)*v(6422)+v(13145)*v(6424)+v(13106)*v(6425))&
&/2d0
d2l(17,18,8)=(-(v(13209)*v(6415))-v(13170)*v(6417)-v(13131)*v(6418)+v(13185)*v(6422)+v(13146)*v(6424)+v(13107)*v(6425))&
&/2d0
d2l(17,18,9)=(-(v(13210)*v(6415))-v(13171)*v(6417)-v(13132)*v(6418)+v(13186)*v(6422)+v(13147)*v(6424)+v(13108)*v(6425))&
&/2d0
d2l(17,18,10)=0d0
d2l(17,18,11)=0d0
d2l(17,18,12)=0d0
d2l(17,18,13)=(-(v(13211)*v(6415))-v(13172)*v(6417)-v(13133)*v(6418)+v(13187)*v(6422)+v(13148)*v(6424)+v(13109)*v(6425)&
&)/2d0
d2l(17,18,14)=(-(v(13212)*v(6415))-v(13173)*v(6417)-v(13134)*v(6418)+v(13188)*v(6422)+v(13149)*v(6424)+v(13110)*v(6425)&
&)/2d0
d2l(17,18,15)=(-(v(13213)*v(6415))-v(13174)*v(6417)-v(13135)*v(6418)+v(13189)*v(6422)+v(13150)*v(6424)+v(13111)*v(6425)&
&)/2d0
d2l(17,18,16)=v(17700)
d2l(17,18,17)=v(17734)
d2l(17,18,18)=(-(v(13216)*v(6415))-v(13177)*v(6417)-v(13138)*v(6418)+v(13192)*v(6422)+v(13153)*v(6424)+v(13114)*v(6425)&
&)/2d0
d2l(18,1,1)=(v(13679)*v(6415)+v(13985)*v(6417)+v(14291)*v(6418)-v(13580)*v(6426)-v(13886)*v(6427)-v(14192)*v(6428))/2d0
d2l(18,1,2)=v(16708)
d2l(18,1,3)=v(16709)
d2l(18,1,4)=0d0
d2l(18,1,5)=0d0
d2l(18,1,6)=0d0
d2l(18,1,7)=v(16710)
d2l(18,1,8)=v(16711)
d2l(18,1,9)=v(16712)
d2l(18,1,10)=0d0
d2l(18,1,11)=0d0
d2l(18,1,12)=0d0
d2l(18,1,13)=v(16713)
d2l(18,1,14)=v(16714)
d2l(18,1,15)=v(16715)
d2l(18,1,16)=(v(13681)*v(6415)+v(13987)*v(6417)+v(14293)*v(6418)-v(13582)*v(6426)-v(13888)*v(6427)-v(14194)*v(6428))&
&/2d0
d2l(18,1,17)=(v(13683)*v(6415)+v(13989)*v(6417)+v(14295)*v(6418)-v(13584)*v(6426)-v(13890)*v(6427)-v(14196)*v(6428))&
&/2d0
d2l(18,1,18)=(v(13685)*v(6415)+v(13991)*v(6417)+v(14297)*v(6418)-v(13586)*v(6426)-v(13892)*v(6427)-v(14198)*v(6428))&
&/2d0
d2l(18,2,1)=v(16708)
d2l(18,2,2)=(v(13672)*v(6415)+v(13978)*v(6417)+v(14284)*v(6418)-v(13573)*v(6426)-v(13879)*v(6427)-v(14185)*v(6428))/2d0
d2l(18,2,3)=v(16856)
d2l(18,2,4)=0d0
d2l(18,2,5)=0d0
d2l(18,2,6)=0d0
d2l(18,2,7)=v(16857)
d2l(18,2,8)=v(16858)
d2l(18,2,9)=v(16859)
d2l(18,2,10)=0d0
d2l(18,2,11)=0d0
d2l(18,2,12)=0d0
d2l(18,2,13)=v(16860)
d2l(18,2,14)=v(16861)
d2l(18,2,15)=v(16862)
d2l(18,2,16)=(v(13674)*v(6415)+v(13980)*v(6417)+v(14286)*v(6418)-v(13575)*v(6426)-v(13881)*v(6427)-v(14187)*v(6428))&
&/2d0
d2l(18,2,17)=(v(13676)*v(6415)+v(13982)*v(6417)+v(14288)*v(6418)-v(13577)*v(6426)-v(13883)*v(6427)-v(14189)*v(6428))&
&/2d0
d2l(18,2,18)=(v(13678)*v(6415)+v(13984)*v(6417)+v(14290)*v(6418)-v(13579)*v(6426)-v(13885)*v(6427)-v(14191)*v(6428))&
&/2d0
d2l(18,3,1)=v(16709)
d2l(18,3,2)=v(16856)
d2l(18,3,3)=(v(13664)*v(6415)+v(13970)*v(6417)+v(14276)*v(6418)-v(13565)*v(6426)-v(13871)*v(6427)-v(14177)*v(6428))/2d0
d2l(18,3,4)=0d0
d2l(18,3,5)=0d0
d2l(18,3,6)=0d0
d2l(18,3,7)=v(16989)
d2l(18,3,8)=v(16990)
d2l(18,3,9)=v(16991)
d2l(18,3,10)=0d0
d2l(18,3,11)=0d0
d2l(18,3,12)=0d0
d2l(18,3,13)=v(16992)
d2l(18,3,14)=v(16993)
d2l(18,3,15)=v(16994)
d2l(18,3,16)=(v(13666)*v(6415)+v(13972)*v(6417)+v(14278)*v(6418)-v(13567)*v(6426)-v(13873)*v(6427)-v(14179)*v(6428))&
&/2d0
d2l(18,3,17)=(v(13668)*v(6415)+v(13974)*v(6417)+v(14280)*v(6418)-v(13569)*v(6426)-v(13875)*v(6427)-v(14181)*v(6428))&
&/2d0
d2l(18,3,18)=(v(13670)*v(6415)+v(13976)*v(6417)+v(14282)*v(6418)-v(13571)*v(6426)-v(13877)*v(6427)-v(14183)*v(6428))&
&/2d0
d2l(18,4,1)=0d0
d2l(18,4,2)=0d0
d2l(18,4,3)=0d0
d2l(18,4,4)=0d0
d2l(18,4,5)=0d0
d2l(18,4,6)=0d0
d2l(18,4,7)=0d0
d2l(18,4,8)=0d0
d2l(18,4,9)=0d0
d2l(18,4,10)=0d0
d2l(18,4,11)=0d0
d2l(18,4,12)=0d0
d2l(18,4,13)=0d0
d2l(18,4,14)=0d0
d2l(18,4,15)=0d0
d2l(18,4,16)=0d0
d2l(18,4,17)=0d0
d2l(18,4,18)=0d0
d2l(18,5,1)=0d0
d2l(18,5,2)=0d0
d2l(18,5,3)=0d0
d2l(18,5,4)=0d0
d2l(18,5,5)=0d0
d2l(18,5,6)=0d0
d2l(18,5,7)=0d0
d2l(18,5,8)=0d0
d2l(18,5,9)=0d0
d2l(18,5,10)=0d0
d2l(18,5,11)=0d0
d2l(18,5,12)=0d0
d2l(18,5,13)=0d0
d2l(18,5,14)=0d0
d2l(18,5,15)=0d0
d2l(18,5,16)=0d0
d2l(18,5,17)=0d0
d2l(18,5,18)=0d0
d2l(18,6,1)=0d0
d2l(18,6,2)=0d0
d2l(18,6,3)=0d0
d2l(18,6,4)=0d0
d2l(18,6,5)=0d0
d2l(18,6,6)=0d0
d2l(18,6,7)=0d0
d2l(18,6,8)=0d0
d2l(18,6,9)=0d0
d2l(18,6,10)=0d0
d2l(18,6,11)=0d0
d2l(18,6,12)=0d0
d2l(18,6,13)=0d0
d2l(18,6,14)=0d0
d2l(18,6,15)=0d0
d2l(18,6,16)=0d0
d2l(18,6,17)=0d0
d2l(18,6,18)=0d0
d2l(18,7,1)=v(16710)
d2l(18,7,2)=v(16857)
d2l(18,7,3)=v(16989)
d2l(18,7,4)=0d0
d2l(18,7,5)=0d0
d2l(18,7,6)=0d0
d2l(18,7,7)=(v(13655)*v(6415)+v(13961)*v(6417)+v(14267)*v(6418)-v(13556)*v(6426)-v(13862)*v(6427)-v(14168)*v(6428))/2d0
d2l(18,7,8)=v(17206)
d2l(18,7,9)=v(17207)
d2l(18,7,10)=0d0
d2l(18,7,11)=0d0
d2l(18,7,12)=0d0
d2l(18,7,13)=v(17208)
d2l(18,7,14)=v(17209)
d2l(18,7,15)=v(17210)
d2l(18,7,16)=(v(13657)*v(6415)+v(13963)*v(6417)+v(14269)*v(6418)-v(13558)*v(6426)-v(13864)*v(6427)-v(14170)*v(6428))&
&/2d0
d2l(18,7,17)=(v(13659)*v(6415)+v(13965)*v(6417)+v(14271)*v(6418)-v(13560)*v(6426)-v(13866)*v(6427)-v(14172)*v(6428))&
&/2d0
d2l(18,7,18)=(v(13661)*v(6415)+v(13967)*v(6417)+v(14273)*v(6418)-v(13562)*v(6426)-v(13868)*v(6427)-v(14174)*v(6428))&
&/2d0
d2l(18,8,1)=v(16711)
d2l(18,8,2)=v(16858)
d2l(18,8,3)=v(16990)
d2l(18,8,4)=0d0
d2l(18,8,5)=0d0
d2l(18,8,6)=0d0
d2l(18,8,7)=v(17206)
d2l(18,8,8)=(v(13645)*v(6415)+v(13951)*v(6417)+v(14257)*v(6418)-v(13546)*v(6426)-v(13852)*v(6427)-v(14158)*v(6428))/2d0
d2l(18,8,9)=v(17309)
d2l(18,8,10)=0d0
d2l(18,8,11)=0d0
d2l(18,8,12)=0d0
d2l(18,8,13)=v(17310)
d2l(18,8,14)=v(17311)
d2l(18,8,15)=v(17312)
d2l(18,8,16)=(v(13647)*v(6415)+v(13953)*v(6417)+v(14259)*v(6418)-v(13548)*v(6426)-v(13854)*v(6427)-v(14160)*v(6428))&
&/2d0
d2l(18,8,17)=(v(13649)*v(6415)+v(13955)*v(6417)+v(14261)*v(6418)-v(13550)*v(6426)-v(13856)*v(6427)-v(14162)*v(6428))&
&/2d0
d2l(18,8,18)=(v(13651)*v(6415)+v(13957)*v(6417)+v(14263)*v(6418)-v(13552)*v(6426)-v(13858)*v(6427)-v(14164)*v(6428))&
&/2d0
d2l(18,9,1)=v(16712)
d2l(18,9,2)=v(16859)
d2l(18,9,3)=v(16991)
d2l(18,9,4)=0d0
d2l(18,9,5)=0d0
d2l(18,9,6)=0d0
d2l(18,9,7)=v(17207)
d2l(18,9,8)=v(17309)
d2l(18,9,9)=(v(13634)*v(6415)+v(13940)*v(6417)+v(14246)*v(6418)-v(13535)*v(6426)-v(13841)*v(6427)-v(14147)*v(6428))/2d0
d2l(18,9,10)=0d0
d2l(18,9,11)=0d0
d2l(18,9,12)=0d0
d2l(18,9,13)=v(17399)
d2l(18,9,14)=v(17400)
d2l(18,9,15)=v(17401)
d2l(18,9,16)=(v(13636)*v(6415)+v(13942)*v(6417)+v(14248)*v(6418)-v(13537)*v(6426)-v(13843)*v(6427)-v(14149)*v(6428))&
&/2d0
d2l(18,9,17)=(v(13638)*v(6415)+v(13944)*v(6417)+v(14250)*v(6418)-v(13539)*v(6426)-v(13845)*v(6427)-v(14151)*v(6428))&
&/2d0
d2l(18,9,18)=(v(13640)*v(6415)+v(13946)*v(6417)+v(14252)*v(6418)-v(13541)*v(6426)-v(13847)*v(6427)-v(14153)*v(6428))&
&/2d0
d2l(18,10,1)=0d0
d2l(18,10,2)=0d0
d2l(18,10,3)=0d0
d2l(18,10,4)=0d0
d2l(18,10,5)=0d0
d2l(18,10,6)=0d0
d2l(18,10,7)=0d0
d2l(18,10,8)=0d0
d2l(18,10,9)=0d0
d2l(18,10,10)=0d0
d2l(18,10,11)=0d0
d2l(18,10,12)=0d0
d2l(18,10,13)=0d0
d2l(18,10,14)=0d0
d2l(18,10,15)=0d0
d2l(18,10,16)=0d0
d2l(18,10,17)=0d0
d2l(18,10,18)=0d0
d2l(18,11,1)=0d0
d2l(18,11,2)=0d0
d2l(18,11,3)=0d0
d2l(18,11,4)=0d0
d2l(18,11,5)=0d0
d2l(18,11,6)=0d0
d2l(18,11,7)=0d0
d2l(18,11,8)=0d0
d2l(18,11,9)=0d0
d2l(18,11,10)=0d0
d2l(18,11,11)=0d0
d2l(18,11,12)=0d0
d2l(18,11,13)=0d0
d2l(18,11,14)=0d0
d2l(18,11,15)=0d0
d2l(18,11,16)=0d0
d2l(18,11,17)=0d0
d2l(18,11,18)=0d0
d2l(18,12,1)=0d0
d2l(18,12,2)=0d0
d2l(18,12,3)=0d0
d2l(18,12,4)=0d0
d2l(18,12,5)=0d0
d2l(18,12,6)=0d0
d2l(18,12,7)=0d0
d2l(18,12,8)=0d0
d2l(18,12,9)=0d0
d2l(18,12,10)=0d0
d2l(18,12,11)=0d0
d2l(18,12,12)=0d0
d2l(18,12,13)=0d0
d2l(18,12,14)=0d0
d2l(18,12,15)=0d0
d2l(18,12,16)=0d0
d2l(18,12,17)=0d0
d2l(18,12,18)=0d0
d2l(18,13,1)=v(16713)
d2l(18,13,2)=v(16860)
d2l(18,13,3)=v(16992)
d2l(18,13,4)=0d0
d2l(18,13,5)=0d0
d2l(18,13,6)=0d0
d2l(18,13,7)=v(17208)
d2l(18,13,8)=v(17310)
d2l(18,13,9)=v(17399)
d2l(18,13,10)=0d0
d2l(18,13,11)=0d0
d2l(18,13,12)=0d0
d2l(18,13,13)=(v(13622)*v(6415)+v(13928)*v(6417)+v(14234)*v(6418)-v(13523)*v(6426)-v(13829)*v(6427)-v(14135)*v(6428))&
&/2d0
d2l(18,13,14)=v(17571)
d2l(18,13,15)=v(17572)
d2l(18,13,16)=(v(13624)*v(6415)+v(13930)*v(6417)+v(14236)*v(6418)-v(13525)*v(6426)-v(13831)*v(6427)-v(14137)*v(6428))&
&/2d0
d2l(18,13,17)=(v(13626)*v(6415)+v(13932)*v(6417)+v(14238)*v(6418)-v(13527)*v(6426)-v(13833)*v(6427)-v(14139)*v(6428))&
&/2d0
d2l(18,13,18)=(v(13628)*v(6415)+v(13934)*v(6417)+v(14240)*v(6418)-v(13529)*v(6426)-v(13835)*v(6427)-v(14141)*v(6428))&
&/2d0
d2l(18,14,1)=v(16714)
d2l(18,14,2)=v(16861)
d2l(18,14,3)=v(16993)
d2l(18,14,4)=0d0
d2l(18,14,5)=0d0
d2l(18,14,6)=0d0
d2l(18,14,7)=v(17209)
d2l(18,14,8)=v(17311)
d2l(18,14,9)=v(17400)
d2l(18,14,10)=0d0
d2l(18,14,11)=0d0
d2l(18,14,12)=0d0
d2l(18,14,13)=v(17571)
d2l(18,14,14)=(v(13609)*v(6415)+v(13915)*v(6417)+v(14221)*v(6418)-v(13510)*v(6426)-v(13816)*v(6427)-v(14122)*v(6428))&
&/2d0
d2l(18,14,15)=v(17629)
d2l(18,14,16)=(v(13611)*v(6415)+v(13917)*v(6417)+v(14223)*v(6418)-v(13512)*v(6426)-v(13818)*v(6427)-v(14124)*v(6428))&
&/2d0
d2l(18,14,17)=(v(13613)*v(6415)+v(13919)*v(6417)+v(14225)*v(6418)-v(13514)*v(6426)-v(13820)*v(6427)-v(14126)*v(6428))&
&/2d0
d2l(18,14,18)=(v(13615)*v(6415)+v(13921)*v(6417)+v(14227)*v(6418)-v(13516)*v(6426)-v(13822)*v(6427)-v(14128)*v(6428))&
&/2d0
d2l(18,15,1)=v(16715)
d2l(18,15,2)=v(16862)
d2l(18,15,3)=v(16994)
d2l(18,15,4)=0d0
d2l(18,15,5)=0d0
d2l(18,15,6)=0d0
d2l(18,15,7)=v(17210)
d2l(18,15,8)=v(17312)
d2l(18,15,9)=v(17401)
d2l(18,15,10)=0d0
d2l(18,15,11)=0d0
d2l(18,15,12)=0d0
d2l(18,15,13)=v(17572)
d2l(18,15,14)=v(17629)
d2l(18,15,15)=(v(13595)*v(6415)+v(13901)*v(6417)+v(14207)*v(6418)-v(13496)*v(6426)-v(13802)*v(6427)-v(14108)*v(6428))&
&/2d0
d2l(18,15,16)=(v(13597)*v(6415)+v(13903)*v(6417)+v(14209)*v(6418)-v(13498)*v(6426)-v(13804)*v(6427)-v(14110)*v(6428))&
&/2d0
d2l(18,15,17)=(v(13599)*v(6415)+v(13905)*v(6417)+v(14211)*v(6418)-v(13500)*v(6426)-v(13806)*v(6427)-v(14112)*v(6428))&
&/2d0
d2l(18,15,18)=(v(13601)*v(6415)+v(13907)*v(6417)+v(14213)*v(6418)-v(13502)*v(6426)-v(13808)*v(6427)-v(14114)*v(6428))&
&/2d0
d2l(18,16,1)=(v(13420)*v(6415)+v(13389)*v(6417)+v(13358)*v(6418)-v(13410)*v(6426)-v(13379)*v(6427)-v(13348)*v(6428))&
&/2d0
d2l(18,16,2)=(v(13421)*v(6415)+v(13390)*v(6417)+v(13359)*v(6418)-v(13411)*v(6426)-v(13380)*v(6427)-v(13349)*v(6428))&
&/2d0
d2l(18,16,3)=(v(13422)*v(6415)+v(13391)*v(6417)+v(13360)*v(6418)-v(13412)*v(6426)-v(13381)*v(6427)-v(13350)*v(6428))&
&/2d0
d2l(18,16,4)=0d0
d2l(18,16,5)=0d0
d2l(18,16,6)=0d0
d2l(18,16,7)=(v(13423)*v(6415)+v(13392)*v(6417)+v(13361)*v(6418)-v(13413)*v(6426)-v(13382)*v(6427)-v(13351)*v(6428))&
&/2d0
d2l(18,16,8)=(v(13424)*v(6415)+v(13393)*v(6417)+v(13362)*v(6418)-v(13414)*v(6426)-v(13383)*v(6427)-v(13352)*v(6428))&
&/2d0
d2l(18,16,9)=(v(13425)*v(6415)+v(13394)*v(6417)+v(13363)*v(6418)-v(13415)*v(6426)-v(13384)*v(6427)-v(13353)*v(6428))&
&/2d0
d2l(18,16,10)=0d0
d2l(18,16,11)=0d0
d2l(18,16,12)=0d0
d2l(18,16,13)=(v(13426)*v(6415)+v(13395)*v(6417)+v(13364)*v(6418)-v(13416)*v(6426)-v(13385)*v(6427)-v(13354)*v(6428))&
&/2d0
d2l(18,16,14)=(v(13427)*v(6415)+v(13396)*v(6417)+v(13365)*v(6418)-v(13417)*v(6426)-v(13386)*v(6427)-v(13355)*v(6428))&
&/2d0
d2l(18,16,15)=(v(13428)*v(6415)+v(13397)*v(6417)+v(13366)*v(6418)-v(13418)*v(6426)-v(13387)*v(6427)-v(13356)*v(6428))&
&/2d0
d2l(18,16,16)=(v(13429)*v(6415)+v(13398)*v(6417)+v(13367)*v(6418)-v(13419)*v(6426)-v(13388)*v(6427)-v(13357)*v(6428))&
&/2d0
d2l(18,16,17)=v(17711)
d2l(18,16,18)=v(17712)
d2l(18,17,1)=(v(13316)*v(6415)+v(13281)*v(6417)+v(13246)*v(6418)-v(13305)*v(6426)-v(13270)*v(6427)-v(13235)*v(6428))&
&/2d0
d2l(18,17,2)=(v(13317)*v(6415)+v(13282)*v(6417)+v(13247)*v(6418)-v(13306)*v(6426)-v(13271)*v(6427)-v(13236)*v(6428))&
&/2d0
d2l(18,17,3)=(v(13318)*v(6415)+v(13283)*v(6417)+v(13248)*v(6418)-v(13307)*v(6426)-v(13272)*v(6427)-v(13237)*v(6428))&
&/2d0
d2l(18,17,4)=0d0
d2l(18,17,5)=0d0
d2l(18,17,6)=0d0
d2l(18,17,7)=(v(13319)*v(6415)+v(13284)*v(6417)+v(13249)*v(6418)-v(13308)*v(6426)-v(13273)*v(6427)-v(13238)*v(6428))&
&/2d0
d2l(18,17,8)=(v(13320)*v(6415)+v(13285)*v(6417)+v(13250)*v(6418)-v(13309)*v(6426)-v(13274)*v(6427)-v(13239)*v(6428))&
&/2d0
d2l(18,17,9)=(v(13321)*v(6415)+v(13286)*v(6417)+v(13251)*v(6418)-v(13310)*v(6426)-v(13275)*v(6427)-v(13240)*v(6428))&
&/2d0
d2l(18,17,10)=0d0
d2l(18,17,11)=0d0
d2l(18,17,12)=0d0
d2l(18,17,13)=(v(13322)*v(6415)+v(13287)*v(6417)+v(13252)*v(6418)-v(13311)*v(6426)-v(13276)*v(6427)-v(13241)*v(6428))&
&/2d0
d2l(18,17,14)=(v(13323)*v(6415)+v(13288)*v(6417)+v(13253)*v(6418)-v(13312)*v(6426)-v(13277)*v(6427)-v(13242)*v(6428))&
&/2d0
d2l(18,17,15)=(v(13324)*v(6415)+v(13289)*v(6417)+v(13254)*v(6418)-v(13313)*v(6426)-v(13278)*v(6427)-v(13243)*v(6428))&
&/2d0
d2l(18,17,16)=v(17711)
d2l(18,17,17)=(v(13326)*v(6415)+v(13291)*v(6417)+v(13256)*v(6418)-v(13315)*v(6426)-v(13280)*v(6427)-v(13245)*v(6428))&
&/2d0
d2l(18,17,18)=v(17745)
d2l(18,18,1)=(v(13193)*v(6415)+v(13154)*v(6417)+v(13115)*v(6418)-v(13181)*v(6426)-v(13142)*v(6427)-v(13103)*v(6428))&
&/2d0
d2l(18,18,2)=(v(13194)*v(6415)+v(13155)*v(6417)+v(13116)*v(6418)-v(13182)*v(6426)-v(13143)*v(6427)-v(13104)*v(6428))&
&/2d0
d2l(18,18,3)=(v(13195)*v(6415)+v(13156)*v(6417)+v(13117)*v(6418)-v(13183)*v(6426)-v(13144)*v(6427)-v(13105)*v(6428))&
&/2d0
d2l(18,18,4)=0d0
d2l(18,18,5)=0d0
d2l(18,18,6)=0d0
d2l(18,18,7)=(v(13196)*v(6415)+v(13157)*v(6417)+v(13118)*v(6418)-v(13184)*v(6426)-v(13145)*v(6427)-v(13106)*v(6428))&
&/2d0
d2l(18,18,8)=(v(13197)*v(6415)+v(13158)*v(6417)+v(13119)*v(6418)-v(13185)*v(6426)-v(13146)*v(6427)-v(13107)*v(6428))&
&/2d0
d2l(18,18,9)=(v(13198)*v(6415)+v(13159)*v(6417)+v(13120)*v(6418)-v(13186)*v(6426)-v(13147)*v(6427)-v(13108)*v(6428))&
&/2d0
d2l(18,18,10)=0d0
d2l(18,18,11)=0d0
d2l(18,18,12)=0d0
d2l(18,18,13)=(v(13199)*v(6415)+v(13160)*v(6417)+v(13121)*v(6418)-v(13187)*v(6426)-v(13148)*v(6427)-v(13109)*v(6428))&
&/2d0
d2l(18,18,14)=(v(13200)*v(6415)+v(13161)*v(6417)+v(13122)*v(6418)-v(13188)*v(6426)-v(13149)*v(6427)-v(13110)*v(6428))&
&/2d0
d2l(18,18,15)=(v(13201)*v(6415)+v(13162)*v(6417)+v(13123)*v(6418)-v(13189)*v(6426)-v(13150)*v(6427)-v(13111)*v(6428))&
&/2d0
d2l(18,18,16)=v(17712)
d2l(18,18,17)=v(17745)
d2l(18,18,18)=(v(13204)*v(6415)+v(13165)*v(6417)+v(13126)*v(6418)-v(13192)*v(6426)-v(13153)*v(6427)-v(13114)*v(6428))&
&/2d0
END SUBROUTINE triangcorot3d

SUBROUTINE triangcorot2d(xg,ug,ri1,ri2,ri3,xl,ul,ro,dl,d2l)
IMPLICIT NONE
DOUBLE PRECISION v(50001),xg(6),ug(9),ri1(2,2),ri2(2,2),ri3(2,2),xl(6),ul(9),ro(2,2),dl(9,9),d2l(9,9,9)
v(1040)=2d0*ug(3)
v(963)=ug(3)**2
v(2994)=SQRT(v(963))
v(1414)=v(1040)/(2d0*v(2994))
v(2998)=ug(3)*v(1414)
v(1791)=v(1414)/2d0
v(1802)=2d0*v(1414)*v(963)
v(1041)=2d0*ug(6)
v(971)=ug(6)**2
v(3001)=SQRT(v(971))
v(1416)=v(1041)/(2d0*v(3001))
v(3005)=ug(6)*v(1416)
v(1994)=v(1416)/2d0
v(2005)=2d0*v(1416)*v(971)
v(1042)=2d0*ug(9)
v(979)=ug(9)**2
v(3008)=SQRT(v(979))
v(1418)=v(1042)/(2d0*v(3008))
v(3012)=ug(9)*v(1418)
v(2197)=v(1418)/2d0
v(2208)=2d0*v(1418)*v(979)
v(913)=(xg(1)+xg(3)+xg(5))/3d0
v(938)=-v(913)+xg(5)
v(937)=-v(913)+xg(1)
v(914)=(ug(1)+ug(4)+ug(7))/3d0
v(2960)=-v(913)-v(914)
v(1000)=ug(4)+v(2960)+xg(3)
v(947)=ug(7)+v(2960)+xg(5)
v(946)=ug(1)+v(2960)+xg(1)
v(915)=-ug(1)+v(1000)-v(2960)-xg(1)
v(1420)=(-2d0)*v(915)
v(916)=(xg(2)+xg(4)+xg(6))/3d0
v(936)=-v(916)+xg(6)
v(935)=-v(916)+xg(2)
v(917)=(ug(2)+ug(5)+ug(8))/3d0
v(2961)=-v(916)-v(917)
v(1004)=ug(5)+v(2961)+xg(4)
v(945)=ug(8)+v(2961)+xg(6)
v(944)=ug(2)+v(2961)+xg(2)
v(918)=-ug(2)+v(1004)-v(2961)-xg(2)
v(1421)=(-2d0)*v(918)
v(1044)=(v(915)*v(915))+(v(918)*v(918))
v(2963)=1d0/SQRT(v(1044))
v(2962)=-v(2963)/(2d0*v(1044))
v(1426)=v(1421)*v(2962)
v(2972)=-(v(1426)*v(918))
v(1425)=v(1420)*v(2962)
v(1423)=1d0/v(1044)**2
v(1043)=v(2963)
v(1430)=-((v(915)*(v(2972)+v(1043)*(1d0+v(1044)*v(1421)*v(1423)*v(918))))/v(1044))
v(1470)=-v(1425)-v(1430)
v(1446)=-(v(1430)*v(947))
v(1443)=-(v(1430)*v(945))
v(1439)=v(1430)*v(944)
v(1432)=v(1430)*v(946)
v(2971)=-v(1432)-v(1446)
v(2969)=v(1432)+v(1446)
v(1451)=(-(v(1043)*v(1420)*v(1423))+v(1425)/v(1044))*v(915)*v(918)
v(1468)=v(1451)*v(945)
v(1465)=-(v(1451)*v(944))
v(1458)=v(1451)*v(946)
v(1453)=-(v(1451)*v(947))
v(2968)=v(1453)+v(1458)
v(1428)=-v(1426)+v(1451)
v(1447)=-(v(1428)*v(947))
v(1441)=-(v(1428)*v(945))
v(1436)=v(1428)*v(944)
v(1433)=v(1428)*v(946)
v(1049)=v(1426)*v(915)
v(1437)=(2d0/3d0)*v(1049)
v(1438)=v(1437)+v(1439)
v(1435)=-v(1049)/3d0
v(2966)=v(1433)-v(1435)
v(1448)=-v(1435)-v(1447)
v(1444)=-v(1435)-v(1443)
v(1442)=-v(1435)+v(1443)
v(2965)=-v(1438)-v(1442)
v(2964)=v(1438)+v(1442)
v(1497)=v(1437)+v(1447)+v(2964)+v(2966)
v(1492)=-v(1433)+v(1435)+v(1448)+v(2965)
v(1489)=v(1049)+v(2964)+v(2968)
v(1461)=-v(1453)-v(1458)+v(2965)
v(1440)=v(1435)-v(1439)
v(2967)=-v(1440)-v(1444)
v(1494)=-v(1448)+v(2966)+v(2967)
v(1463)=v(2967)+v(2968)
v(1068)=v(1049)*v(946)
v(1066)=v(1049)*v(944)
v(1057)=-(v(1049)*v(945))
v(2974)=v(1057)+v(1066)
v(2973)=-v(1057)-v(1066)
v(1051)=-(v(1049)*v(947))
v(2976)=v(1051)+v(1068)
v(2975)=-v(1051)-v(1068)
v(1056)=v(1425)*v(915)
v(1456)=(-2d0/3d0)*v(1056)
v(2986)=2d0*v(1456)
v(1464)=v(1456)+v(1465)
v(2970)=v(1464)+v(2969)
v(1457)=-v(1432)-v(1456)
v(1454)=v(1056)/3d0
v(1500)=v(1454)-v(1464)-v(1468)+v(2971)
v(1499)=-v(1456)+v(1468)
v(1503)=v(1468)+v(2970)+v(2986)
v(1501)=v(1499)+v(2970)
v(1462)=v(1436)+v(1441)+v(2971)
v(1452)=-v(1446)+v(1454)
v(1460)=-v(1436)-v(1441)-v(1452)-v(1457)
v(1079)=-(v(1056)*v(947))
v(1078)=v(1056)*v(946)
v(1080)=-v(1078)-v(1079)+v(2973)
v(1069)=-(v(1056)*v(944))
v(1060)=v(1056)*v(945)
v(1048)=v(2972)
v(1488)=v(1048)+v(1452)+v(1457)+v(1462)-v(2971)
v(1076)=-(v(1048)*v(945))
v(1075)=v(1048)*v(944)
v(1077)=-v(1075)-v(1076)+v(2976)
v(1065)=v(1048)*v(946)
v(1053)=-(v(1048)*v(947))
v(919)=-xg(1)+xg(3)
v(920)=-xg(2)+xg(4)
v(929)=1d0/SQRT(v(919)**2+v(920)**2)
v(925)=v(1043)*v(915)
v(1074)=v(1078)+v(1079)+v(2974)+v(925)
v(1055)=(-2d0/3d0)*v(925)
v(1052)=v(925)/3d0
v(1054)=v(1052)-v(1053)
v(1067)=-v(1052)+v(1054)-v(1065)+v(2973)
v(1063)=v(1052)+v(1053)-v(1055)+v(1065)+v(2974)
v(941)=-(v(925)*v(947))
v(927)=v(1043)*v(918)
v(1073)=v(1075)+v(1076)+v(2975)-v(927)
v(1062)=(-2d0/3d0)*v(927)
v(1059)=v(927)/3d0
v(1061)=v(1059)-v(1060)
v(1070)=-v(1059)+v(1061)-v(1069)+v(2975)
v(1064)=v(1059)+v(1060)-v(1062)+v(1069)+v(2976)
v(942)=-(v(927)*v(945))
v(2978)=v(941)+v(942)
v(928)=v(919)*v(929)
v(996)=-(v(928)*v(936))
v(993)=v(928)*v(935)
v(989)=v(928)*(-v(913)+xg(3))
v(986)=v(928)*v(937)
v(932)=-(v(928)*v(938))
v(930)=v(920)*v(929)
v(997)=v(930)*v(938)
v(994)=-(v(930)*v(937))
v(3015)=v(993)+v(994)
v(990)=v(930)*(-v(916)+xg(4))
v(987)=v(930)*v(935)
v(933)=-(v(930)*v(936))
v(2977)=v(932)+v(933)
v(931)=v(2977)+v(986)+v(987)
v(934)=v(2977)+v(989)+v(990)
v(2979)=1d0/(v(931)-v(934))
v(939)=v(3015)+v(996)+v(997)
v(2980)=1d0/v(939)
v(940)=v(2978)+v(927)*v(944)+v(925)*v(946)
v(943)=v(2978)+v(1000)*v(925)+v(1004)*v(927)
v(948)=v(925)*(v(944)-v(945))+v(927)*(-v(946)+v(947))
v(949)=v(2979)*v(2980)
v(950)=v(2979)
v(1505)=-(v(1056)*v(950))
v(1504)=v(1049)*v(950)
v(1084)=v(927)*v(950)
v(1082)=v(925)*v(950)
v(951)=-(v(934)*v(949))
v(952)=v(931)*v(949)
v(1511)=-(v(1049)*v(2980))
v(1100)=v(1070)*v(951)-(v(1000)*v(1049)+v(1051)-v(1004)*v(1056)-v(1061)+v(1062))*v(952)
v(1097)=v(1067)*v(951)-(v(1000)*v(1048)+v(1004)*v(1049)-v(1054)+v(1055)+v(1057))*v(952)
v(1094)=v(1064)*v(951)-v(1070)*v(952)
v(1090)=v(1063)*v(951)-v(1067)*v(952)
v(1088)=-(v(2980)*v(925))
v(1087)=v(2980)*v(927)
v(1099)=-v(1084)+v(1080)*v(2980)
v(1096)=-v(1082)+v(1077)*v(2980)
v(1093)=v(1084)+v(1074)*v(2980)
v(1089)=v(1082)+v(1073)*v(2980)
v(954)=v(940)*v(951)+v(943)*v(952)
v(956)=v(2980)*v(948)+(v(940)-v(943))*v(950)
v(2992)=v(1087)*v(954)-v(1088)*v(956)
v(2987)=v(1099)*v(954)-v(1100)*v(956)
v(2985)=v(1093)*v(954)-v(1094)*v(956)
v(2982)=v(1088)*v(954)+v(1087)*v(956)
v(1523)=(v(954)*v(954))+(v(956)*v(956))
v(2991)=-(v(1089)/v(1523))
v(2990)=v(1090)/v(1523)
v(2989)=-(v(1100)/v(1523))
v(2988)=v(1099)/v(1523)
v(2984)=v(954)/v(1523)
v(2983)=-(v(956)/v(1523))
v(1525)=1d0/v(1523)**2
v(2981)=2d0*v(1525)
v(1530)=v(2981)*v(2992)
v(1540)=v(1530)*v(2982)
v(1529)=-(v(2981)*v(2982))
v(1528)=v(2981)*(-(v(1100)*v(954))-v(1099)*v(956))
v(1527)=v(2981)*(-(v(1097)*v(954))-v(1096)*v(956))
v(1526)=v(2981)*(-(v(1094)*v(954))-v(1093)*v(956))
v(1524)=v(2981)*(-(v(1090)*v(954))-v(1089)*v(956))
v(1563)=(v(1505)+v(1489)*v(2980))*v(2984)+v(1526)*v(2985)+v(2983)*(v(1503)*v(951)-v(1500)*v(952))
v(1560)=(v(1504)+v(1488)*v(2980))*v(2984)+v(1524)*v(2985)+v(1093)*v(2990)+v(1094)*v(2991)+v(2983)*(v(1497)*v(951)-v&
&(1492)*v(952))
v(1552)=(v(1505)+v(1463)*v(2980))*v(2984)+v(1528)*v(2987)+v(2983)*(v(1501)*v(951)+(v(1000)*v(1430)+v(1446)-v(1004)*v&
&(1451)+v(1499)-v(2986))*v(952))
v(1549)=(v(1504)+v(1462)*v(2980))*v(2984)+v(1527)*v(2987)+v(1097)*v(2988)+v(1096)*v(2989)+v(2983)*(v(1494)*v(951)+(v&
&(1000)*v(1428)+v(1004)*v(1430)-2d0*v(1437)-v(1444)-v(1448))*v(952))
v(1546)=(-v(1505)+v(1461)*v(2980))*v(2984)+v(1526)*v(2987)+v(1094)*v(2988)+v(1093)*v(2989)+v(2983)*(v(1500)*v(951)-v&
&(1501)*v(952))
v(1543)=(-v(1504)+v(1460)*v(2980))*v(2984)+v(1524)*v(2987)+v(1099)*v(2990)+v(1100)*v(2991)+v(2983)*(v(1492)*v(951)-v&
&(1494)*v(952))
v(1539)=(v(1087)*v(1087))/v(1523)+(v(1088)*v(1088))/v(1523)+v(1529)*v(2982)
v(1537)=v(1056)*v(2980)*v(2983)
v(1536)=v(1511)*v(2984)
v(1538)=-v(1536)-v(1537)+v(1528)*v(2982)+v(1087)*v(2988)-v(1088)*v(2989)
v(1534)=v(1511)*v(2983)
v(1533)=-(v(1048)*v(2980)*v(2984))
v(1535)=(v(1087)*v(1096))/v(1523)+(v(1088)*v(1097))/v(1523)-v(1533)-v(1534)+v(1527)*v(2982)
v(1532)=v(1536)+v(1537)+v(1088)*(v(1094)/v(1523)+v(1526)*v(954))+v(1087)*(v(1093)/v(1523)+v(1526)*v(956))
v(1531)=v(1533)+v(1534)+v(1088)*(v(2990)+v(1524)*v(954))+v(1087)*(-v(2991)+v(1524)*v(956))
v(1103)=v(2982)/v(1523)
v(1102)=v(2992)/v(1523)
v(1101)=v(2987)/v(1523)
v(1098)=(v(1096)*v(954)-v(1097)*v(956))/v(1523)
v(1095)=v(2985)/v(1523)
v(1092)=(v(1089)*v(954)-v(1090)*v(956))/v(1523)
v(957)=datan2(-v(954),v(956))
v(2993)=dcos(v(957))
v(1571)=v(1103)*v(2993)
v(1570)=v(1102)*v(2993)
v(1569)=v(1101)*v(2993)
v(1744)=v(1056)*v(1569)
v(1568)=v(1098)*v(2993)
v(1761)=v(1056)*v(1568)
v(1721)=-(v(1048)*v(1568))
v(1567)=v(1095)*v(2993)
v(1767)=v(1056)*v(1567)
v(1757)=-(v(1049)*v(1567))
v(1566)=v(1092)*v(2993)
v(1729)=-(v(1048)*v(1566))
v(1104)=dsin(v(957))
v(1635)=v(1104)*v(1540)
v(1598)=-(v(1104)*v(1531))
v(1596)=-(v(1104)*v(1563))
v(1597)=-(v(1092)*v(1566))-v(1596)
v(1594)=v(1104)*v(1532)
v(1593)=-(v(1095)*v(1567))+v(1596)
v(1592)=-(v(1104)*v(1560))-v(1095)*v(1566)
v(1590)=-(v(1104)*v(1535))
v(1588)=-(v(1104)*v(1552))
v(1589)=-(v(1098)*v(1568))-v(1588)
v(1586)=-(v(1104)*v(1543))
v(1587)=-(v(1098)*v(1567))+v(1586)
v(1584)=-(v(1104)*v(1546))
v(1585)=-(v(1098)*v(1566))-v(1584)
v(1582)=v(1104)*v(1538)
v(1581)=-(v(1101)*v(1569))+v(1588)
v(1580)=-(v(1104)*v(1549))-v(1101)*v(1568)
v(1579)=-(v(1101)*v(1567))+v(1584)
v(1578)=-(v(1101)*v(1566))+v(1586)
v(1577)=-(v(1104)*v(1539))-v(1102)*v(1571)
v(1575)=-(v(1102)*v(1569))+v(1590)
v(1574)=-(v(1102)*v(1568))+v(1582)
v(1573)=-(v(1102)*v(1567))+v(1598)
v(1572)=-(v(1102)*v(1566))+v(1594)
v(1110)=-(v(1103)*v(1104))
v(1621)=v(1048)*v(1110)
v(1614)=v(1049)*v(1110)
v(1109)=-(v(1102)*v(1104))
v(1620)=v(1048)*v(1109)
v(1613)=v(1049)*v(1109)
v(1606)=v(1056)*v(1109)
v(1108)=-(v(1101)*v(1104))
v(1753)=v(1056)*v(1108)
v(1743)=v(1049)*v(1108)
v(1741)=v(1048)*v(1108)
v(1107)=-(v(1098)*v(1104))
v(1759)=v(1048)*v(1107)
v(1723)=v(1056)*v(1107)
v(1720)=v(1049)*v(1107)
v(1106)=-(v(1095)*v(1104))
v(1766)=v(1049)*v(1106)
v(1764)=v(1048)*v(1106)
v(1756)=v(1056)*v(1106)
v(1105)=-(v(1092)*v(1104))
v(1769)=v(1048)*v(1105)
v(1731)=v(1056)*v(1105)
v(1728)=v(1049)*v(1105)
v(958)=v(2993)
v(1711)=v(1563)*v(958)
v(1712)=v(1092)*v(1105)-v(1711)
v(1710)=v(1095)*v(1106)+v(1711)
v(1709)=v(1095)*v(1105)+v(1560)*v(958)
v(1707)=v(1552)*v(958)
v(1708)=v(1098)*v(1107)-v(1707)
v(1705)=v(1543)*v(958)
v(1706)=v(1098)*v(1106)+v(1705)
v(1703)=v(1546)*v(958)
v(1704)=v(1098)*v(1105)-v(1703)
v(1702)=v(1101)*v(1108)+v(1707)
v(1701)=v(1101)*v(1107)+v(1549)*v(958)
v(1700)=v(1101)*v(1106)+v(1703)
v(1699)=v(1101)*v(1105)+v(1705)
v(1646)=v(1540)*v(958)
v(1654)=(-(v(1102)*v(1109))+v(1646))*v(925)+(v(1102)*v(1570)-v(1635))*v(927)
v(1644)=v(1535)*v(958)
v(1645)=v(1102)*v(1108)+v(1644)
v(1642)=v(1538)*v(958)
v(1643)=v(1102)*v(1107)-v(1642)
v(1640)=v(1531)*v(958)
v(1641)=v(1102)*v(1106)+v(1640)
v(1638)=v(1532)*v(958)
v(1639)=v(1102)*v(1105)-v(1638)
v(1637)=-((v(1103)*v(1571)+v(1635))*v(925))-(v(1103)*v(1110)+v(1646))*v(927)
v(1632)=v(1103)*v(1109)+v(1539)*v(958)
v(1655)=-(v(1632)*v(925))-v(1577)*v(927)
v(1679)=v(1655)*v(944)
v(1673)=v(1004)*v(1655)
v(1666)=v(1655)*v(945)
v(1633)=v(1577)*v(925)-v(1632)*v(927)
v(2927)=v(1633)*v(945)
v(2919)=v(1004)*v(1633)
v(2911)=v(1633)*v(944)
v(1698)=v(1633)*v(946)
v(1692)=v(1000)*v(1633)
v(1686)=v(1633)*v(947)
v(1617)=v(1470)*v(958)
v(1615)=v(1617)+v(1769)
v(1610)=v(1428)*v(958)
v(1611)=-v(1610)+v(1720)
v(1608)=v(1610)+v(1728)
v(1604)=v(1451)*v(958)
v(1602)=-(v(1430)*v(958))
v(1612)=v(1602)+v(1743)
v(1609)=-v(1602)+v(1766)
v(1601)=v(1604)+v(1756)
v(1131)=v(1056)*v(958)
v(1122)=v(1049)*v(958)
v(1119)=v(1048)*v(958)
v(1630)=v(1056)*v(1571)
v(1631)=-v(1614)-v(1630)-(v(1101)*v(1571)+v(1582))*v(925)-(v(1103)*v(1108)+v(1642))*v(927)
v(1627)=-(v(1049)*v(1571))
v(1628)=-v(1621)-v(1627)+(-(v(1098)*v(1571))+v(1590))*v(925)-(v(1103)*v(1107)+v(1644))*v(927)
v(1625)=v(1614)+v(1630)-(v(1095)*v(1571)+v(1594))*v(925)-(v(1103)*v(1106)+v(1638))*v(927)
v(1623)=v(1621)+v(1627)+(-(v(1092)*v(1571))+v(1598))*v(925)-(v(1103)*v(1105)+v(1640))*v(927)
v(1126)=v(1110)*v(925)-v(1571)*v(927)
v(1780)=-v(1126)/3d0
v(2941)=2d0*v(1780)
v(1775)=-v(2941)
v(3079)=v(1686)+v(1775)
v(1659)=v(1056)*v(1570)
v(1660)=-v(1613)-v(1659)+v(1575)*v(925)-v(1645)*v(927)
v(1696)=v(1660)*v(946)
v(1690)=v(1000)*v(1660)
v(1684)=v(1660)*v(947)
v(1657)=v(1613)+v(1659)+v(1573)*v(925)-v(1641)*v(927)
v(1694)=v(1657)*v(946)
v(1688)=v(1000)*v(1657)
v(1682)=v(1657)*v(947)
v(1652)=-(v(1049)*v(1570))
v(1658)=-v(1620)-v(1652)+v(1574)*v(925)-v(1643)*v(927)
v(2593)=v(1658)*v(947)
v(2575)=v(1000)*v(1658)
v(2557)=v(1658)*v(946)
v(1677)=v(1658)*v(944)
v(1670)=v(1004)*v(1658)
v(1663)=v(1658)*v(945)
v(1656)=v(1620)+v(1652)+v(1572)*v(925)-v(1639)*v(927)
v(2456)=v(1656)*v(947)
v(2430)=v(1000)*v(1656)
v(2404)=v(1656)*v(946)
v(1675)=v(1656)*v(944)
v(1668)=v(1004)*v(1656)
v(1661)=v(1656)*v(945)
v(1653)=-v(1606)-v(1652)-v(1645)*v(925)-v(1575)*v(927)
v(1650)=-(v(1048)*v(1570))
v(1651)=v(1613)-v(1650)-v(1643)*v(925)-v(1574)*v(927)
v(1649)=v(1606)+v(1652)-v(1641)*v(925)-v(1573)*v(927)
v(1648)=-v(1613)+v(1650)-v(1639)*v(925)-v(1572)*v(927)
v(1133)=-(v(1570)*v(925))-v(1109)*v(927)
v(1790)=-v(1133)/3d0
v(3050)=v(1780)-v(1790)
v(1785)=(2d0/3d0)*v(1133)
v(1125)=v(1109)*v(925)-v(1570)*v(927)
v(1671)=(2d0/3d0)*v(1125)
v(1685)=v(1671)+v(1655)*v(947)
v(1676)=v(1671)+v(1657)*v(944)
v(1672)=v(1004)*v(1660)+v(1671)
v(1664)=-v(1125)/3d0
v(1697)=v(1664)+v(1655)*v(946)
v(1691)=v(1000)*v(1655)+v(1664)
v(1678)=v(1664)+v(1660)*v(944)
v(1669)=v(1004)*v(1657)+v(1664)
v(1665)=v(1664)+v(1660)*v(945)
v(1662)=v(1664)+v(1657)*v(945)
v(1409)=v(1125)*v(945)
v(1405)=v(1004)*v(1125)
v(1401)=v(1125)*v(944)
v(1215)=v(1125)*v(947)
v(1209)=v(1000)*v(1125)
v(1202)=v(1125)*v(946)
v(1746)=-(v(1049)*v(1569))
v(1726)=-(v(1049)*v(1568))
v(1733)=-(v(1049)*v(1566))
v(1739)=v(1104)*v(1451)
v(1748)=-v(1612)+v(1739)-v(1743)-2d0*v(1744)+v(1581)*v(925)-v(1702)*v(927)
v(1737)=-(v(1104)*v(1430))
v(1755)=v(1604)+v(1737)-2d0*v(1746)-2d0*v(1753)-v(1702)*v(925)-v(1581)*v(927)
v(1750)=v(1737)+v(1757)
v(1762)=v(1611)-v(1750)+v(1761)-v(1764)+v(1587)*v(925)-v(1706)*v(927)
v(1758)=v(1601)+v(1750)+v(1756)+v(1757)-v(1710)*v(925)-v(1593)*v(927)
v(1754)=-v(1601)+v(1746)-v(1750)+v(1753)-v(1700)*v(925)-v(1579)*v(927)
v(1747)=-v(1611)+v(1737)-v(1741)-v(1746)-v(1761)+v(1580)*v(925)-v(1701)*v(927)
v(1736)=v(1739)+v(1767)
v(1768)=v(1609)+v(1736)+v(1766)+v(1767)+v(1593)*v(925)-v(1710)*v(927)
v(1745)=-v(1609)-v(1736)+v(1743)+v(1744)+v(1579)*v(925)-v(1700)*v(927)
v(1735)=v(1056)*v(1566)+v(1737)
v(1765)=v(1608)+v(1735)+v(1757)+v(1764)+v(1592)*v(925)-v(1709)*v(927)
v(1742)=-v(1608)-v(1735)+v(1741)+v(1746)+v(1578)*v(925)-v(1699)*v(927)
v(1717)=-(v(1104)*v(1428))
v(1763)=v(1617)+v(1717)-2d0*v(1726)-2d0*v(1759)+v(1589)*v(925)-v(1708)*v(927)
v(1749)=v(1717)+v(1733)
v(1770)=v(1615)+v(1733)+v(1749)+v(1769)+v(1597)*v(925)-v(1712)*v(927)
v(1760)=-v(1615)+v(1726)-v(1749)+v(1759)+v(1585)*v(925)-v(1704)*v(927)
v(1718)=-(v(1048)*v(1569))-v(1717)
v(1734)=-v(1612)+v(1718)-v(1731)-v(1733)-v(1699)*v(925)-v(1578)*v(927)
v(1727)=v(1612)-v(1718)-v(1723)-v(1726)-v(1701)*v(925)-v(1580)*v(927)
v(1715)=-(v(1104)*v(1470))
v(1725)=v(1611)+v(1715)+v(1720)-2d0*v(1721)-v(1708)*v(925)-v(1589)*v(927)
v(1714)=-(v(1048)*v(1567))+v(1717)
v(1732)=-v(1609)+v(1714)+v(1731)+v(1733)-v(1709)*v(925)-v(1592)*v(927)
v(1724)=v(1609)-v(1714)+v(1723)+v(1726)-v(1706)*v(925)-v(1587)*v(927)
v(1713)=v(1715)+v(1729)
v(1730)=-v(1608)+v(1713)-v(1728)+v(1729)-v(1712)*v(925)-v(1597)*v(927)
v(1722)=v(1608)-v(1713)-v(1720)+v(1721)-v(1704)*v(925)-v(1585)*v(927)
v(1129)=-(v(1048)*v(1104))
v(1130)=v(1122)-v(1129)-v(1568)*v(925)-v(1107)*v(927)
v(1788)=-v(1130)/3d0
v(1783)=(2d0/3d0)*v(1130)
v(1127)=-v(1122)+v(1129)-v(1566)*v(925)-v(1105)*v(927)
v(1786)=-v(1127)/3d0
v(1781)=(2d0/3d0)*v(1127)
v(1123)=v(1056)*v(1104)
v(1124)=-v(1122)-v(1123)+v(1108)*v(925)-v(1569)*v(927)
v(1779)=-v(1124)/3d0
v(3046)=v(1690)+v(1779)
v(3044)=v(1696)+v(1779)
v(3040)=v(1779)-v(1788)
v(2883)=2d0*v(1779)
v(1774)=-v(2883)
v(3048)=v(1684)+v(1774)
v(1120)=-(v(1049)*v(1104))
v(1132)=-v(1120)-v(1131)-v(1569)*v(925)-v(1108)*v(927)
v(1789)=-v(1132)/3d0
v(2879)=(-2d0)*v(1789)
v(1784)=v(2879)
v(1128)=v(1120)+v(1131)-v(1567)*v(925)-v(1106)*v(927)
v(1787)=-v(1128)/3d0
v(1782)=(2d0/3d0)*v(1128)
v(1121)=-v(1119)-v(1120)+v(1107)*v(925)-v(1568)*v(927)
v(1778)=-v(1121)/3d0
v(3041)=v(1778)+v(1789)
v(3038)=v(1671)+v(1778)+v(2575)
v(3036)=v(1664)+v(1778)+v(2557)
v(1773)=(2d0/3d0)*v(1121)
v(3042)=v(1664)+v(1773)+v(2593)
v(1118)=v(1122)+v(1123)+v(1106)*v(925)-v(1567)*v(927)
v(1777)=-v(1118)/3d0
v(3032)=v(1688)+v(1777)
v(3030)=v(1694)+v(1777)
v(3024)=v(1777)-v(1786)
v(1772)=(2d0/3d0)*v(1118)
v(3034)=v(1682)+v(1772)
v(1117)=v(1119)+v(1120)+v(1105)*v(925)-v(1566)*v(927)
v(1776)=-v(1117)/3d0
v(3025)=v(1776)+v(1787)
v(3020)=v(1664)+v(1776)+v(2430)
v(3016)=v(1671)+v(1776)+v(2404)
v(1771)=(2d0/3d0)*v(1117)
v(3026)=v(1664)+v(1771)+v(2456)
v(960)=-(v(1104)*v(927))+v(925)*v(958)
v(1185)=(2d0/3d0)*v(960)
v(3059)=v(1185)+v(1215)
v(1180)=-v(960)/3d0
v(3055)=v(1180)+v(1209)
v(3051)=v(1180)+v(1202)
v(961)=-(v(1104)*v(925))-v(927)*v(958)
v(1205)=(2d0/3d0)*v(961)
v(1200)=-v(961)/3d0
v(962)=v(2994)
v(3000)=-(ug(3)/v(962))
v(2999)=1d0/v(962)
v(1805)=dcos(v(962))
v(2995)=v(1414)*v(1805)
v(1849)=v(2995)*v(3000)
v(1806)=v(2995)
v(1795)=1d0/v(962)**3
v(1799)=4d0*v(1414)*v(1795)
v(1798)=v(1799)*v(963)
v(1796)=-v(1799)/2d0
v(1141)=v(962)/2d0
v(1792)=dcos(v(1141))
v(1801)=-(v(1792)*v(1802))
v(1793)=v(1791)*v(1792)
v(1142)=dsin(v(1141))
v(2997)=2d0*v(1142)
v(1794)=v(1793)*v(2997)
v(1140)=(v(1142)*v(1142))
v(1137)=1d0/v(962)**2
v(2996)=(-2d0)*v(1137)
v(1811)=v(1137)*v(1142)*v(1801)
v(1809)=v(1137)*v(2998)
v(1808)=v(1794)*v(2996)
v(1139)=v(1140)*v(2996)
v(1804)=2d0*v(1139)+2d0*v(1794)*v(1798)+v(1040)*((-2d0)*v(1140)*v(1796)+v(1808))+v(1137)*(v(1793)*v(1801)-v(1040)*v&
&(1414)*v(1792)*v(2997))+v(1140)*(v(1040)*v(1799)+v(1137)*v(1791)*v(1802)-(12d0*(v(1414)*v(1414))*v(963))/v(962)**4)
v(1143)=v(1040)*v(1139)+v(1140)*v(1798)+v(1811)
v(1877)=ri1(2,2)*v(1143)
v(1878)=-(ri1(1,2)*v(1849))+v(1877)
v(1895)=-(v(1125)*v(1878))
v(1868)=ri1(2,1)*v(1143)
v(1869)=-(ri1(1,1)*v(1849))+v(1868)
v(1872)=-(v(1125)*v(1869))
v(1859)=ri1(1,2)*v(1143)
v(1860)=ri1(2,2)*v(1849)+v(1859)
v(3063)=v(1860)-v(1869)
v(1863)=v(1125)*v(1860)
v(1850)=ri1(1,1)*v(1143)
v(1851)=ri1(2,1)*v(1849)+v(1850)
v(3064)=v(1851)+v(1878)
v(1854)=v(1125)*v(1851)
v(3068)=v(1854)-v(1895)
v(1136)=dsin(v(962))
v(1812)=(-2d0)*v(1808)-v(1811)+v(1136)*v(1796)*v(2998)+v(1806)*(2d0*v(1809)-2d0*v(2999))
v(1816)=ri1(1,1)*v(1804)+ri1(2,1)*v(1812)
v(1815)=ri1(1,2)*v(1804)+ri1(2,2)*v(1812)
v(1814)=ri1(2,1)*v(1804)-ri1(1,1)*v(1812)
v(3065)=-v(1814)+v(1815)
v(1813)=ri1(2,2)*v(1804)-ri1(1,2)*v(1812)
v(3066)=v(1813)+v(1816)
v(1138)=v(1849)+v(1136)*(v(1809)-v(2999))
v(1147)=-(ri1(1,2)*v(1138))+v(1877)
v(1847)=v(1125)*v(1147)
v(1146)=-(ri1(1,1)*v(1138))+v(1868)
v(1845)=v(1125)*v(1146)
v(1145)=ri1(2,2)*v(1138)+v(1859)
v(3052)=v(1145)-v(1146)
v(1843)=v(1125)*v(1145)
v(1144)=ri1(2,1)*v(1138)+v(1850)
v(3053)=v(1144)+v(1147)
v(1841)=v(1125)*v(1144)
v(3067)=v(1841)+v(1847)
v(966)=v(1136)*v(3000)
v(965)=1d0+v(1139)*v(963)
v(964)=ri1(1,1)*v(965)+ri1(2,1)*v(966)
v(1858)=v(1633)*v(964)
v(1857)=v(1655)*v(964)
v(1856)=v(1660)*v(964)
v(1855)=v(1658)*v(964)
v(1853)=v(1657)*v(964)
v(1852)=v(1656)*v(964)
v(1246)=v(1125)*v(964)
v(967)=ri1(1,2)*v(965)+ri1(2,2)*v(966)
v(1867)=v(1633)*v(967)
v(1866)=v(1655)*v(967)
v(1865)=v(1660)*v(967)
v(1864)=v(1658)*v(967)
v(1862)=v(1657)*v(967)
v(1861)=v(1656)*v(967)
v(1244)=v(1125)*v(967)
v(968)=ri1(2,1)*v(965)-ri1(1,1)*v(966)
v(3018)=-v(967)+v(968)
v(1876)=-(v(1633)*v(968))
v(1875)=-(v(1655)*v(968))
v(1874)=-(v(1660)*v(968))
v(1873)=-(v(1658)*v(968))
v(1871)=-(v(1657)*v(968))
v(1870)=-(v(1656)*v(968))
v(1242)=-(v(1125)*v(968))
v(969)=ri1(2,2)*v(965)-ri1(1,2)*v(966)
v(3017)=v(964)+v(969)
v(1899)=v(1633)*v(969)
v(3070)=v(1858)+v(1899)
v(1898)=-(v(1655)*v(969))
v(3069)=v(1857)-v(1898)
v(1897)=-(v(1660)*v(969))
v(3045)=v(1856)-v(1897)
v(1896)=-(v(1658)*v(969))
v(3037)=v(1855)-v(1896)
v(1894)=-(v(1657)*v(969))
v(3031)=v(1853)-v(1894)
v(1893)=-(v(1656)*v(969))
v(3019)=v(1852)-v(1893)
v(1240)=-(v(1125)*v(969))
v(3054)=-v(1240)+v(1246)
v(970)=v(3001)
v(3007)=-(ug(6)/v(970))
v(3006)=1d0/v(970)
v(2008)=dcos(v(970))
v(3002)=v(1416)*v(2008)
v(2052)=v(3002)*v(3007)
v(2009)=v(3002)
v(1998)=1d0/v(970)**3
v(2002)=4d0*v(1416)*v(1998)
v(2001)=v(2002)*v(971)
v(1999)=-v(2002)/2d0
v(1155)=v(970)/2d0
v(1995)=dcos(v(1155))
v(2004)=-(v(1995)*v(2005))
v(1996)=v(1994)*v(1995)
v(1156)=dsin(v(1155))
v(3004)=2d0*v(1156)
v(1997)=v(1996)*v(3004)
v(1154)=(v(1156)*v(1156))
v(1151)=1d0/v(970)**2
v(3003)=(-2d0)*v(1151)
v(2014)=v(1151)*v(1156)*v(2004)
v(2012)=v(1151)*v(3005)
v(2011)=v(1997)*v(3003)
v(1153)=v(1154)*v(3003)
v(2007)=2d0*v(1153)+2d0*v(1997)*v(2001)+v(1041)*((-2d0)*v(1154)*v(1999)+v(2011))+v(1151)*(v(1996)*v(2004)-v(1041)*v&
&(1416)*v(1995)*v(3004))+v(1154)*(v(1041)*v(2002)+v(1151)*v(1994)*v(2005)-(12d0*(v(1416)*v(1416))*v(971))/v(970)**4)
v(1157)=v(1041)*v(1153)+v(1154)*v(2001)+v(2014)
v(2080)=ri2(2,2)*v(1157)
v(2081)=-(ri2(1,2)*v(2052))+v(2080)
v(2100)=-(v(1125)*v(2081))
v(2071)=ri2(2,1)*v(1157)
v(2072)=-(ri2(1,1)*v(2052))+v(2071)
v(2077)=-(v(1125)*v(2072))
v(2062)=ri2(1,2)*v(1157)
v(2063)=ri2(2,2)*v(2052)+v(2062)
v(3071)=v(2063)-v(2072)
v(2068)=v(1125)*v(2063)
v(2053)=ri2(1,1)*v(1157)
v(2054)=ri2(2,1)*v(2052)+v(2053)
v(3072)=v(2054)+v(2081)
v(2059)=v(1125)*v(2054)
v(3076)=v(2059)-v(2100)
v(1150)=dsin(v(970))
v(2015)=(-2d0)*v(2011)-v(2014)+v(1150)*v(1999)*v(3005)+v(2009)*(2d0*v(2012)-2d0*v(3006))
v(2019)=ri2(1,1)*v(2007)+ri2(2,1)*v(2015)
v(2018)=ri2(1,2)*v(2007)+ri2(2,2)*v(2015)
v(2017)=ri2(2,1)*v(2007)-ri2(1,1)*v(2015)
v(3073)=-v(2017)+v(2018)
v(2016)=ri2(2,2)*v(2007)-ri2(1,2)*v(2015)
v(3074)=v(2016)+v(2019)
v(1152)=v(2052)+v(1150)*(v(2012)-v(3006))
v(1161)=-(ri2(1,2)*v(1152))+v(2080)
v(2050)=v(1125)*v(1161)
v(1160)=-(ri2(1,1)*v(1152))+v(2071)
v(2048)=v(1125)*v(1160)
v(1159)=ri2(2,2)*v(1152)+v(2062)
v(3056)=v(1159)-v(1160)
v(2046)=v(1125)*v(1159)
v(1158)=ri2(2,1)*v(1152)+v(2053)
v(3057)=v(1158)+v(1161)
v(2044)=v(1125)*v(1158)
v(3075)=v(2044)+v(2050)
v(974)=v(1150)*v(3007)
v(973)=1d0+v(1153)*v(971)
v(972)=ri2(1,1)*v(973)+ri2(2,1)*v(974)
v(2061)=v(1633)*v(972)
v(2060)=v(1655)*v(972)
v(2058)=v(1660)*v(972)
v(2057)=v(1658)*v(972)
v(2056)=v(1657)*v(972)
v(2055)=v(1656)*v(972)
v(1278)=v(1125)*v(972)
v(975)=ri2(1,2)*v(973)+ri2(2,2)*v(974)
v(2070)=v(1633)*v(975)
v(2069)=v(1655)*v(975)
v(2067)=v(1660)*v(975)
v(2066)=v(1658)*v(975)
v(2065)=v(1657)*v(975)
v(2064)=v(1656)*v(975)
v(1276)=v(1125)*v(975)
v(976)=ri2(2,1)*v(973)-ri2(1,1)*v(974)
v(3022)=-v(975)+v(976)
v(2079)=-(v(1633)*v(976))
v(2078)=-(v(1655)*v(976))
v(2076)=-(v(1660)*v(976))
v(2075)=-(v(1658)*v(976))
v(2074)=-(v(1657)*v(976))
v(2073)=-(v(1656)*v(976))
v(1274)=-(v(1125)*v(976))
v(977)=ri2(2,2)*v(973)-ri2(1,2)*v(974)
v(3021)=v(972)+v(977)
v(2102)=v(1633)*v(977)
v(3078)=v(2061)+v(2102)
v(2101)=-(v(1655)*v(977))
v(3077)=v(2060)-v(2101)
v(2099)=-(v(1660)*v(977))
v(3047)=v(2058)-v(2099)
v(2098)=-(v(1658)*v(977))
v(3039)=v(2057)-v(2098)
v(2097)=-(v(1657)*v(977))
v(3033)=v(2056)-v(2097)
v(2096)=-(v(1656)*v(977))
v(3023)=v(2055)-v(2096)
v(1272)=-(v(1125)*v(977))
v(3058)=-v(1272)+v(1278)
v(978)=v(3008)
v(3014)=-(ug(9)/v(978))
v(3013)=1d0/v(978)
v(2211)=dcos(v(978))
v(3009)=v(1418)*v(2211)
v(2255)=v(3009)*v(3014)
v(2212)=v(3009)
v(2201)=1d0/v(978)**3
v(2205)=4d0*v(1418)*v(2201)
v(2204)=v(2205)*v(979)
v(2202)=-v(2205)/2d0
v(1169)=v(978)/2d0
v(2198)=dcos(v(1169))
v(2207)=-(v(2198)*v(2208))
v(2199)=v(2197)*v(2198)
v(1170)=dsin(v(1169))
v(3011)=2d0*v(1170)
v(2200)=v(2199)*v(3011)
v(1168)=(v(1170)*v(1170))
v(1165)=1d0/v(978)**2
v(3010)=(-2d0)*v(1165)
v(2217)=v(1165)*v(1170)*v(2207)
v(2215)=v(1165)*v(3012)
v(2214)=v(2200)*v(3010)
v(1167)=v(1168)*v(3010)
v(2210)=2d0*v(1167)+2d0*v(2200)*v(2204)+v(1042)*((-2d0)*v(1168)*v(2202)+v(2214))+v(1165)*(v(2199)*v(2207)-v(1042)*v&
&(1418)*v(2198)*v(3011))+v(1168)*(v(1042)*v(2205)+v(1165)*v(2197)*v(2208)-(12d0*(v(1418)*v(1418))*v(979))/v(978)**4)
v(1171)=v(1042)*v(1167)+v(1168)*v(2204)+v(2217)
v(2283)=ri3(2,2)*v(1171)
v(2284)=-(ri3(1,2)*v(2255))+v(2283)
v(2305)=-(v(1125)*v(2284))
v(2274)=ri3(2,1)*v(1171)
v(2275)=-(ri3(1,1)*v(2255))+v(2274)
v(2282)=-(v(1125)*v(2275))
v(2265)=ri3(1,2)*v(1171)
v(2266)=ri3(2,2)*v(2255)+v(2265)
v(3080)=v(2266)-v(2275)
v(2273)=v(1125)*v(2266)
v(2256)=ri3(1,1)*v(1171)
v(2257)=ri3(2,1)*v(2255)+v(2256)
v(3081)=v(2257)+v(2284)
v(2264)=v(1125)*v(2257)
v(3083)=v(2264)-v(2305)
v(1164)=dsin(v(978))
v(2218)=(-2d0)*v(2214)-v(2217)+v(1164)*v(2202)*v(3012)+v(2212)*(2d0*v(2215)-2d0*v(3013))
v(2222)=ri3(1,1)*v(2210)+ri3(2,1)*v(2218)
v(2221)=ri3(1,2)*v(2210)+ri3(2,2)*v(2218)
v(2220)=ri3(2,1)*v(2210)-ri3(1,1)*v(2218)
v(3086)=-v(2220)+v(2221)
v(2219)=ri3(2,2)*v(2210)-ri3(1,2)*v(2218)
v(3087)=v(2219)+v(2222)
v(1166)=v(2255)+v(1164)*(v(2215)-v(3013))
v(1175)=-(ri3(1,2)*v(1166))+v(2283)
v(2251)=v(1125)*v(1175)
v(1174)=-(ri3(1,1)*v(1166))+v(2274)
v(2249)=v(1125)*v(1174)
v(1173)=ri3(2,2)*v(1166)+v(2265)
v(3061)=v(1173)-v(1174)
v(2247)=v(1125)*v(1173)
v(1172)=ri3(2,1)*v(1166)+v(2256)
v(3062)=v(1172)+v(1175)
v(2245)=v(1125)*v(1172)
v(3085)=v(2245)+v(2251)
v(982)=v(1164)*v(3014)
v(981)=1d0+v(1167)*v(979)
v(980)=ri3(1,1)*v(981)+ri3(2,1)*v(982)
v(2263)=v(1633)*v(980)
v(2262)=v(1655)*v(980)
v(2261)=v(1660)*v(980)
v(2260)=v(1658)*v(980)
v(2259)=v(1657)*v(980)
v(2258)=v(1656)*v(980)
v(1308)=v(1125)*v(980)
v(983)=ri3(1,2)*v(981)+ri3(2,2)*v(982)
v(2272)=v(1633)*v(983)
v(2271)=v(1655)*v(983)
v(2270)=v(1660)*v(983)
v(2269)=v(1658)*v(983)
v(2268)=v(1657)*v(983)
v(2267)=v(1656)*v(983)
v(1306)=v(1125)*v(983)
v(984)=ri3(2,1)*v(981)-ri3(1,1)*v(982)
v(3028)=-v(983)+v(984)
v(2281)=-(v(1633)*v(984))
v(2280)=-(v(1655)*v(984))
v(2279)=-(v(1660)*v(984))
v(2278)=-(v(1658)*v(984))
v(2277)=-(v(1657)*v(984))
v(2276)=-(v(1656)*v(984))
v(1304)=-(v(1125)*v(984))
v(985)=ri3(2,2)*v(981)-ri3(1,2)*v(982)
v(3027)=v(980)+v(985)
v(2304)=v(1633)*v(985)
v(3084)=v(2263)+v(2304)
v(2303)=-(v(1655)*v(985))
v(3082)=v(2262)-v(2303)
v(2302)=-(v(1660)*v(985))
v(3049)=v(2261)-v(2302)
v(2301)=-(v(1658)*v(985))
v(3043)=v(2260)-v(2301)
v(2300)=-(v(1657)*v(985))
v(3035)=v(2259)-v(2300)
v(2299)=-(v(1656)*v(985))
v(3029)=v(2258)-v(2299)
v(1302)=-(v(1125)*v(985))
v(3060)=-v(1302)+v(1308)
v(988)=-v(2977)+v(931)
v(991)=-v(2977)+v(934)
v(992)=-v(2977)
v(995)=v(3015)
v(998)=-v(996)-v(997)
v(2719)=v(1772)-v(1781)-v(1732)*v(944)+v(1765)*v(946)
v(2720)=v(1773)+v(1776)-v(1722)*v(944)+v(1760)*v(946)
v(2721)=v(1774)-v(1786)-v(1734)*v(944)+v(1742)*v(946)
v(2722)=v(3016)-v(1648)*v(944)
v(2723)=-v(1675)+v(1775)-v(1786)+v(1623)*v(946)
v(2725)=v(1771)+v(1782)+v(1765)*v(944)+v(1732)*v(946)
v(2726)=v(1783)+v(1786)+v(1760)*v(944)+v(1722)*v(946)
v(2727)=v(1776)+v(1784)+v(1742)*v(944)+v(1734)*v(946)
v(2728)=v(1675)+v(1785)+v(1786)+v(1648)*v(946)
v(2729)=v(3016)+v(1623)*v(944)
v(2731)=((v(1732)*v(3017)+v(1765)*v(3018))*v(928)+(v(1765)*v(3017)-v(1732)*v(3018))*v(930))/2d0
v(2733)=((v(1722)*v(3017)+v(1760)*v(3018))*v(928)+(v(1760)*v(3017)-v(1722)*v(3018))*v(930))/2d0
v(2734)=((v(1734)*v(3017)+v(1742)*v(3018))*v(928)+(v(1742)*v(3017)-v(1734)*v(3018))*v(930))/2d0
v(2735)=((-v(1861)-v(1870)+v(1648)*v(3017))*v(928)+(-(v(1648)*v(3018))+v(3019))*v(930))/2d0
v(2736)=((v(1623)*v(3018)+v(3019))*v(928)+(v(1861)+v(1870)+v(1623)*v(3017))*v(930))/2d0
v(2738)=-(v(1004)*v(1732))+v(1000)*v(1765)+v(3024)
v(2739)=-(v(1004)*v(1722))+v(1000)*v(1760)+v(1771)+v(1778)
v(2740)=-(v(1004)*v(1734))+v(1000)*v(1742)+v(1779)-v(1781)
v(2741)=-(v(1004)*v(1648))+v(3020)
v(2742)=v(1000)*v(1623)-v(1668)+v(1780)-v(1786)
v(2744)=v(1000)*v(1732)+v(1004)*v(1765)+v(3025)
v(2745)=v(1000)*v(1722)+v(1004)*v(1760)+v(1781)+v(1788)
v(2746)=v(1000)*v(1734)+v(1004)*v(1742)+v(1771)+v(1789)
v(2747)=v(1000)*v(1648)+v(1668)+v(1786)+v(1790)
v(2748)=v(1004)*v(1623)+v(3020)
v(2750)=((v(1732)*v(3021)+v(1765)*v(3022))*v(928)+(v(1765)*v(3021)-v(1732)*v(3022))*v(930))/2d0
v(2751)=((v(1722)*v(3021)+v(1760)*v(3022))*v(928)+(v(1760)*v(3021)-v(1722)*v(3022))*v(930))/2d0
v(2752)=((v(1734)*v(3021)+v(1742)*v(3022))*v(928)+(v(1742)*v(3021)-v(1734)*v(3022))*v(930))/2d0
v(2754)=((-v(2064)-v(2073)+v(1648)*v(3021))*v(928)+(-(v(1648)*v(3022))+v(3023))*v(930))/2d0
v(2755)=((v(1623)*v(3022)+v(3023))*v(928)+(v(2064)+v(2073)+v(1623)*v(3021))*v(930))/2d0
v(2757)=v(3024)-v(1732)*v(945)+v(1765)*v(947)
v(2758)=v(1776)+v(1778)-v(1722)*v(945)+v(1760)*v(947)
v(2759)=v(1779)-v(1786)-v(1734)*v(945)+v(1742)*v(947)
v(2760)=v(3026)-v(1648)*v(945)
v(2761)=-v(1661)+v(1780)-v(1781)+v(1623)*v(947)
v(2763)=v(3025)+v(1765)*v(945)+v(1732)*v(947)
v(2764)=v(1786)+v(1788)+v(1760)*v(945)+v(1722)*v(947)
v(2765)=v(1776)+v(1789)+v(1742)*v(945)+v(1734)*v(947)
v(2766)=v(1661)+v(1781)+v(1790)+v(1648)*v(947)
v(2767)=v(3026)+v(1623)*v(945)
v(2769)=((v(1732)*v(3027)+v(1765)*v(3028))*v(928)+(v(1765)*v(3027)-v(1732)*v(3028))*v(930))/2d0
v(2770)=((v(1722)*v(3027)+v(1760)*v(3028))*v(928)+(v(1760)*v(3027)-v(1722)*v(3028))*v(930))/2d0
v(2771)=((v(1734)*v(3027)+v(1742)*v(3028))*v(928)+(v(1742)*v(3027)-v(1734)*v(3028))*v(930))/2d0
v(2772)=((-v(2267)-v(2276)+v(1648)*v(3027))*v(928)+(-(v(1648)*v(3028))+v(3029))*v(930))/2d0
v(2773)=((v(1623)*v(3028)+v(3029))*v(928)+(v(2267)+v(2276)+v(1623)*v(3027))*v(930))/2d0
v(2776)=v(1777)-v(1783)-v(1724)*v(944)+v(1762)*v(946)
v(2777)=-v(1784)-v(1787)-v(1754)*v(944)+v(1745)*v(946)
v(2778)=-v(1785)+v(3030)-v(1649)*v(944)
v(2779)=-v(1676)-v(1787)+v(1625)*v(946)
v(2781)=v(1773)+v(1787)+v(1762)*v(944)+v(1724)*v(946)
v(2782)=v(1774)+v(1777)+v(1745)*v(944)+v(1754)*v(946)
v(2783)=v(1676)+v(1787)+v(1649)*v(946)
v(2784)=v(1775)+v(3030)+v(1625)*v(944)
v(2787)=((v(1724)*v(3017)+v(1762)*v(3018))*v(928)+(v(1762)*v(3017)-v(1724)*v(3018))*v(930))/2d0
v(2788)=((v(1754)*v(3017)+v(1745)*v(3018))*v(928)+(v(1745)*v(3017)-v(1754)*v(3018))*v(930))/2d0
v(2789)=((-v(1862)-v(1871)+v(1649)*v(3017))*v(928)+(-(v(1649)*v(3018))+v(3031))*v(930))/2d0
v(2790)=((v(1625)*v(3018)+v(3031))*v(928)+(v(1862)+v(1871)+v(1625)*v(3017))*v(930))/2d0
v(2792)=-(v(1004)*v(1724))+v(1000)*v(1762)+v(1772)-v(1788)
v(2793)=v(1000)*v(1745)-v(1004)*v(1754)-v(1782)-v(1789)
v(2794)=-(v(1004)*v(1649))-v(1790)+v(3032)
v(2795)=v(1000)*v(1625)-v(1669)-v(1787)
v(2797)=v(1000)*v(1724)+v(1004)*v(1762)+v(1778)+v(1782)
v(2798)=v(1004)*v(1745)+v(1000)*v(1754)+v(1772)+v(1779)
v(2799)=v(1000)*v(1649)+v(1669)+v(1787)
v(2800)=v(1004)*v(1625)+v(1780)+v(3032)
v(2802)=((v(1724)*v(3021)+v(1762)*v(3022))*v(928)+(v(1762)*v(3021)-v(1724)*v(3022))*v(930))/2d0
v(2803)=((v(1754)*v(3021)+v(1745)*v(3022))*v(928)+(v(1745)*v(3021)-v(1754)*v(3022))*v(930))/2d0
v(2805)=((-v(2065)-v(2074)+v(1649)*v(3021))*v(928)+(-(v(1649)*v(3022))+v(3033))*v(930))/2d0
v(2806)=((v(1625)*v(3022)+v(3033))*v(928)+(v(2065)+v(2074)+v(1625)*v(3021))*v(930))/2d0
v(2808)=v(1777)-v(1788)-v(1724)*v(945)+v(1762)*v(947)
v(2809)=-v(1787)-v(1789)-v(1754)*v(945)+v(1745)*v(947)
v(2810)=-v(1790)+v(3034)-v(1649)*v(945)
v(2811)=-v(1662)-v(1782)+v(1625)*v(947)
v(2813)=v(1778)+v(1787)+v(1762)*v(945)+v(1724)*v(947)
v(2814)=v(1777)+v(1779)+v(1745)*v(945)+v(1754)*v(947)
v(2815)=v(1662)+v(1782)+v(1649)*v(947)
v(2816)=v(1780)+v(3034)+v(1625)*v(945)
v(2818)=((v(1724)*v(3027)+v(1762)*v(3028))*v(928)+(v(1762)*v(3027)-v(1724)*v(3028))*v(930))/2d0
v(2819)=((v(1754)*v(3027)+v(1745)*v(3028))*v(928)+(v(1745)*v(3027)-v(1754)*v(3028))*v(930))/2d0
v(2820)=((-v(2268)-v(2277)+v(1649)*v(3027))*v(928)+(-(v(1649)*v(3028))+v(3035))*v(930))/2d0
v(2821)=((v(1625)*v(3028)+v(3035))*v(928)+(v(2268)+v(2277)+v(1625)*v(3027))*v(930))/2d0
v(2831)=v(3040)-v(1727)*v(944)+v(1747)*v(946)
v(2832)=v(3036)-v(1651)*v(944)
v(2833)=-v(1677)+v(1780)-v(1788)+v(1628)*v(946)
v(2835)=v(3041)+v(1747)*v(944)+v(1727)*v(946)
v(2836)=v(1677)+v(1788)+v(1790)+v(1651)*v(946)
v(2837)=v(3036)+v(1628)*v(944)
v(2840)=((v(1727)*v(3017)+v(1747)*v(3018))*v(928)+(v(1747)*v(3017)-v(1727)*v(3018))*v(930))/2d0
v(2841)=((-v(1864)-v(1873)+v(1651)*v(3017))*v(928)+(-(v(1651)*v(3018))+v(3037))*v(930))/2d0
v(2842)=((v(1628)*v(3018)+v(3037))*v(928)+(v(1864)+v(1873)+v(1628)*v(3017))*v(930))/2d0
v(2844)=-(v(1004)*v(1727))+v(1000)*v(1747)+v(1774)-v(1783)
v(2845)=-(v(1004)*v(1651))+v(3038)
v(2846)=v(1000)*v(1628)-v(1670)+v(1775)-v(1788)
v(2848)=v(1000)*v(1727)+v(1004)*v(1747)+v(1773)+v(1784)
v(2849)=v(1000)*v(1651)+v(1670)+v(1785)+v(1788)
v(2850)=v(1004)*v(1628)+v(3038)
v(2852)=((v(1727)*v(3021)+v(1747)*v(3022))*v(928)+(v(1747)*v(3021)-v(1727)*v(3022))*v(930))/2d0
v(2854)=((-v(2066)-v(2075)+v(1651)*v(3021))*v(928)+(-(v(1651)*v(3022))+v(3039))*v(930))/2d0
v(2855)=((v(1628)*v(3022)+v(3039))*v(928)+(v(2066)+v(2075)+v(1628)*v(3021))*v(930))/2d0
v(2857)=v(3040)-v(1727)*v(945)+v(1747)*v(947)
v(2858)=v(3042)-v(1651)*v(945)
v(2859)=-v(1663)+v(1780)-v(1783)+v(1628)*v(947)
v(2861)=v(3041)+v(1747)*v(945)+v(1727)*v(947)
v(2862)=v(1663)+v(1783)+v(1790)+v(1651)*v(947)
v(2863)=v(3042)+v(1628)*v(945)
v(2865)=((v(1727)*v(3027)+v(1747)*v(3028))*v(928)+(v(1747)*v(3027)-v(1727)*v(3028))*v(930))/2d0
v(2866)=((-v(2269)-v(2278)+v(1651)*v(3027))*v(928)+(-(v(1651)*v(3028))+v(3043))*v(930))/2d0
v(2867)=((v(1628)*v(3028)+v(3043))*v(928)+(v(2269)+v(2278)+v(1628)*v(3027))*v(930))/2d0
v(2870)=-v(1790)+v(3044)-v(1653)*v(944)
v(2871)=-v(1678)-v(1789)+v(1631)*v(946)
v(2873)=v(1678)+v(1789)+v(1653)*v(946)
v(2874)=v(1780)+v(3044)+v(1631)*v(944)
v(2877)=((-v(1865)-v(1874)+v(1653)*v(3017))*v(928)+(-(v(1653)*v(3018))+v(3045))*v(930))/2d0
v(2878)=((v(1631)*v(3018)+v(3045))*v(928)+(v(1865)+v(1874)+v(1631)*v(3017))*v(930))/2d0
v(2881)=-(v(1004)*v(1653))-v(1785)+v(3046)
v(2882)=v(1000)*v(1631)-v(1672)-v(1789)
v(2885)=v(1000)*v(1653)+v(1672)+v(1789)
v(2886)=v(1004)*v(1631)+v(1775)+v(3046)
v(2889)=((-v(2067)-v(2076)+v(1653)*v(3021))*v(928)+(-(v(1653)*v(3022))+v(3047))*v(930))/2d0
v(2890)=((v(1631)*v(3022)+v(3047))*v(928)+(v(2067)+v(2076)+v(1631)*v(3021))*v(930))/2d0
v(2892)=-v(1790)+v(3048)-v(1653)*v(945)
v(2893)=-v(1665)-v(1784)+v(1631)*v(947)
v(2895)=v(1665)+v(1784)+v(1653)*v(947)
v(2896)=v(1780)+v(3048)+v(1631)*v(945)
v(2898)=((-v(2270)-v(2279)+v(1653)*v(3027))*v(928)+(-(v(1653)*v(3028))+v(3049))*v(930))/2d0
v(2899)=((v(1631)*v(3028)+v(3049))*v(928)+(v(2270)+v(2279)+v(1631)*v(3027))*v(930))/2d0
v(2909)=-v(1679)+v(1698)+v(3050)
v(2912)=v(1664)+v(1697)+v(2911)
v(2915)=((-v(1867)-v(1876)+v(3069))*v(928)+(v(1866)+v(1875)+v(3070))*v(930))/2d0
v(2917)=-v(1673)+v(1692)+v(3050)
v(2920)=v(1664)+v(1691)+v(2919)
v(2923)=((-v(2070)-v(2079)+v(3077))*v(928)+(v(2069)+v(2078)+v(3078))*v(930))/2d0
v(2925)=-v(1666)-v(1785)+v(3079)
v(2928)=v(1671)+v(1685)+v(2927)
v(2930)=((-v(2272)-v(2281)+v(3082))*v(928)+(v(2271)+v(2280)+v(3084))*v(930))/2d0
xl(1)=v(988)
xl(2)=v(995)
xl(3)=v(991)
xl(4)=v(995)
xl(5)=v(992)
xl(6)=v(998)
ri1(1,1)=v(964)
ri1(1,2)=v(967)
ri1(2,1)=v(968)
ri1(2,2)=v(969)
ri2(1,1)=v(972)
ri2(1,2)=v(975)
ri2(2,1)=v(976)
ri2(2,2)=v(977)
ri3(1,1)=v(980)
ri3(1,2)=v(983)
ri3(2,1)=v(984)
ri3(2,2)=v(985)
ro(1,1)=v(928)
ro(1,2)=-v(930)
ro(2,1)=v(930)
ro(2,2)=v(928)
ul(1)=v(946)*v(960)-v(944)*v(961)-v(988)
ul(2)=v(944)*v(960)+v(946)*v(961)-v(995)
ul(3)=(v(928)*(v(3018)*v(960)+v(3017)*v(961))+v(930)*(v(3017)*v(960)-v(3018)*v(961)))/2d0
ul(4)=v(1000)*v(960)-v(1004)*v(961)-v(991)
ul(5)=v(1004)*v(960)+v(1000)*v(961)-v(995)
ul(6)=(v(928)*(v(3022)*v(960)+v(3021)*v(961))+v(930)*(v(3021)*v(960)-v(3022)*v(961)))/2d0
ul(7)=v(947)*v(960)-v(945)*v(961)-v(992)
ul(8)=v(945)*v(960)+v(947)*v(961)-v(998)
ul(9)=(v(928)*(v(3028)*v(960)+v(3027)*v(961))+v(930)*(v(3027)*v(960)-v(3028)*v(961)))/2d0
dl(1,1)=v(1185)-v(1127)*v(944)+v(1117)*v(946)
dl(1,2)=-v(1205)-v(1128)*v(944)+v(1118)*v(946)
dl(1,3)=0d0
dl(1,4)=v(1180)-v(1130)*v(944)+v(1121)*v(946)
dl(1,5)=-v(1200)-v(1132)*v(944)+v(1124)*v(946)
dl(1,6)=0d0
dl(1,7)=v(3051)-v(1133)*v(944)
dl(1,8)=-v(1200)-v(1401)+v(1126)*v(946)
dl(1,9)=0d0
dl(2,1)=v(1205)+v(1117)*v(944)+v(1127)*v(946)
dl(2,2)=v(1185)+v(1118)*v(944)+v(1128)*v(946)
dl(2,3)=0d0
dl(2,4)=v(1200)+v(1121)*v(944)+v(1130)*v(946)
dl(2,5)=v(1180)+v(1124)*v(944)+v(1132)*v(946)
dl(2,6)=0d0
dl(2,7)=v(1200)+v(1401)+v(1133)*v(946)
dl(2,8)=v(3051)+v(1126)*v(944)
dl(2,9)=0d0
dl(3,1)=((v(1127)*v(3017)+v(1117)*v(3018))*v(928)+(v(1117)*v(3017)-v(1127)*v(3018))*v(930))/2d0
dl(3,2)=((v(1128)*v(3017)+v(1118)*v(3018))*v(928)+(v(1118)*v(3017)-v(1128)*v(3018))*v(930))/2d0
dl(3,3)=(v(930)*(v(3053)*v(960)+v(3052)*v(961))+v(928)*(-(v(3052)*v(960))+v(3053)*v(961)))/2d0
dl(3,4)=((v(1130)*v(3017)+v(1121)*v(3018))*v(928)+(v(1121)*v(3017)-v(1130)*v(3018))*v(930))/2d0
dl(3,5)=((v(1132)*v(3017)+v(1124)*v(3018))*v(928)+(v(1124)*v(3017)-v(1132)*v(3018))*v(930))/2d0
dl(3,6)=0d0
dl(3,7)=((-v(1242)-v(1244)+v(1133)*v(3017))*v(928)+(-(v(1133)*v(3018))+v(3054))*v(930))/2d0
dl(3,8)=((v(1126)*v(3018)+v(3054))*v(928)+(v(1242)+v(1244)+v(1126)*v(3017))*v(930))/2d0
dl(3,9)=0d0
dl(4,1)=v(1000)*v(1117)-v(1004)*v(1127)+v(1180)
dl(4,2)=v(1000)*v(1118)-v(1004)*v(1128)-v(1200)
dl(4,3)=0d0
dl(4,4)=v(1000)*v(1121)-v(1004)*v(1130)+v(1185)
dl(4,5)=v(1000)*v(1124)-v(1004)*v(1132)-v(1205)
dl(4,6)=0d0
dl(4,7)=-(v(1004)*v(1133))+v(3055)
dl(4,8)=v(1000)*v(1126)-v(1200)-v(1405)
dl(4,9)=0d0
dl(5,1)=v(1004)*v(1117)+v(1000)*v(1127)+v(1200)
dl(5,2)=v(1004)*v(1118)+v(1000)*v(1128)+v(1180)
dl(5,3)=0d0
dl(5,4)=v(1004)*v(1121)+v(1000)*v(1130)+v(1205)
dl(5,5)=v(1004)*v(1124)+v(1000)*v(1132)+v(1185)
dl(5,6)=0d0
dl(5,7)=v(1000)*v(1133)+v(1200)+v(1405)
dl(5,8)=v(1004)*v(1126)+v(3055)
dl(5,9)=0d0
dl(6,1)=((v(1127)*v(3021)+v(1117)*v(3022))*v(928)+(v(1117)*v(3021)-v(1127)*v(3022))*v(930))/2d0
dl(6,2)=((v(1128)*v(3021)+v(1118)*v(3022))*v(928)+(v(1118)*v(3021)-v(1128)*v(3022))*v(930))/2d0
dl(6,3)=0d0
dl(6,4)=((v(1130)*v(3021)+v(1121)*v(3022))*v(928)+(v(1121)*v(3021)-v(1130)*v(3022))*v(930))/2d0
dl(6,5)=((v(1132)*v(3021)+v(1124)*v(3022))*v(928)+(v(1124)*v(3021)-v(1132)*v(3022))*v(930))/2d0
dl(6,6)=(v(930)*(v(3057)*v(960)+v(3056)*v(961))+v(928)*(-(v(3056)*v(960))+v(3057)*v(961)))/2d0
dl(6,7)=((-v(1274)-v(1276)+v(1133)*v(3021))*v(928)+(-(v(1133)*v(3022))+v(3058))*v(930))/2d0
dl(6,8)=((v(1126)*v(3022)+v(3058))*v(928)+(v(1274)+v(1276)+v(1126)*v(3021))*v(930))/2d0
dl(6,9)=0d0
dl(7,1)=v(1180)-v(1127)*v(945)+v(1117)*v(947)
dl(7,2)=-v(1200)-v(1128)*v(945)+v(1118)*v(947)
dl(7,3)=0d0
dl(7,4)=v(1180)-v(1130)*v(945)+v(1121)*v(947)
dl(7,5)=-v(1200)-v(1132)*v(945)+v(1124)*v(947)
dl(7,6)=0d0
dl(7,7)=v(3059)-v(1133)*v(945)
dl(7,8)=-v(1205)-v(1409)+v(1126)*v(947)
dl(7,9)=0d0
dl(8,1)=v(1200)+v(1117)*v(945)+v(1127)*v(947)
dl(8,2)=v(1180)+v(1118)*v(945)+v(1128)*v(947)
dl(8,3)=0d0
dl(8,4)=v(1200)+v(1121)*v(945)+v(1130)*v(947)
dl(8,5)=v(1180)+v(1124)*v(945)+v(1132)*v(947)
dl(8,6)=0d0
dl(8,7)=v(1205)+v(1409)+v(1133)*v(947)
dl(8,8)=v(3059)+v(1126)*v(945)
dl(8,9)=0d0
dl(9,1)=((v(1127)*v(3027)+v(1117)*v(3028))*v(928)+(v(1117)*v(3027)-v(1127)*v(3028))*v(930))/2d0
dl(9,2)=((v(1128)*v(3027)+v(1118)*v(3028))*v(928)+(v(1118)*v(3027)-v(1128)*v(3028))*v(930))/2d0
dl(9,3)=0d0
dl(9,4)=((v(1130)*v(3027)+v(1121)*v(3028))*v(928)+(v(1121)*v(3027)-v(1130)*v(3028))*v(930))/2d0
dl(9,5)=((v(1132)*v(3027)+v(1124)*v(3028))*v(928)+(v(1124)*v(3027)-v(1132)*v(3028))*v(930))/2d0
dl(9,6)=0d0
dl(9,7)=((-v(1304)-v(1306)+v(1133)*v(3027))*v(928)+(-(v(1133)*v(3028))+v(3060))*v(930))/2d0
dl(9,8)=((v(1126)*v(3028)+v(3060))*v(928)+(v(1304)+v(1306)+v(1126)*v(3027))*v(930))/2d0
dl(9,9)=(v(930)*(v(3062)*v(960)+v(3061)*v(961))+v(928)*(-(v(3061)*v(960))+v(3062)*v(961)))/2d0
d2l(1,1,1)=2d0*v(1771)-v(1730)*v(944)+v(1770)*v(946)
d2l(1,1,2)=v(2719)
d2l(1,1,3)=0d0
d2l(1,1,4)=v(2720)
d2l(1,1,5)=v(2721)
d2l(1,1,6)=0d0
d2l(1,1,7)=v(2722)
d2l(1,1,8)=v(2723)
d2l(1,1,9)=0d0
d2l(1,2,1)=v(2719)
d2l(1,2,2)=(-2d0)*v(1782)-v(1758)*v(944)+v(1768)*v(946)
d2l(1,2,3)=0d0
d2l(1,2,4)=v(2776)
d2l(1,2,5)=v(2777)
d2l(1,2,6)=0d0
d2l(1,2,7)=v(2778)
d2l(1,2,8)=v(2779)
d2l(1,2,9)=0d0
d2l(1,3,1)=0d0
d2l(1,3,2)=0d0
d2l(1,3,3)=0d0
d2l(1,3,4)=0d0
d2l(1,3,5)=0d0
d2l(1,3,6)=0d0
d2l(1,3,7)=0d0
d2l(1,3,8)=0d0
d2l(1,3,9)=0d0
d2l(1,4,1)=v(2720)
d2l(1,4,2)=v(2776)
d2l(1,4,3)=0d0
d2l(1,4,4)=-v(1773)-v(1725)*v(944)+v(1763)*v(946)
d2l(1,4,5)=v(2831)
d2l(1,4,6)=0d0
d2l(1,4,7)=v(2832)
d2l(1,4,8)=v(2833)
d2l(1,4,9)=0d0
d2l(1,5,1)=v(2721)
d2l(1,5,2)=v(2777)
d2l(1,5,3)=0d0
d2l(1,5,4)=v(2831)
d2l(1,5,5)=v(2879)-v(1755)*v(944)+v(1748)*v(946)
d2l(1,5,6)=0d0
d2l(1,5,7)=v(2870)
d2l(1,5,8)=v(2871)
d2l(1,5,9)=0d0
d2l(1,6,1)=0d0
d2l(1,6,2)=0d0
d2l(1,6,3)=0d0
d2l(1,6,4)=0d0
d2l(1,6,5)=0d0
d2l(1,6,6)=0d0
d2l(1,6,7)=0d0
d2l(1,6,8)=0d0
d2l(1,6,9)=0d0
d2l(1,7,1)=v(2722)
d2l(1,7,2)=v(2778)
d2l(1,7,3)=0d0
d2l(1,7,4)=v(2832)
d2l(1,7,5)=v(2870)
d2l(1,7,6)=0d0
d2l(1,7,7)=-v(2911)+v(2912)-v(1654)*v(944)
d2l(1,7,8)=v(2909)
d2l(1,7,9)=0d0
d2l(1,8,1)=v(2723)
d2l(1,8,2)=v(2779)
d2l(1,8,3)=0d0
d2l(1,8,4)=v(2833)
d2l(1,8,5)=v(2871)
d2l(1,8,6)=0d0
d2l(1,8,7)=v(2909)
d2l(1,8,8)=v(1671)-v(2911)+v(1637)*v(946)
d2l(1,8,9)=0d0
d2l(1,9,1)=0d0
d2l(1,9,2)=0d0
d2l(1,9,3)=0d0
d2l(1,9,4)=0d0
d2l(1,9,5)=0d0
d2l(1,9,6)=0d0
d2l(1,9,7)=0d0
d2l(1,9,8)=0d0
d2l(1,9,9)=0d0
d2l(2,1,1)=2d0*v(1781)+v(1770)*v(944)+v(1730)*v(946)
d2l(2,1,2)=v(2725)
d2l(2,1,3)=0d0
d2l(2,1,4)=v(2726)
d2l(2,1,5)=v(2727)
d2l(2,1,6)=0d0
d2l(2,1,7)=v(2728)
d2l(2,1,8)=v(2729)
d2l(2,1,9)=0d0
d2l(2,2,1)=v(2725)
d2l(2,2,2)=2d0*v(1772)+v(1768)*v(944)+v(1758)*v(946)
d2l(2,2,3)=0d0
d2l(2,2,4)=v(2781)
d2l(2,2,5)=v(2782)
d2l(2,2,6)=0d0
d2l(2,2,7)=v(2783)
d2l(2,2,8)=v(2784)
d2l(2,2,9)=0d0
d2l(2,3,1)=0d0
d2l(2,3,2)=0d0
d2l(2,3,3)=0d0
d2l(2,3,4)=0d0
d2l(2,3,5)=0d0
d2l(2,3,6)=0d0
d2l(2,3,7)=0d0
d2l(2,3,8)=0d0
d2l(2,3,9)=0d0
d2l(2,4,1)=v(2726)
d2l(2,4,2)=v(2781)
d2l(2,4,3)=0d0
d2l(2,4,4)=-v(1783)+v(1763)*v(944)+v(1725)*v(946)
d2l(2,4,5)=v(2835)
d2l(2,4,6)=0d0
d2l(2,4,7)=v(2836)
d2l(2,4,8)=v(2837)
d2l(2,4,9)=0d0
d2l(2,5,1)=v(2727)
d2l(2,5,2)=v(2782)
d2l(2,5,3)=0d0
d2l(2,5,4)=v(2835)
d2l(2,5,5)=v(2883)+v(1748)*v(944)+v(1755)*v(946)
d2l(2,5,6)=0d0
d2l(2,5,7)=v(2873)
d2l(2,5,8)=v(2874)
d2l(2,5,9)=0d0
d2l(2,6,1)=0d0
d2l(2,6,2)=0d0
d2l(2,6,3)=0d0
d2l(2,6,4)=0d0
d2l(2,6,5)=0d0
d2l(2,6,6)=0d0
d2l(2,6,7)=0d0
d2l(2,6,8)=0d0
d2l(2,6,9)=0d0
d2l(2,7,1)=v(2728)
d2l(2,7,2)=v(2783)
d2l(2,7,3)=0d0
d2l(2,7,4)=v(2836)
d2l(2,7,5)=v(2873)
d2l(2,7,6)=0d0
d2l(2,7,7)=v(1679)-v(1785)+v(1654)*v(946)
d2l(2,7,8)=v(2912)
d2l(2,7,9)=0d0
d2l(2,8,1)=v(2729)
d2l(2,8,2)=v(2784)
d2l(2,8,3)=0d0
d2l(2,8,4)=v(2837)
d2l(2,8,5)=v(2874)
d2l(2,8,6)=0d0
d2l(2,8,7)=v(2912)
d2l(2,8,8)=v(1698)+v(2941)+v(1637)*v(944)
d2l(2,8,9)=0d0
d2l(2,9,1)=0d0
d2l(2,9,2)=0d0
d2l(2,9,3)=0d0
d2l(2,9,4)=0d0
d2l(2,9,5)=0d0
d2l(2,9,6)=0d0
d2l(2,9,7)=0d0
d2l(2,9,8)=0d0
d2l(2,9,9)=0d0
d2l(3,1,1)=((v(1730)*v(3017)+v(1770)*v(3018))*v(928)+(v(1770)*v(3017)-v(1730)*v(3018))*v(930))/2d0
d2l(3,1,2)=v(2731)
d2l(3,1,3)=((-(v(1117)*v(3063))+v(1127)*v(3064))*v(928)+(v(1127)*v(3063)+v(1117)*v(3064))*v(930))/2d0
d2l(3,1,4)=v(2733)
d2l(3,1,5)=v(2734)
d2l(3,1,6)=0d0
d2l(3,1,7)=v(2735)
d2l(3,1,8)=v(2736)
d2l(3,1,9)=0d0
d2l(3,2,1)=v(2731)
d2l(3,2,2)=((v(1758)*v(3017)+v(1768)*v(3018))*v(928)+(v(1768)*v(3017)-v(1758)*v(3018))*v(930))/2d0
d2l(3,2,3)=((-(v(1118)*v(3063))+v(1128)*v(3064))*v(928)+(v(1128)*v(3063)+v(1118)*v(3064))*v(930))/2d0
d2l(3,2,4)=v(2787)
d2l(3,2,5)=v(2788)
d2l(3,2,6)=0d0
d2l(3,2,7)=v(2789)
d2l(3,2,8)=v(2790)
d2l(3,2,9)=0d0
d2l(3,3,1)=((-(v(1117)*v(3052))+v(1127)*v(3053))*v(928)+(v(1127)*v(3052)+v(1117)*v(3053))*v(930))/2d0
d2l(3,3,2)=((-(v(1118)*v(3052))+v(1128)*v(3053))*v(928)+(v(1128)*v(3052)+v(1118)*v(3053))*v(930))/2d0
d2l(3,3,3)=(v(930)*(v(3066)*v(960)+v(3065)*v(961))+v(928)*(-(v(3065)*v(960))+v(3066)*v(961)))/2d0
d2l(3,3,4)=((-(v(1121)*v(3052))+v(1130)*v(3053))*v(928)+(v(1130)*v(3052)+v(1121)*v(3053))*v(930))/2d0
d2l(3,3,5)=((-(v(1124)*v(3052))+v(1132)*v(3053))*v(928)+(v(1132)*v(3052)+v(1124)*v(3053))*v(930))/2d0
d2l(3,3,6)=0d0
d2l(3,3,7)=((-v(1843)+v(1845)+v(1133)*v(3053))*v(928)+(v(1133)*v(3052)+v(3067))*v(930))/2d0
d2l(3,3,8)=((-(v(1126)*v(3052))+v(3067))*v(928)+(v(1843)-v(1845)+v(1126)*v(3053))*v(930))/2d0
d2l(3,3,9)=0d0
d2l(3,4,1)=v(2733)
d2l(3,4,2)=v(2787)
d2l(3,4,3)=((-(v(1121)*v(3063))+v(1130)*v(3064))*v(928)+(v(1130)*v(3063)+v(1121)*v(3064))*v(930))/2d0
d2l(3,4,4)=((v(1725)*v(3017)+v(1763)*v(3018))*v(928)+(v(1763)*v(3017)-v(1725)*v(3018))*v(930))/2d0
d2l(3,4,5)=v(2840)
d2l(3,4,6)=0d0
d2l(3,4,7)=v(2841)
d2l(3,4,8)=v(2842)
d2l(3,4,9)=0d0
d2l(3,5,1)=v(2734)
d2l(3,5,2)=v(2788)
d2l(3,5,3)=((-(v(1124)*v(3063))+v(1132)*v(3064))*v(928)+(v(1132)*v(3063)+v(1124)*v(3064))*v(930))/2d0
d2l(3,5,4)=v(2840)
d2l(3,5,5)=((v(1755)*v(3017)+v(1748)*v(3018))*v(928)+(v(1748)*v(3017)-v(1755)*v(3018))*v(930))/2d0
d2l(3,5,6)=0d0
d2l(3,5,7)=v(2877)
d2l(3,5,8)=v(2878)
d2l(3,5,9)=0d0
d2l(3,6,1)=0d0
d2l(3,6,2)=0d0
d2l(3,6,3)=0d0
d2l(3,6,4)=0d0
d2l(3,6,5)=0d0
d2l(3,6,6)=0d0
d2l(3,6,7)=0d0
d2l(3,6,8)=0d0
d2l(3,6,9)=0d0
d2l(3,7,1)=v(2735)
d2l(3,7,2)=v(2789)
d2l(3,7,3)=((-v(1863)-v(1872)+v(1133)*v(3064))*v(928)+(v(1133)*v(3063)+v(3068))*v(930))/2d0
d2l(3,7,4)=v(2841)
d2l(3,7,5)=v(2877)
d2l(3,7,6)=0d0
d2l(3,7,7)=((-v(1866)-v(1875)+v(1654)*v(3017))*v(928)+(-(v(1654)*v(3018))+v(3069))*v(930))/2d0
d2l(3,7,8)=v(2915)
d2l(3,7,9)=0d0
d2l(3,8,1)=v(2736)
d2l(3,8,2)=v(2790)
d2l(3,8,3)=((-(v(1126)*v(3063))+v(3068))*v(928)+(v(1863)+v(1872)+v(1126)*v(3064))*v(930))/2d0
d2l(3,8,4)=v(2842)
d2l(3,8,5)=v(2878)
d2l(3,8,6)=0d0
d2l(3,8,7)=v(2915)
d2l(3,8,8)=((v(1637)*v(3018)+v(3070))*v(928)+(v(1867)+v(1876)+v(1637)*v(3017))*v(930))/2d0
d2l(3,8,9)=0d0
d2l(3,9,1)=0d0
d2l(3,9,2)=0d0
d2l(3,9,3)=0d0
d2l(3,9,4)=0d0
d2l(3,9,5)=0d0
d2l(3,9,6)=0d0
d2l(3,9,7)=0d0
d2l(3,9,8)=0d0
d2l(3,9,9)=0d0
d2l(4,1,1)=-(v(1004)*v(1730))+v(1000)*v(1770)-v(1771)
d2l(4,1,2)=v(2738)
d2l(4,1,3)=0d0
d2l(4,1,4)=v(2739)
d2l(4,1,5)=v(2740)
d2l(4,1,6)=0d0
d2l(4,1,7)=v(2741)
d2l(4,1,8)=v(2742)
d2l(4,1,9)=0d0
d2l(4,2,1)=v(2738)
d2l(4,2,2)=-(v(1004)*v(1758))+v(1000)*v(1768)+v(1782)
d2l(4,2,3)=0d0
d2l(4,2,4)=v(2792)
d2l(4,2,5)=v(2793)
d2l(4,2,6)=0d0
d2l(4,2,7)=v(2794)
d2l(4,2,8)=v(2795)
d2l(4,2,9)=0d0
d2l(4,3,1)=0d0
d2l(4,3,2)=0d0
d2l(4,3,3)=0d0
d2l(4,3,4)=0d0
d2l(4,3,5)=0d0
d2l(4,3,6)=0d0
d2l(4,3,7)=0d0
d2l(4,3,8)=0d0
d2l(4,3,9)=0d0
d2l(4,4,1)=v(2739)
d2l(4,4,2)=v(2792)
d2l(4,4,3)=0d0
d2l(4,4,4)=-(v(1004)*v(1725))+v(1000)*v(1763)+2d0*v(1773)
d2l(4,4,5)=v(2844)
d2l(4,4,6)=0d0
d2l(4,4,7)=v(2845)
d2l(4,4,8)=v(2846)
d2l(4,4,9)=0d0
d2l(4,5,1)=v(2740)
d2l(4,5,2)=v(2793)
d2l(4,5,3)=0d0
d2l(4,5,4)=v(2844)
d2l(4,5,5)=v(1000)*v(1748)-v(1004)*v(1755)-v(1784)-v(2879)
d2l(4,5,6)=0d0
d2l(4,5,7)=v(2881)
d2l(4,5,8)=v(2882)
d2l(4,5,9)=0d0
d2l(4,6,1)=0d0
d2l(4,6,2)=0d0
d2l(4,6,3)=0d0
d2l(4,6,4)=0d0
d2l(4,6,5)=0d0
d2l(4,6,6)=0d0
d2l(4,6,7)=0d0
d2l(4,6,8)=0d0
d2l(4,6,9)=0d0
d2l(4,7,1)=v(2741)
d2l(4,7,2)=v(2794)
d2l(4,7,3)=0d0
d2l(4,7,4)=v(2845)
d2l(4,7,5)=v(2881)
d2l(4,7,6)=0d0
d2l(4,7,7)=-(v(1004)*v(1654))-v(2919)+v(2920)
d2l(4,7,8)=v(2917)
d2l(4,7,9)=0d0
d2l(4,8,1)=v(2742)
d2l(4,8,2)=v(2795)
d2l(4,8,3)=0d0
d2l(4,8,4)=v(2846)
d2l(4,8,5)=v(2882)
d2l(4,8,6)=0d0
d2l(4,8,7)=v(2917)
d2l(4,8,8)=v(1000)*v(1637)+v(1671)-v(2919)
d2l(4,8,9)=0d0
d2l(4,9,1)=0d0
d2l(4,9,2)=0d0
d2l(4,9,3)=0d0
d2l(4,9,4)=0d0
d2l(4,9,5)=0d0
d2l(4,9,6)=0d0
d2l(4,9,7)=0d0
d2l(4,9,8)=0d0
d2l(4,9,9)=0d0
d2l(5,1,1)=v(1000)*v(1730)+v(1004)*v(1770)-v(1781)
d2l(5,1,2)=v(2744)
d2l(5,1,3)=0d0
d2l(5,1,4)=v(2745)
d2l(5,1,5)=v(2746)
d2l(5,1,6)=0d0
d2l(5,1,7)=v(2747)
d2l(5,1,8)=v(2748)
d2l(5,1,9)=0d0
d2l(5,2,1)=v(2744)
d2l(5,2,2)=v(1000)*v(1758)+v(1004)*v(1768)-v(1772)
d2l(5,2,3)=0d0
d2l(5,2,4)=v(2797)
d2l(5,2,5)=v(2798)
d2l(5,2,6)=0d0
d2l(5,2,7)=v(2799)
d2l(5,2,8)=v(2800)
d2l(5,2,9)=0d0
d2l(5,3,1)=0d0
d2l(5,3,2)=0d0
d2l(5,3,3)=0d0
d2l(5,3,4)=0d0
d2l(5,3,5)=0d0
d2l(5,3,6)=0d0
d2l(5,3,7)=0d0
d2l(5,3,8)=0d0
d2l(5,3,9)=0d0
d2l(5,4,1)=v(2745)
d2l(5,4,2)=v(2797)
d2l(5,4,3)=0d0
d2l(5,4,4)=v(1000)*v(1725)+v(1004)*v(1763)+2d0*v(1783)
d2l(5,4,5)=v(2848)
d2l(5,4,6)=0d0
d2l(5,4,7)=v(2849)
d2l(5,4,8)=v(2850)
d2l(5,4,9)=0d0
d2l(5,5,1)=v(2746)
d2l(5,5,2)=v(2798)
d2l(5,5,3)=0d0
d2l(5,5,4)=v(2848)
d2l(5,5,5)=v(1004)*v(1748)+v(1000)*v(1755)+v(1774)-v(2883)
d2l(5,5,6)=0d0
d2l(5,5,7)=v(2885)
d2l(5,5,8)=v(2886)
d2l(5,5,9)=0d0
d2l(5,6,1)=0d0
d2l(5,6,2)=0d0
d2l(5,6,3)=0d0
d2l(5,6,4)=0d0
d2l(5,6,5)=0d0
d2l(5,6,6)=0d0
d2l(5,6,7)=0d0
d2l(5,6,8)=0d0
d2l(5,6,9)=0d0
d2l(5,7,1)=v(2747)
d2l(5,7,2)=v(2799)
d2l(5,7,3)=0d0
d2l(5,7,4)=v(2849)
d2l(5,7,5)=v(2885)
d2l(5,7,6)=0d0
d2l(5,7,7)=v(1000)*v(1654)+v(1673)-v(1785)
d2l(5,7,8)=v(2920)
d2l(5,7,9)=0d0
d2l(5,8,1)=v(2748)
d2l(5,8,2)=v(2800)
d2l(5,8,3)=0d0
d2l(5,8,4)=v(2850)
d2l(5,8,5)=v(2886)
d2l(5,8,6)=0d0
d2l(5,8,7)=v(2920)
d2l(5,8,8)=v(1004)*v(1637)+v(1692)+v(2941)
d2l(5,8,9)=0d0
d2l(5,9,1)=0d0
d2l(5,9,2)=0d0
d2l(5,9,3)=0d0
d2l(5,9,4)=0d0
d2l(5,9,5)=0d0
d2l(5,9,6)=0d0
d2l(5,9,7)=0d0
d2l(5,9,8)=0d0
d2l(5,9,9)=0d0
d2l(6,1,1)=((v(1730)*v(3021)+v(1770)*v(3022))*v(928)+(v(1770)*v(3021)-v(1730)*v(3022))*v(930))/2d0
d2l(6,1,2)=v(2750)
d2l(6,1,3)=0d0
d2l(6,1,4)=v(2751)
d2l(6,1,5)=v(2752)
d2l(6,1,6)=((-(v(1117)*v(3071))+v(1127)*v(3072))*v(928)+(v(1127)*v(3071)+v(1117)*v(3072))*v(930))/2d0
d2l(6,1,7)=v(2754)
d2l(6,1,8)=v(2755)
d2l(6,1,9)=0d0
d2l(6,2,1)=v(2750)
d2l(6,2,2)=((v(1758)*v(3021)+v(1768)*v(3022))*v(928)+(v(1768)*v(3021)-v(1758)*v(3022))*v(930))/2d0
d2l(6,2,3)=0d0
d2l(6,2,4)=v(2802)
d2l(6,2,5)=v(2803)
d2l(6,2,6)=((-(v(1118)*v(3071))+v(1128)*v(3072))*v(928)+(v(1128)*v(3071)+v(1118)*v(3072))*v(930))/2d0
d2l(6,2,7)=v(2805)
d2l(6,2,8)=v(2806)
d2l(6,2,9)=0d0
d2l(6,3,1)=0d0
d2l(6,3,2)=0d0
d2l(6,3,3)=0d0
d2l(6,3,4)=0d0
d2l(6,3,5)=0d0
d2l(6,3,6)=0d0
d2l(6,3,7)=0d0
d2l(6,3,8)=0d0
d2l(6,3,9)=0d0
d2l(6,4,1)=v(2751)
d2l(6,4,2)=v(2802)
d2l(6,4,3)=0d0
d2l(6,4,4)=((v(1725)*v(3021)+v(1763)*v(3022))*v(928)+(v(1763)*v(3021)-v(1725)*v(3022))*v(930))/2d0
d2l(6,4,5)=v(2852)
d2l(6,4,6)=((-(v(1121)*v(3071))+v(1130)*v(3072))*v(928)+(v(1130)*v(3071)+v(1121)*v(3072))*v(930))/2d0
d2l(6,4,7)=v(2854)
d2l(6,4,8)=v(2855)
d2l(6,4,9)=0d0
d2l(6,5,1)=v(2752)
d2l(6,5,2)=v(2803)
d2l(6,5,3)=0d0
d2l(6,5,4)=v(2852)
d2l(6,5,5)=((v(1755)*v(3021)+v(1748)*v(3022))*v(928)+(v(1748)*v(3021)-v(1755)*v(3022))*v(930))/2d0
d2l(6,5,6)=((-(v(1124)*v(3071))+v(1132)*v(3072))*v(928)+(v(1132)*v(3071)+v(1124)*v(3072))*v(930))/2d0
d2l(6,5,7)=v(2889)
d2l(6,5,8)=v(2890)
d2l(6,5,9)=0d0
d2l(6,6,1)=((-(v(1117)*v(3056))+v(1127)*v(3057))*v(928)+(v(1127)*v(3056)+v(1117)*v(3057))*v(930))/2d0
d2l(6,6,2)=((-(v(1118)*v(3056))+v(1128)*v(3057))*v(928)+(v(1128)*v(3056)+v(1118)*v(3057))*v(930))/2d0
d2l(6,6,3)=0d0
d2l(6,6,4)=((-(v(1121)*v(3056))+v(1130)*v(3057))*v(928)+(v(1130)*v(3056)+v(1121)*v(3057))*v(930))/2d0
d2l(6,6,5)=((-(v(1124)*v(3056))+v(1132)*v(3057))*v(928)+(v(1132)*v(3056)+v(1124)*v(3057))*v(930))/2d0
d2l(6,6,6)=(v(930)*(v(3074)*v(960)+v(3073)*v(961))+v(928)*(-(v(3073)*v(960))+v(3074)*v(961)))/2d0
d2l(6,6,7)=((-v(2046)+v(2048)+v(1133)*v(3057))*v(928)+(v(1133)*v(3056)+v(3075))*v(930))/2d0
d2l(6,6,8)=((-(v(1126)*v(3056))+v(3075))*v(928)+(v(2046)-v(2048)+v(1126)*v(3057))*v(930))/2d0
d2l(6,6,9)=0d0
d2l(6,7,1)=v(2754)
d2l(6,7,2)=v(2805)
d2l(6,7,3)=0d0
d2l(6,7,4)=v(2854)
d2l(6,7,5)=v(2889)
d2l(6,7,6)=((-v(2068)-v(2077)+v(1133)*v(3072))*v(928)+(v(1133)*v(3071)+v(3076))*v(930))/2d0
d2l(6,7,7)=((-v(2069)-v(2078)+v(1654)*v(3021))*v(928)+(-(v(1654)*v(3022))+v(3077))*v(930))/2d0
d2l(6,7,8)=v(2923)
d2l(6,7,9)=0d0
d2l(6,8,1)=v(2755)
d2l(6,8,2)=v(2806)
d2l(6,8,3)=0d0
d2l(6,8,4)=v(2855)
d2l(6,8,5)=v(2890)
d2l(6,8,6)=((-(v(1126)*v(3071))+v(3076))*v(928)+(v(2068)+v(2077)+v(1126)*v(3072))*v(930))/2d0
d2l(6,8,7)=v(2923)
d2l(6,8,8)=((v(1637)*v(3022)+v(3078))*v(928)+(v(2070)+v(2079)+v(1637)*v(3021))*v(930))/2d0
d2l(6,8,9)=0d0
d2l(6,9,1)=0d0
d2l(6,9,2)=0d0
d2l(6,9,3)=0d0
d2l(6,9,4)=0d0
d2l(6,9,5)=0d0
d2l(6,9,6)=0d0
d2l(6,9,7)=0d0
d2l(6,9,8)=0d0
d2l(6,9,9)=0d0
d2l(7,1,1)=-v(1771)-v(1730)*v(945)+v(1770)*v(947)
d2l(7,1,2)=v(2757)
d2l(7,1,3)=0d0
d2l(7,1,4)=v(2758)
d2l(7,1,5)=v(2759)
d2l(7,1,6)=0d0
d2l(7,1,7)=v(2760)
d2l(7,1,8)=v(2761)
d2l(7,1,9)=0d0
d2l(7,2,1)=v(2757)
d2l(7,2,2)=v(1782)-v(1758)*v(945)+v(1768)*v(947)
d2l(7,2,3)=0d0
d2l(7,2,4)=v(2808)
d2l(7,2,5)=v(2809)
d2l(7,2,6)=0d0
d2l(7,2,7)=v(2810)
d2l(7,2,8)=v(2811)
d2l(7,2,9)=0d0
d2l(7,3,1)=0d0
d2l(7,3,2)=0d0
d2l(7,3,3)=0d0
d2l(7,3,4)=0d0
d2l(7,3,5)=0d0
d2l(7,3,6)=0d0
d2l(7,3,7)=0d0
d2l(7,3,8)=0d0
d2l(7,3,9)=0d0
d2l(7,4,1)=v(2758)
d2l(7,4,2)=v(2808)
d2l(7,4,3)=0d0
d2l(7,4,4)=-v(1773)-v(1725)*v(945)+v(1763)*v(947)
d2l(7,4,5)=v(2857)
d2l(7,4,6)=0d0
d2l(7,4,7)=v(2858)
d2l(7,4,8)=v(2859)
d2l(7,4,9)=0d0
d2l(7,5,1)=v(2759)
d2l(7,5,2)=v(2809)
d2l(7,5,3)=0d0
d2l(7,5,4)=v(2857)
d2l(7,5,5)=v(2879)-v(1755)*v(945)+v(1748)*v(947)
d2l(7,5,6)=0d0
d2l(7,5,7)=v(2892)
d2l(7,5,8)=v(2893)
d2l(7,5,9)=0d0
d2l(7,6,1)=0d0
d2l(7,6,2)=0d0
d2l(7,6,3)=0d0
d2l(7,6,4)=0d0
d2l(7,6,5)=0d0
d2l(7,6,6)=0d0
d2l(7,6,7)=0d0
d2l(7,6,8)=0d0
d2l(7,6,9)=0d0
d2l(7,7,1)=v(2760)
d2l(7,7,2)=v(2810)
d2l(7,7,3)=0d0
d2l(7,7,4)=v(2858)
d2l(7,7,5)=v(2892)
d2l(7,7,6)=0d0
d2l(7,7,7)=-v(2927)+v(2928)-v(1654)*v(945)
d2l(7,7,8)=v(2925)
d2l(7,7,9)=0d0
d2l(7,8,1)=v(2761)
d2l(7,8,2)=v(2811)
d2l(7,8,3)=0d0
d2l(7,8,4)=v(2859)
d2l(7,8,5)=v(2893)
d2l(7,8,6)=0d0
d2l(7,8,7)=v(2925)
d2l(7,8,8)=(-2d0)*v(1671)-v(2927)+v(1637)*v(947)
d2l(7,8,9)=0d0
d2l(7,9,1)=0d0
d2l(7,9,2)=0d0
d2l(7,9,3)=0d0
d2l(7,9,4)=0d0
d2l(7,9,5)=0d0
d2l(7,9,6)=0d0
d2l(7,9,7)=0d0
d2l(7,9,8)=0d0
d2l(7,9,9)=0d0
d2l(8,1,1)=-v(1781)+v(1770)*v(945)+v(1730)*v(947)
d2l(8,1,2)=v(2763)
d2l(8,1,3)=0d0
d2l(8,1,4)=v(2764)
d2l(8,1,5)=v(2765)
d2l(8,1,6)=0d0
d2l(8,1,7)=v(2766)
d2l(8,1,8)=v(2767)
d2l(8,1,9)=0d0
d2l(8,2,1)=v(2763)
d2l(8,2,2)=-v(1772)+v(1768)*v(945)+v(1758)*v(947)
d2l(8,2,3)=0d0
d2l(8,2,4)=v(2813)
d2l(8,2,5)=v(2814)
d2l(8,2,6)=0d0
d2l(8,2,7)=v(2815)
d2l(8,2,8)=v(2816)
d2l(8,2,9)=0d0
d2l(8,3,1)=0d0
d2l(8,3,2)=0d0
d2l(8,3,3)=0d0
d2l(8,3,4)=0d0
d2l(8,3,5)=0d0
d2l(8,3,6)=0d0
d2l(8,3,7)=0d0
d2l(8,3,8)=0d0
d2l(8,3,9)=0d0
d2l(8,4,1)=v(2764)
d2l(8,4,2)=v(2813)
d2l(8,4,3)=0d0
d2l(8,4,4)=-v(1783)+v(1763)*v(945)+v(1725)*v(947)
d2l(8,4,5)=v(2861)
d2l(8,4,6)=0d0
d2l(8,4,7)=v(2862)
d2l(8,4,8)=v(2863)
d2l(8,4,9)=0d0
d2l(8,5,1)=v(2765)
d2l(8,5,2)=v(2814)
d2l(8,5,3)=0d0
d2l(8,5,4)=v(2861)
d2l(8,5,5)=v(2883)+v(1748)*v(945)+v(1755)*v(947)
d2l(8,5,6)=0d0
d2l(8,5,7)=v(2895)
d2l(8,5,8)=v(2896)
d2l(8,5,9)=0d0
d2l(8,6,1)=0d0
d2l(8,6,2)=0d0
d2l(8,6,3)=0d0
d2l(8,6,4)=0d0
d2l(8,6,5)=0d0
d2l(8,6,6)=0d0
d2l(8,6,7)=0d0
d2l(8,6,8)=0d0
d2l(8,6,9)=0d0
d2l(8,7,1)=v(2766)
d2l(8,7,2)=v(2815)
d2l(8,7,3)=0d0
d2l(8,7,4)=v(2862)
d2l(8,7,5)=v(2895)
d2l(8,7,6)=0d0
d2l(8,7,7)=v(1666)+2d0*v(1785)+v(1654)*v(947)
d2l(8,7,8)=v(2928)
d2l(8,7,9)=0d0
d2l(8,8,1)=v(2767)
d2l(8,8,2)=v(2816)
d2l(8,8,3)=0d0
d2l(8,8,4)=v(2863)
d2l(8,8,5)=v(2896)
d2l(8,8,6)=0d0
d2l(8,8,7)=v(2928)
d2l(8,8,8)=-v(2941)+v(3079)+v(1637)*v(945)
d2l(8,8,9)=0d0
d2l(8,9,1)=0d0
d2l(8,9,2)=0d0
d2l(8,9,3)=0d0
d2l(8,9,4)=0d0
d2l(8,9,5)=0d0
d2l(8,9,6)=0d0
d2l(8,9,7)=0d0
d2l(8,9,8)=0d0
d2l(8,9,9)=0d0
d2l(9,1,1)=((v(1730)*v(3027)+v(1770)*v(3028))*v(928)+(v(1770)*v(3027)-v(1730)*v(3028))*v(930))/2d0
d2l(9,1,2)=v(2769)
d2l(9,1,3)=0d0
d2l(9,1,4)=v(2770)
d2l(9,1,5)=v(2771)
d2l(9,1,6)=0d0
d2l(9,1,7)=v(2772)
d2l(9,1,8)=v(2773)
d2l(9,1,9)=((-(v(1117)*v(3080))+v(1127)*v(3081))*v(928)+(v(1127)*v(3080)+v(1117)*v(3081))*v(930))/2d0
d2l(9,2,1)=v(2769)
d2l(9,2,2)=((v(1758)*v(3027)+v(1768)*v(3028))*v(928)+(v(1768)*v(3027)-v(1758)*v(3028))*v(930))/2d0
d2l(9,2,3)=0d0
d2l(9,2,4)=v(2818)
d2l(9,2,5)=v(2819)
d2l(9,2,6)=0d0
d2l(9,2,7)=v(2820)
d2l(9,2,8)=v(2821)
d2l(9,2,9)=((-(v(1118)*v(3080))+v(1128)*v(3081))*v(928)+(v(1128)*v(3080)+v(1118)*v(3081))*v(930))/2d0
d2l(9,3,1)=0d0
d2l(9,3,2)=0d0
d2l(9,3,3)=0d0
d2l(9,3,4)=0d0
d2l(9,3,5)=0d0
d2l(9,3,6)=0d0
d2l(9,3,7)=0d0
d2l(9,3,8)=0d0
d2l(9,3,9)=0d0
d2l(9,4,1)=v(2770)
d2l(9,4,2)=v(2818)
d2l(9,4,3)=0d0
d2l(9,4,4)=((v(1725)*v(3027)+v(1763)*v(3028))*v(928)+(v(1763)*v(3027)-v(1725)*v(3028))*v(930))/2d0
d2l(9,4,5)=v(2865)
d2l(9,4,6)=0d0
d2l(9,4,7)=v(2866)
d2l(9,4,8)=v(2867)
d2l(9,4,9)=((-(v(1121)*v(3080))+v(1130)*v(3081))*v(928)+(v(1130)*v(3080)+v(1121)*v(3081))*v(930))/2d0
d2l(9,5,1)=v(2771)
d2l(9,5,2)=v(2819)
d2l(9,5,3)=0d0
d2l(9,5,4)=v(2865)
d2l(9,5,5)=((v(1755)*v(3027)+v(1748)*v(3028))*v(928)+(v(1748)*v(3027)-v(1755)*v(3028))*v(930))/2d0
d2l(9,5,6)=0d0
d2l(9,5,7)=v(2898)
d2l(9,5,8)=v(2899)
d2l(9,5,9)=((-(v(1124)*v(3080))+v(1132)*v(3081))*v(928)+(v(1132)*v(3080)+v(1124)*v(3081))*v(930))/2d0
d2l(9,6,1)=0d0
d2l(9,6,2)=0d0
d2l(9,6,3)=0d0
d2l(9,6,4)=0d0
d2l(9,6,5)=0d0
d2l(9,6,6)=0d0
d2l(9,6,7)=0d0
d2l(9,6,8)=0d0
d2l(9,6,9)=0d0
d2l(9,7,1)=v(2772)
d2l(9,7,2)=v(2820)
d2l(9,7,3)=0d0
d2l(9,7,4)=v(2866)
d2l(9,7,5)=v(2898)
d2l(9,7,6)=0d0
d2l(9,7,7)=((-v(2271)-v(2280)+v(1654)*v(3027))*v(928)+(-(v(1654)*v(3028))+v(3082))*v(930))/2d0
d2l(9,7,8)=v(2930)
d2l(9,7,9)=((-v(2273)-v(2282)+v(1133)*v(3081))*v(928)+(v(1133)*v(3080)+v(3083))*v(930))/2d0
d2l(9,8,1)=v(2773)
d2l(9,8,2)=v(2821)
d2l(9,8,3)=0d0
d2l(9,8,4)=v(2867)
d2l(9,8,5)=v(2899)
d2l(9,8,6)=0d0
d2l(9,8,7)=v(2930)
d2l(9,8,8)=((v(1637)*v(3028)+v(3084))*v(928)+(v(2272)+v(2281)+v(1637)*v(3027))*v(930))/2d0
d2l(9,8,9)=((-(v(1126)*v(3080))+v(3083))*v(928)+(v(2273)+v(2282)+v(1126)*v(3081))*v(930))/2d0
d2l(9,9,1)=((-(v(1117)*v(3061))+v(1127)*v(3062))*v(928)+(v(1127)*v(3061)+v(1117)*v(3062))*v(930))/2d0
d2l(9,9,2)=((-(v(1118)*v(3061))+v(1128)*v(3062))*v(928)+(v(1128)*v(3061)+v(1118)*v(3062))*v(930))/2d0
d2l(9,9,3)=0d0
d2l(9,9,4)=((-(v(1121)*v(3061))+v(1130)*v(3062))*v(928)+(v(1130)*v(3061)+v(1121)*v(3062))*v(930))/2d0
d2l(9,9,5)=((-(v(1124)*v(3061))+v(1132)*v(3062))*v(928)+(v(1132)*v(3061)+v(1124)*v(3062))*v(930))/2d0
d2l(9,9,6)=0d0
d2l(9,9,7)=((-v(2247)+v(2249)+v(1133)*v(3062))*v(928)+(v(1133)*v(3061)+v(3085))*v(930))/2d0
d2l(9,9,8)=((-(v(1126)*v(3061))+v(3085))*v(928)+(v(2247)-v(2249)+v(1126)*v(3062))*v(930))/2d0
d2l(9,9,9)=(v(930)*(v(3087)*v(960)+v(3086)*v(961))+v(928)*(-(v(3086)*v(960))+v(3087)*v(961)))/2d0
END SUBROUTINE triangcorot2d
SUBROUTINE director3dlinear(dr,t0,t,dt)
REAL(8),DIMENSION(3)::dr,t0,t
REAL(8),DIMENSION(3,3),OPTIONAL::dt
t(1)=-t0(2)*dr(3)+t0(3)*dr(2)+t0(1)
t(2)=t0(1)*dr(3)-t0(3)*dr(1)+t0(2)
t(3)=t0(2)*dr(1)-t0(1)*dr(2)+t0(3)
dt=0.0d00
dt(1,2)=t0(3)
dt(1,3)=-t0(2)
dt(2,1)=-t0(3)
dt(2,3)=t0(1)
dt(3,1)=t0(2)
dt(3,2)=-t0(1)
end SUBROUTINE director3dlinear
SUBROUTINE director3d(dr,t0,t,dt,ddt)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(5001)::v
REAL(8),DIMENSION(3)::dr,t0,t
REAL(8),DIMENSION(3,3),OPTIONAL::dt
REAL(8),DIMENSION(3,3,3),OPTIONAL::ddt
IF(rnorm2(3,dr).LE.epsmach())dr=1.0d-6
v(330)=dr(1)*dr(2)
v(329)=dr(1)*dr(3)
v(327)=dr(2)*dr(3)
v(36)=2d0*dr(1)
v(23)=dr(1)**2
v(37)=2d0*dr(2)
v(13)=dr(2)**2
v(97)=-v(13)-v(23)
v(346)=t0(3)*v(97)
v(38)=2d0*dr(3)
v(14)=dr(3)**2
v(314)=v(13)+v(14)+v(23)
v(318)=sqrt(v(314))
v(316)=1d0/v(318)
v(313)=v(316)/2d0
v(123)=v(313)*v(38)
v(333)=dr(3)*v(123)
v(133)=v(123)/2d0
v(120)=v(313)*v(37)
v(132)=v(120)/2d0
v(118)=v(314)
v(122)=-(v(120)/v(118))
v(317)=v(122)/2d0
v(126)=v(317)*v(38)
v(117)=v(313)*v(36)
v(131)=v(117)/2d0
v(119)=-(v(117)/v(118))
v(315)=v(119)/2d0
v(128)=v(315)*v(37)
v(125)=v(315)*v(38)
v(86)=-v(14)-v(23)
v(345)=t0(2)*v(86)
v(77)=-v(13)-v(14)
v(341)=t0(1)*v(77)
v(39)=v(316)
v(130)=v(315)*v(36)+v(39)
v(129)=v(317)*v(37)+v(39)
v(127)=-((v(133)*v(38))/v(118))+v(39)
v(12)=v(318)
v(338)=-(dr(1)/v(12))
v(337)=dr(2)/v(12)
v(334)=-(dr(3)/v(12))
v(319)=dsin(v(12))
v(168)=-(v(123)*v(319))
v(167)=v(120)*v(319)
v(166)=-(v(117)*v(319))
v(141)=1d0/v(12)**3
v(320)=(-2d0)*v(141)
v(148)=v(123)*v(320)
v(146)=v(117)*v(320)
v(58)=v(12)/2d0
v(134)=dcos(v(58))
v(137)=v(133)*v(134)
v(136)=v(132)*v(134)
v(135)=v(131)*v(134)
v(59)=dsin(v(58))
v(321)=(-8d0)*v(141)*v(59)
v(155)=v(137)*v(321)
v(153)=v(136)*v(321)
v(150)=v(135)*v(321)
v(57)=(v(59)*v(59))
v(143)=(12d0*v(57))/v(12)**4
v(144)=v(120)*v(143)+v(153)
v(142)=v(117)*v(143)+v(150)
v(61)=(-4d0)*v(141)*v(57)
v(47)=1d0/v(12)**2
v(339)=v(117)*v(47)
v(332)=-(dr(2)*v(47))
v(322)=2d0*v(47)
v(206)=dr(1)*v(339)
v(188)=v(333)*v(47)
v(335)=2d0*v(188)
v(152)=v(134)*v(322)
v(149)=v(322)*v(59)
v(323)=-(v(149)*v(59))
v(154)=v(136)*v(152)+v(153)+v(132)*v(323)
v(326)=v(144)+v(154)
v(151)=v(150)+v(135)*v(152)+v(131)*v(323)
v(325)=v(142)+v(151)
v(62)=v(134)*v(149)
v(324)=v(61)+v(62)
v(186)=v(123)*v(62)
v(183)=v(120)*v(62)
v(181)=v(117)*v(62)
v(162)=v(130)*v(324)+v(117)*v(325)
v(163)=v(162)*v(327)
v(161)=v(129)*v(324)+v(120)*v(326)
v(160)=v(128)*v(324)+v(120)*v(325)
v(159)=v(123)*(v(123)*v(143)+v(137)*v(152)+2d0*v(155)+v(133)*v(323))+v(127)*v(324)
v(158)=v(126)*v(324)+v(123)*v(326)
v(157)=v(125)*v(324)+v(123)*v(325)
v(64)=v(186)+v(123)*v(61)
v(282)=-(v(38)*v(64))
v(226)=dr(3)*v(64)
v(222)=dr(2)*v(64)
v(328)=2d0*v(222)
v(231)=v(161)*v(327)+v(328)
v(230)=v(159)*v(327)+v(328)
v(213)=-(v(36)*v(64))
v(210)=-v(328)
v(63)=v(183)+v(120)*v(61)
v(262)=-(v(37)*v(63))
v(220)=dr(2)*v(63)
v(60)=v(181)+v(117)*v(61)
v(340)=dr(1)*v(60)
v(243)=-(v(36)*v(60))
v(217)=dr(3)*v(60)
v(250)=-v(213)
v(238)=-v(213)
v(228)=v(250)+v(162)*v(329)
v(225)=v(238)+v(159)*v(329)
v(216)=dr(2)*v(60)
v(331)=2d0*v(216)
v(223)=v(162)*v(330)+v(331)
v(219)=v(161)*v(330)+v(331)
v(208)=-v(331)
v(165)=v(216)+v(157)*v(327)
v(164)=v(217)+v(160)*v(327)
v(65)=dr(3)*v(216)
v(44)=dcos(v(12))
v(172)=v(120)*v(166)+v(128)*v(44)
v(171)=v(123)*v(168)+v(127)*v(44)
v(169)=v(123)*v(166)+v(125)*v(44)
v(46)=v(123)*v(44)
v(185)=v(46)/v(12)
v(177)=v(332)*v(46)
v(45)=v(120)*v(44)
v(197)=-(v(45)/v(12))
v(195)=v(332)*v(45)
v(43)=v(117)*v(44)
v(205)=-(v(43)/v(12))
v(182)=v(181)+v(205)
v(18)=v(319)
v(336)=v(18)*v(47)
v(199)=dr(1)*v(151)+v(62)
v(193)=v(18)*v(333)
v(192)=dr(3)*v(336)
v(194)=(-2d0)*v(185)+2d0*v(186)+v(127)*v(192)+v(148)*v(193)+v(171)*v(334)+v(335)*v(46)
v(190)=v(182)+v(125)*v(192)+v(146)*v(193)+v(169)*v(334)+v(335)*v(43)
v(175)=v(195)-dr(2)*v(167)*v(320)-v(62)
v(174)=-(dr(2)*v(151))
v(54)=-(dr(2)*v(336))
v(198)=-v(183)+v(120)*(v(175)+v(195))-2d0*v(197)+v(337)*(-(v(120)*v(167))+v(129)*v(44))+v(129)*v(54)
v(196)=v(120)*v(174)-v(182)+v(117)*v(195)+v(172)*v(337)+v(128)*v(54)
v(180)=dr(2)*(v(148)*v(168)+v(171)/v(12))+2d0*v(123)*v(177)+v(127)*v(54)
v(179)=v(123)*v(175)+v(120)*v(177)+v(185)+v(337)*(-(v(123)*v(167))+v(126)*v(44))+v(126)*v(54)
v(178)=v(123)*v(174)+v(117)*v(177)+v(169)*v(337)+v(125)*v(54)
v(55)=dr(2)*v(185)+v(123)*v(54)
v(52)=-(v(18)/v(12))
v(56)=-(dr(3)*v(185))+v(18)*v(188)+v(52)
v(53)=-(dr(2)*v(197))-v(52)+v(120)*v(54)
v(49)=dr(1)*v(336)
v(207)=v(182)+v(117)*v(199)+v(205)+v(206)*v(43)+v(338)*(v(117)*v(166)+v(130)*v(44))+v(130)*v(49)
v(203)=v(197)+v(120)*v(199)+v(172)*v(338)+v(206)*v(45)+v(128)*v(49)
v(202)=-v(185)+v(123)*v(199)+dr(1)*(-(v(169)/v(12))+v(339)*v(46))+v(125)*v(49)
v(51)=-(dr(1)*v(185))+v(123)*v(49)
v(50)=dr(1)*v(197)+v(120)*v(49)
v(48)=dr(1)*v(205)+v(117)*v(49)+v(52)
v(16)=-v(323)
v(229)=v(16)+v(220)+v(226)+v(158)*v(327)
v(215)=v(16)+v(340)
v(224)=v(215)+v(226)+v(157)*v(329)
v(218)=v(215)+v(220)+v(160)*v(330)
v(211)=(-2d0)*v(16)
v(214)=v(211)+v(282)
v(343)=v(214)+v(282)
v(212)=v(211)+v(243)
v(344)=v(212)+v(243)
v(209)=v(211)+v(262)
v(342)=v(209)+v(262)
v(101)=-(v(16)*v(37))
v(96)=-(v(16)*v(36))
v(93)=-(v(16)*v(38))
v(73)=dr(1)*v(16)
v(74)=dr(1)*v(220)+v(73)
v(71)=dr(2)*v(16)
v(72)=dr(2)*v(340)+v(71)
v(70)=dr(1)*v(226)+v(73)
v(68)=dr(3)*v(16)
v(69)=v(329)*v(60)+v(68)
v(67)=dr(3)*v(222)+v(71)
v(66)=dr(3)*v(220)+v(68)
v(29)=dr(2)*v(68)
v(26)=dr(1)*v(68)
v(20)=dr(1)*v(71)
v(293)=t0(3)*(v(163)+v(196))+t0(2)*(-v(178)+v(218))+t0(1)*(v(208)+v(160)*v(77))
v(294)=t0(2)*(v(163)+v(190))+t0(3)*(v(178)+v(224))+t0(1)*(-v(238)+v(157)*v(77))
v(296)=t0(3)*(v(164)+v(203))+t0(1)*(v(178)+v(218))+t0(2)*(-v(331)+v(160)*v(86))
v(297)=t0(1)*(v(163)-v(190))+t0(3)*(v(165)+v(202))+t0(2)*(v(213)-v(250)+v(157)*v(86))
v(299)=t0(1)*(v(163)-v(196))+t0(2)*(v(164)-v(203))+t0(3)*(2d0*v(208)+v(160)*v(97))
v(300)=t0(2)*(v(165)-v(202))+t0(1)*(-v(178)+v(224))+t0(3)*(v(213)+v(157)*v(97))
v(302)=t0(3)*(v(165)+v(179))+t0(2)*(v(164)-v(180))+t0(1)*(2d0*v(210)+v(158)*v(77))
v(304)=t0(1)*(v(164)+v(180))+t0(3)*(-v(178)+v(229))+t0(2)*(v(210)+v(158)*v(86))
v(306)=t0(1)*(v(165)-v(179))+t0(2)*(v(178)+v(229))+t0(3)*(v(210)+v(158)*v(97))
t(1)=t0(2)*(v(168)+v(20))+t0(3)*(v(167)+v(26))+t0(1)*(1d0+v(16)*v(77))
t(2)=t0(1)*(-v(168)+v(20))+t0(3)*(v(166)+v(29))+t0(2)*(1d0+v(16)*v(86))
t(3)=t0(1)*(-v(167)+v(26))+t0(2)*(-v(166)+v(29))+t0(3)*(1d0+v(16)*v(97))
if(present(dt))then
dt(1,1)=v(341)*v(60)+t0(3)*(-v(50)+v(69))+t0(2)*(v(51)+v(72))
dt(1,2)=t0(3)*(v(53)+v(65))+t0(2)*(-v(55)+v(74))+t0(1)*(v(101)+v(63)*v(77))
dt(1,3)=t0(2)*(v(56)+v(65))+t0(3)*(v(55)+v(70))+t0(1)*(v(64)*v(77)+v(93))
dt(2,1)=t0(3)*(v(48)+v(65))+t0(1)*(-v(51)+v(72))+t0(2)*(v(60)*v(86)+v(96))
dt(2,2)=v(345)*v(63)+t0(3)*(v(50)+v(66))+t0(1)*(v(55)+v(74))
dt(2,3)=t0(1)*(-v(56)+v(65))+t0(3)*(v(51)+v(67))+t0(2)*(v(64)*v(86)+v(93))
dt(3,1)=t0(2)*(-v(48)+v(65))+t0(1)*(v(50)+v(69))+t0(3)*(v(96)+v(60)*v(97))
dt(3,2)=t0(1)*(-v(53)+v(65))+t0(2)*(-v(50)+v(66))+t0(3)*(v(101)+v(63)*v(97))
dt(3,3)=v(346)*v(64)+t0(2)*(-v(51)+v(67))+t0(1)*(-v(55)+v(70))
end if
if(present(ddt))then
ddt(1,1,1)=t0(2)*(v(202)+v(223))+t0(3)*(-v(203)+v(228))+v(162)*v(341)
ddt(1,1,2)=v(293)
ddt(1,1,3)=v(294)
ddt(1,2,1)=v(293)
ddt(1,2,2)=t0(3)*(v(164)+v(198))+t0(2)*(-v(179)+v(219))+t0(1)*(v(342)+v(161)*v(77))
ddt(1,2,3)=v(302)
ddt(1,3,1)=v(294)
ddt(1,3,2)=v(302)
ddt(1,3,3)=t0(2)*(v(165)+v(194))+t0(3)*(v(180)+v(225))+t0(1)*(v(343)+v(159)*v(77))
ddt(2,1,1)=t0(3)*(v(163)+v(207))+t0(1)*(-v(202)+v(223))+t0(2)*(v(344)+v(162)*v(86))
ddt(2,1,2)=v(296)
ddt(2,1,3)=v(297)
ddt(2,2,1)=v(296)
ddt(2,2,2)=t0(1)*(v(179)+v(219))+t0(3)*(-v(196)+v(231))+v(161)*v(345)
ddt(2,2,3)=v(304)
ddt(2,3,1)=v(297)
ddt(2,3,2)=v(304)
ddt(2,3,3)=t0(1)*(v(165)-v(194))+t0(3)*(v(190)+v(230))+t0(2)*(v(343)+v(159)*v(86))
ddt(3,1,1)=t0(2)*(v(163)-v(207))+t0(1)*(v(203)+v(228))+t0(3)*(v(344)+v(162)*v(97))
ddt(3,1,2)=v(299)
ddt(3,1,3)=v(300)
ddt(3,2,1)=v(299)
ddt(3,2,2)=t0(1)*(v(164)-v(198))+t0(2)*(v(196)+v(231))+t0(3)*(v(342)+v(161)*v(97))
ddt(3,2,3)=v(306)
ddt(3,3,1)=v(300)
ddt(3,3,2)=v(306)
ddt(3,3,3)=t0(1)*(-v(180)+v(225))+t0(2)*(-v(190)+v(230))+v(159)*v(346)
end if
END SUBROUTINE director3d
SUBROUTINE deslocshell(ffor,thick,xi3,e1,e2,e3,r1,r2,un,u)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(4)::ffor
REAL(8),DIMENSION(4,3)::e1,e2,e3
REAL(8),DIMENSION(4)::r1,r2
REAL(8),DIMENSION(3)::u
REAL(8),DIMENSION(4,3)::un
DO i=1,3
res=0.0d00
DO n=1,4
r=SQRT(r1(n)*r1(n)+r2(n)*r2(n))
IF(r.LE.1.0d-20)THEN
r=0.0d00
ELSE
r=SIN(r)/r
ENDIF
res=res+ffor(n)*un(n,i)+ffor(n)*xi3*thick*0.5d00*(e1(n,i)*r*r2(n)-e2(n,i)*r*r1(n)+e3(n,i)*(COS(r)-1.0d00))
ENDDO
u(i)=res
END DO
END SUBROUTINE deslocshell
SUBROUTINE triad(x0,e1,e2,e3)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(4,3)::e1,e2,e3,x0
REAL(8),DIMENSION(3)::yy
REAL(8),PARAMETER::small=1.0d-30
DO i=1,4
i1=ipermut(4,i)!1234
i2=ipermut(4,1+i)!2341
i3=ipermut(4,2+i)!3412
i4=ipermut(4,3+i)!4123
CALL prve3d(x0(i2,1:3)-x0(i1,1:3),x0(i4,1:3)-x0(i1,1:3),e3(i,1:3))
END DO
yy(1)=-small
yy(2)=1.0d00
yy(3)=small
CALL nrmali(3,yy)
DO i=1,4	
CALL prve3d(yy,e3(i,1:3),e1(i,1:3))
ENDDO
rs=rnorm2(3,e1(1,1:3))
IF(ABS(rs).LE.small*.1d00)THEN
yy(3)=0.0d00
yy(2)=0.0d00
yy(1)=1.0d00
DO i=1,4
CALL prve3d(yy,e3(i,1:3),e1(i,1:3))
ENDDO
ENDIF
DO i=1,4
CALL prve3d(e3(i,1:3),e1(i,1:3),e2(i,1:3))
ENDDO
DO i=1,4
CALL nrmali(3,e1(i,1:3))
CALL nrmali(3,e2(i,1:3))
CALL nrmali(3,e3(i,1:3))
ENDDO
END SUBROUTINE triad
SUBROUTINE stiff2dgen(m,n,c,t,ka)
DOUBLE PRECISION v(5001),m(2),n(2),c(3,2,2),t(3),ka(2,2)
v(16)=c(3,1,1)
v(17)=c(3,1,2)
v(18)=c(3,2,1)
v(19)=c(3,2,2)
ka(1,1)=m(1)*(n(1)*(c(1,1,1)-t(1))+n(2)*(c(1,1,2)-t(3)))+m(2)*(n(1)*v(16)+n(2)*v(17))
ka(1,2)=m(1)*(c(1,2,1)*n(1)+c(1,2,2)*n(2))+m(2)*(n(1)*(-t(1)+v(18))+n(2)*(-t(3)+v(19)))
ka(2,1)=m(2)*(c(2,1,1)*n(1)+c(2,1,2)*n(2))+m(1)*(n(1)*(-t(3)+v(16))+n(2)*(-t(2)+v(17)))
ka(2,2)=m(2)*(n(2)*(c(2,2,2)-t(2))+n(1)*(c(2,2,1)-t(3)))+m(1)*(n(1)*v(18)+n(2)*v(19))
END SUBROUTINE Stiff2dgen
SUBROUTINE stiff3dgen(m,n,c,t,ka)
IMPLICIT NONE
DOUBLE PRECISION v(5001),m(3),n(3),c(6,3,3),t(6),ka(3,3)
v(40)=c(4,1,1)
v(41)=c(4,1,2)
v(42)=c(4,1,3)
v(43)=c(4,2,1)
v(44)=c(4,2,2)
v(45)=c(4,2,3)
v(46)=c(4,3,1)
v(47)=c(4,3,2)
v(48)=c(4,3,3)
v(177)=n(1)*v(46)+n(2)*v(47)+n(3)*v(48)
v(49)=c(5,1,1)
v(50)=c(5,1,2)
v(51)=c(5,1,3)
v(52)=c(5,2,1)
v(53)=c(5,2,2)
v(54)=c(5,2,3)
v(176)=n(1)*v(52)+n(2)*v(53)+n(3)*v(54)
v(55)=c(5,3,1)
v(56)=c(5,3,2)
v(57)=c(5,3,3)
v(58)=c(6,1,1)
v(59)=c(6,1,2)
v(60)=c(6,1,3)
v(178)=n(1)*v(58)+n(2)*v(59)+n(3)*v(60)
v(61)=c(6,2,1)
v(62)=c(6,2,2)
v(63)=c(6,2,3)
v(64)=c(6,3,1)
v(65)=c(6,3,2)
v(66)=c(6,3,3)
ka(1,1)=m(1)*(n(1)*(c(1,1,1)-t(1))+n(2)*(c(1,1,2)-t(4))+n(3)*(c(1,1,3)-t(5)))+m(2)*(n(1)*v(40)+n(2)*v(41)+n(3)*v(42))+m&
&(3)*(n(1)*v(49)+n(2)*v(50)+n(3)*v(51))
ka(1,2)=m(1)*(c(1,2,1)*n(1)+c(1,2,2)*n(2)+c(1,2,3)*n(3))+m(3)*v(176)+m(2)*(n(1)*(-t(1)+v(43))+n(2)*(-t(4)+v(44))+n(3)*(&
&-t(5)+v(45)))
ka(1,3)=m(1)*(c(1,3,1)*n(1)+c(1,3,2)*n(2)+c(1,3,3)*n(3))+m(2)*v(177)+m(3)*(n(1)*(-t(1)+v(55))+n(2)*(-t(4)+v(56))+n(3)*(&
&-t(5)+v(57)))
ka(2,1)=m(2)*(c(2,1,1)*n(1)+c(2,1,2)*n(2)+c(2,1,3)*n(3))+m(3)*v(178)+m(1)*(n(1)*(-t(4)+v(40))+n(2)*(-t(2)+v(41))+n(3)*(&
&-t(6)+v(42)))
ka(2,2)=m(2)*(n(2)*(c(2,2,2)-t(2))+n(1)*(c(2,2,1)-t(4))+n(3)*(c(2,2,3)-t(6)))+m(1)*(n(1)*v(43)+n(2)*v(44)+n(3)*v(45))+m&
&(3)*(n(1)*v(61)+n(2)*v(62)+n(3)*v(63))
ka(2,3)=m(2)*(c(2,3,1)*n(1)+c(2,3,2)*n(2)+c(2,3,3)*n(3))+m(1)*v(177)+m(3)*(n(1)*(-t(4)+v(64))+n(2)*(-t(2)+v(65))+n(3)*(&
&-t(6)+v(66)))
ka(3,1)=m(3)*(c(3,1,1)*n(1)+c(3,1,2)*n(2)+c(3,1,3)*n(3))+m(2)*v(178)+m(1)*(n(1)*(-t(5)+v(49))+n(2)*(-t(6)+v(50))+n(3)*(&
&-t(3)+v(51)))
ka(3,2)=m(3)*(c(3,2,1)*n(1)+c(3,2,2)*n(2)+c(3,2,3)*n(3))+m(1)*v(176)+m(2)*(n(1)*(-t(5)+v(61))+n(2)*(-t(6)+v(62))+n(3)*(&
&-t(3)+v(63)))
ka(3,3)=m(3)*(n(3)*(c(3,3,3)-t(3))+n(1)*(c(3,3,1)-t(5))+n(2)*(c(3,3,2)-t(6)))+m(1)*(n(1)*v(55)+n(2)*v(56)+n(3)*v(57))+m&
&(2)*(n(1)*v(64)+n(2)*v(65)+n(3)*v(66))
END SUBROUTINE stiff3dgen
END MODULE elements
MODULE polygbucket
USE basfun
SAVE
PRIVATE
PUBLIC::neig_xp,neig_xn,neig_nn,neig_pp,neig_pn,neig_np,createbuck,bucketss,princompan,wprincompan
TYPE bucketss
INTEGER,DIMENSION(3)::nbd
INTEGER,DIMENSION(:),ALLOCATABLE::bn,bp,k1,k2,l1,l2
INTEGER::npoin=0
INTEGER::npoly=0
INTEGER::ntb=0
REAL(8),DIMENSION(3)::xmi,xma
REAL(8),DIMENSION(3,3)::vcp
END TYPE bucketss
CONTAINS
SUBROUTINE neig_xp(bs,x,nn,ln)
TYPE(bucketss)::bs
REAL(8),DIMENSION(3)::x,xt
INTEGER,DIMENSION(:),ALLOCATABLE::ln
INTEGER,DIMENSION(27)::iviz
DO j=1,3
xt(j)=dotprod(3,bs%vcp(1:3,j),x(1:3))
END DO
CALL extpes(nviz,nbuck(bs%xmi,bs%xma,xt,bs%nbd),iviz,bs%nbd)
nn=0
DO i=1,nviz
ib=iviz(i)
nn=bs%k2(ib+1)-bs%k2(ib)+nn
END DO
CALL salloc(nn,ln)
k=0
DO j=1,nviz
ib=iviz(j)
DO i=bs%k2(ib),bs%k2(ib+1)-1
k=k+1
ln(k)=bs%l2(i)
END DO
END DO
END SUBROUTINE neig_xp
SUBROUTINE neig_xn(bs,x,nn,ln)
TYPE(bucketss)::bs
REAL(8),DIMENSION(3)::x,xt
INTEGER,DIMENSION(:),ALLOCATABLE::ln
INTEGER,DIMENSION(27)::iviz
DO j=1,3
xt(j)=dotprod(3,bs%vcp(1:3,j),x(1:3))
END DO
CALL extpes(nviz,nbuck(bs%xmi,bs%xma,xt,bs%nbd),iviz,bs%nbd)
nn=0
DO i=1,nviz
ib=iviz(i)
nn=bs%k1(ib+1)-bs%k1(ib)+nn
END DO
CALL salloc(nn,ln)
k=0
DO j=1,nviz
ib=iviz(j)
DO i=bs%k1(ib),bs%k1(ib+1)-1
k=k+1
ln(k)=bs%l1(i)
END DO
END DO
END SUBROUTINE neig_xn
SUBROUTINE neig_nn(bs,in,nn,ln)
TYPE(bucketss)::bs
INTEGER,DIMENSION(:),ALLOCATABLE::ln
INTEGER,DIMENSION(27)::iviz
jb=bs%bn(in)
CALL extpes(nviz,jb,iviz,bs%nbd)
nn=0
DO i=1,nviz
ib=iviz(i)
nn=bs%k1(ib+1)-bs%k1(ib)+nn
END DO
CALL salloc(nn,ln)
k=0
DO j=1,nviz
ib=iviz(j)
DO i=bs%k1(ib),bs%k1(ib+1)-1
k=k+1
ln(k)=bs%l1(i)
END DO
END DO
END SUBROUTINE neig_nn
SUBROUTINE neig_pp(bs,in,nn,ln)
TYPE(bucketss)::bs
INTEGER,DIMENSION(:),ALLOCATABLE::ln
INTEGER,DIMENSION(27)::iviz
jb=bs%bp(in)
CALL extpes(nviz,jb,iviz,bs%nbd)
nn=0
DO i=1,nviz
ib=iviz(i)
nn=bs%k2(ib+1)-bs%k2(ib)+nn
END DO
CALL salloc(nn,ln)
k=0
DO j=1,nviz
ib=iviz(j)
DO i=bs%k2(ib),bs%k2(ib+1)-1
k=k+1
ln(k)=bs%l2(i)
END DO
END DO
END SUBROUTINE neig_pp
SUBROUTINE neig_pn(bs,in,nn,ln)
TYPE(bucketss)::bs
INTEGER,DIMENSION(:),ALLOCATABLE::ln
INTEGER,DIMENSION(27)::iviz
jb=bs%bp(in)
CALL extpes(nviz,jb,iviz,bs%nbd)
nn=0
DO i=1,nviz
ib=iviz(i)
nn=bs%k1(ib+1)-bs%k1(ib)+nn
END DO
CALL salloc(nn,ln)
k=0
DO j=1,nviz
ib=iviz(j)
DO i=bs%k1(ib),bs%k1(ib+1)-1
k=k+1
ln(k)=bs%l1(i)
END DO
END DO
END SUBROUTINE neig_pn
SUBROUTINE neig_np(bs,in,nn,ln)
TYPE(bucketss)::bs
INTEGER,DIMENSION(:),ALLOCATABLE::ln
INTEGER,DIMENSION(27)::iviz
jb=bs%bn(in)
CALL extpes(nviz,jb,iviz,bs%nbd)
nn=0
DO i=1,nviz
ib=iviz(i)
nn=bs%k2(ib+1)-bs%k2(ib)+nn
END DO
CALL salloc(nn,ln)
k=0
DO j=1,nviz
ib=iviz(j)
DO i=bs%k2(ib),bs%k2(ib+1)-1
k=k+1
ln(k)=bs%l2(i)
END DO
END DO
END SUBROUTINE neig_np
SUBROUTINE createbuck(bs,nn,np,ip,jp,xc)
IMPLICIT REAL(8) (a-h,o-z)
TYPE(bucketss)::bs
REAL(8),DIMENSION(:,:),ALLOCATABLE::xcoo
INTEGER,DIMENSION(*)::ip,jp
REAL(8),DIMENSION(3,*)::xc
REAL(8),DIMENSION(3)::a,b,atr,dmm
bs%npoin=nn
bs%npoly=np
CALL salloc(3,bs%npoin,xcoo)
CALL salloc(bs%npoin,bs%bn)
CALL salloc(bs%npoly,bs%bp)
CALL princompan(bs%npoin,xc,bs%vcp)
DO i=1,bs%npoin
DO j=1,3
xcoo(j,i)=dotprod(3,bs%vcp(1:3,j),xc(1:3,i))
END DO
END DO
CALL pconsr(3,dmm,0.0d00)
CALL pconsr(3,bs%xmi,0.0d00)
CALL pconsr(3,bs%xma,0.0d00)
DO i=1,bs%npoly
ist=ip(i)
ifi=ip(i+1)
nnp=ifi-ist
DO k=1,3
a(k)=-HUGE(1.0d00)
b(k)=HUGE(1.0d00)
END DO
DO j=1,nnp
in=jp(j-1+ist)
DO k=1,3
a(k)=MAX(a(k),xcoo(k,in))
b(k)=MIN(b(k),xcoo(k,in))
END DO
END DO
DO k=1,3
dmm(k)=MAX(dmm(k),a(k)-b(k))
END DO
END DO
DO i=1,3
bs%xmi(i)=xindmin(nn,xcoo(i,1:nn))
bs%xma(i)=xindmax(nn,xcoo(i,1:nn))
atr(i)=bs%xma(i)-bs%xmi(i)
END DO
CALL detnbd(atr,dmm,bs%nbd,bs%ntb)
DO i=1,bs%npoin
bs%bn(i)=nbuck(bs%xmi,bs%xma,xcoo(1:3,i),bs%nbd)
END DO
DO i=1,bs%npoly
j=jp(ip(i))
bs%bp(i)=nbuck(bs%xmi,bs%xma,xcoo(1:3,j),bs%nbd)
END DO
CALL salloc(bs%npoin,bs%l1)
CALL salloc(bs%npoly,bs%l2)
CALL salloc(bs%ntb+1,bs%k1)
CALL salloc(bs%ntb+1,bs%k2)
CALL invind(bs%npoin,bs%ntb,bs%k1,bs%bn,bs%l1)
CALL invind(bs%npoly,bs%ntb,bs%k2,bs%bp,bs%l2)
CALL salloc(0,0,xcoo)
END SUBROUTINE createbuck
SUBROUTINE princompan(n,x,vcp)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3,*)::x
REAL(8),DIMENSION(3)::temp,vlp
INTEGER,DIMENSION(3)::per
REAL(8),DIMENSION(3,3)::vcp
IF(n.LE.0)RETURN
rconst=1.0d00/n
CALL pconsr(3,vlp,0.0d00)
DO i=1,n
vlp=vlp+x(1:3,i)*rconst
END DO
CALL pconsr(9,vcp,0.0d00)
DO i=1,n
temp=x(1:3,i)-vlp
CALL updtens(3,vcp,temp,temp)
END DO
CALL escvec(9,vcp,rconst,vcp)
CALL jacobit(vcp,vlp,vcp,3,ierr)
CALL sort(3,vlp,per)
CALL permut(3,vlp,per)
DO i=1,3
CALL permut(3,vcp(i,1:3),per)
END DO
END SUBROUTINE princompan
SUBROUTINE wprincompan(n,w,x,vcp)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(3,*)::x
REAL(8),DIMENSION(*)::w
INTEGER,DIMENSION(3)::per
REAL(8),DIMENSION(3)::temp,vlp
REAL(8),DIMENSION(3,3)::vcp
IF(n.LE.0)RETURN
rconst=1.0d00/sumlist(n,w)
sconst=1.0d00/n
CALL pconsr(3,vlp,0.0d00)
DO i=1,n
vlp=vlp+x(1:3,i)*w(i)*rconst
END DO
CALL pconsr(9,vcp,0.0d00)
DO i=1,n
temp=x(1:3,i)-vlp
CALL updtens(3,vcp,temp,temp)
END DO
CALL escvec(9,vcp,sconst,vcp)
CALL jacobit(vcp,vlp,vcp,3,ierr)
CALL sort(3,vlp,per)
CALL permut(3,vlp,per)
DO i=1,3
CALL permut(3,vcp(i,1:3),per)
END DO
END SUBROUTINE wprincompan
SUBROUTINE extpes(nviz,indb,iviz,nbd)
INTEGER,DIMENSION(3)::jnc,ind
INTEGER,DIMENSION(*)::iviz,nbd
CALL pconsi(27,iviz,0)
CALL invbucket(indb,nbd,ind)
nviz=0
DO i=-1,1
jnc(1)=ind(1)+i
IF(jnc(1).GT.nbd(1).OR.jnc(1).LE.0)CYCLE
DO j=-1,1
jnc(2)=ind(2)+j
IF(jnc(2).GT.nbd(2).OR.jnc(2).LE.0)CYCLE
DO k=-1,1
jnc(3)=ind(3)+k
IF(jnc(3).GT.nbd(3).OR.jnc(3).LE.0)CYCLE
nviz=nviz+1
iviz(nviz)=indbucket(nbd,jnc)
END DO
ENDDO
ENDDO
END SUBROUTINE extpes
INTEGER FUNCTION indbucket(nbd,ind)
INTEGER,DIMENSION(*)::ind,nbd
indbucket=ind(1)+nbd(1)*(ind(2)-1)+nbd(1)*nbd(2)*(ind(3)-1)
END FUNCTION indbucket
SUBROUTINE invbucket(indt,nbd,ind)
INTEGER,DIMENSION(*)::ind,nbd
nx=nbd(1)
ny=nbd(2)
nxy=nx*ny
ind(3)=INT((indt-1)/nxy)+1
jndt=indt-(ind(3)-1)*nxy
ind(2)=INT((jndt-1)/nx)+1
ind(1)=MOD(jndt-1,nx)+1
END SUBROUTINE invbucket
INTEGER FUNCTION nbuck(xmi,xma,xcu,nbd)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::xmi,xma,xcu
INTEGER,DIMENSION(*)::nbd
INTEGER,DIMENSION(3)::pc
DO i=1,3
rtemp=xma(i)-xmi(i)
IF(ABS(rtemp).GT.TINY(rtemp))THEN
nn=INT(nbd(i)*(xcu(i)-xmi(i))/(xma(i)-xmi(i)))+1
ELSE
nn=1
END IF
nn=MIN(MAX(1,nn),nbd(i))
pc(i)=nn
ENDDO
nbuck=indbucket(nbd,pc)
END FUNCTION nbuck
SUBROUTINE detnbd(atr,dmm,nbd,ntb)
IMPLICIT REAL(8) (a-h,o-z)
INTEGER,PARAMETER::nbdm=1000
INTEGER,DIMENSION(*)::nbd
REAL(8),DIMENSION(*)::atr,dmm
REAL(8),DIMENSION(3)::dmmc
imi=indminss(3,dmm)
tol=(1.0d-6*dmm(imi)+TINY(tol))
DO i=1,3
dmmc(i)=dmm(i)+tol
END DO
DO i=1,3
nbd(i)=MIN(MAX(1,INT(atr(i)/dmmc(i))),nbdm)
END DO
ntb=indbucket(nbd,nbd)
END SUBROUTINE detnbd
END MODULE polygbucket
SUBROUTINE dsvdc ( a, lda, m, n, s, e, u, ldu, v, ldv, work, job, info )
IMPLICIT NONE
INTEGER lda
INTEGER ldu
INTEGER ldv
INTEGER m
INTEGER n
REAL ( kind = 8 ) a(lda,n)
REAL ( kind = 8 ) b
REAL ( kind = 8 ) c
REAL ( kind = 8 ) cs
REAL ( kind = 8 ) e(*)
REAL ( kind = 8 ) el
REAL ( kind = 8 ) emm1
REAL ( kind = 8 ) f
REAL ( kind = 8 ) g
INTEGER info
INTEGER iter
INTEGER j
INTEGER job
INTEGER jobu
INTEGER k
INTEGER kase
INTEGER kk
INTEGER l
INTEGER ll
INTEGER lls
INTEGER ls
INTEGER lu
INTEGER, PARAMETER :: maxit = 30
INTEGER mm
INTEGER mm1
INTEGER mn
INTEGER nct
INTEGER nctp1
INTEGER ncu
INTEGER nrt
INTEGER nrtp1
REAL ( kind = 8 ) s(*)
REAL ( kind = 8 ) scale
REAL ( kind = 8 ) ddot
REAL ( kind = 8 ) shift
REAL ( kind = 8 ) sl
REAL ( kind = 8 ) sm
REAL ( kind = 8 ) smm1
REAL ( kind = 8 ) sn
REAL ( kind = 8 ) dnrm2
REAL ( kind = 8 ) t
REAL ( kind = 8 ) t1
REAL ( kind = 8 ) test
REAL ( kind = 8 ) u(ldu,m)
REAL ( kind = 8 ) v(ldv,n)
LOGICAL wantu
LOGICAL wantv
REAL ( kind = 8 ) work(m)
REAL ( kind = 8 ) ztest
wantu = .FALSE.
wantv = .FALSE.
jobu = MOD ( job, 100 ) / 10

IF ( 1 < jobu ) THEN
ncu = MIN ( m, n )
ELSE
ncu = m
END IF

IF ( jobu /= 0 ) THEN
wantu = .TRUE.
END IF

IF ( MOD ( job, 10 ) /= 0 ) THEN
wantv = .TRUE.
END IF
info = 0
nct = MIN ( m-1, n )
nrt = MAX ( 0, MIN ( m, n-2 ) )
lu = MAX ( nct, nrt )

DO l = 1, lu
IF ( l <= nct ) THEN

s(l) = dnrm2 ( m-l+1, a(l,l), 1 )

IF ( s(l) /= 0.0D+00 ) THEN
IF ( a(l,l) /= 0.0D+00 ) THEN
s(l) = SIGN ( s(l), a(l,l) )
END IF
CALL dscal ( m-l+1, 1.0D+00 / s(l), a(l,l), 1 )
a(l,l) = 1.0D+00 + a(l,l)
END IF

s(l) = -s(l)

END IF

DO j = l+1, n
IF ( l <= nct .AND. s(l) /= 0.0D+00 ) THEN
t = -ddot ( m-l+1, a(l,l), 1, a(l,j), 1 ) / a(l,l)
CALL daxpy ( m-l+1, t, a(l,l), 1, a(l,j), 1 )
END IF
e(j) = a(l,j)

END DO
IF ( wantu .AND. l <= nct ) THEN
u(l:m,l) = a(l:m,l)
END IF
IF ( l <= nrt ) THEN

e(l) = dnrm2 ( n-l, e(l+1), 1 )

IF ( e(l) /= 0.0D+00 ) THEN
IF ( e(l+1) /= 0.0D+00 ) THEN
e(l) = SIGN ( e(l), e(l+1) )
END IF
CALL dscal ( n-l, 1.0D+00 / e(l), e(l+1), 1 )
e(l+1) = 1.0D+00 + e(l+1)
END IF

e(l) = -e(l)
IF ( l + 1 <= m .AND. e(l) /= 0.0D+00 ) THEN

work(l+1:m) = 0.0D+00

DO j = l+1, n
CALL daxpy ( m-l, e(j), a(l+1,j), 1, work(l+1), 1 )
END DO

DO j = l+1, n
CALL daxpy ( m-l, -e(j)/e(l+1), work(l+1), 1, a(l+1,j), 1 )
END DO

END IF
IF ( wantv ) THEN
v(l+1:n,l) = e(l+1:n)
END IF

END IF

END DO
mn = MIN ( m + 1, n )
nctp1 = nct + 1
nrtp1 = nrt + 1

IF ( nct < n ) THEN
s(nctp1) = a(nctp1,nctp1)
END IF

IF ( m < mn ) THEN
s(mn) = 0.0D+00
END IF

IF ( nrtp1 < mn ) THEN
e(nrtp1) = a(nrtp1,mn)
END IF

e(mn) = 0.0D+00
IF ( wantu ) THEN

u(1:m,nctp1:ncu) = 0.0D+00

DO j = nctp1, ncu
u(j,j) = 1.0D+00
END DO

DO ll = 1, nct

l = nct - ll + 1

IF ( s(l) /= 0.0D+00 ) THEN

DO j = l+1, ncu
t = -ddot ( m-l+1, u(l,l), 1, u(l,j), 1 ) / u(l,l)
CALL daxpy ( m-l+1, t, u(l,l), 1, u(l,j), 1 )
END DO

u(l:m,l) = -u(l:m,l)
u(l,l) = 1.0D+00 + u(l,l)
u(1:l-1,l) = 0.0D+00

ELSE

u(1:m,l) = 0.0D+00
u(l,l) = 1.0D+00

END IF

END DO

END IF
IF ( wantv ) THEN

DO ll = 1, n

l = n - ll + 1

IF ( l <= nrt .AND. e(l) /= 0.0D+00 ) THEN

DO j = l+1, n
t = -ddot ( n-l, v(l+1,l), 1, v(l+1,j), 1 ) / v(l+1,l)
CALL daxpy ( n-l, t, v(l+1,l), 1, v(l+1,j), 1 )
END DO

END IF

v(1:n,l) = 0.0D+00
v(l,l) = 1.0D+00

END DO

END IF
mm = mn
iter = 0

DO WHILE ( 0 < mn )
IF ( maxit <= iter ) THEN
info = mn
RETURN
END IF
DO ll = 1, mn

l = mn - ll

IF ( l == 0 ) THEN
EXIT
END IF

test = ABS ( s(l) ) + ABS ( s(l+1) )
ztest = test + ABS ( e(l) )

IF ( ztest == test ) THEN
e(l) = 0.0D+00
EXIT
END IF

END DO

IF ( l == mn - 1 ) THEN

kase = 4

ELSE

DO lls = l+1, mn+1

ls = mn - lls + l + 1

IF ( ls == l ) THEN
EXIT
END IF

test = 0.0D+00
IF ( ls /= mn ) THEN
test = test + ABS ( e(ls) )
END IF

IF ( ls /= l + 1 ) THEN
test = test + ABS ( e(ls-1) )
END IF

ztest = test + ABS ( s(ls) )

IF ( ztest == test ) THEN
s(ls) = 0.0D+00
EXIT
END IF

END DO

IF ( ls == l ) THEN
kase = 3
ELSE IF ( ls == mn ) THEN
kase = 1
ELSE
kase = 2
l = ls
END IF

END IF

l = l + 1
IF ( kase == 1 ) THEN

mm1 = mn - 1
f = e(mn-1)
e(mn-1) = 0.0D+00

DO kk = l, mm1

k = mm1 - kk + l
t1 = s(k)
CALL drotg ( t1, f, cs, sn )
s(k) = t1

IF ( k /= l ) THEN
f = -sn * e(k-1)
e(k-1) = cs * e(k-1)
END IF

IF ( wantv ) THEN
CALL drot ( n, v(1,k), 1, v(1,mn), 1, cs, sn )
END IF

END DO
ELSE IF ( kase == 2 ) THEN

f = e(l-1)
e(l-1) = 0.0D+00

DO k = l, mn

t1 = s(k)
CALL drotg ( t1, f, cs, sn )
s(k) = t1
f = -sn * e(k)
e(k) = cs * e(k)
IF ( wantu ) THEN
CALL drot ( m, u(1,k), 1, u(1,l-1), 1, cs, sn )
END IF

END DO
ELSE IF ( kase == 3 ) THEN
scale = MAX ( ABS ( s(mn) ), ABS ( s(mn-1) ), ABS ( e(mn-1) ), &
ABS ( s(l) ), ABS ( e(l) ) )

sm = s(mn) / scale
smm1 = s(mn-1) / scale
emm1 = e(mn-1) / scale
sl = s(l) / scale
el = e(l) / scale
b = ( ( smm1 + sm ) * ( smm1 - sm ) + emm1 * emm1 ) / 2.0D+00
c = sm  * sm * emm1 * emm1
shift = 0.0D+00

IF ( b /= 0.0D+00 .OR. c /= 0.0D+00 ) THEN
shift = SQRT ( b * b + c )
IF ( b < 0.0D+00 ) THEN
shift = -shift
END IF
shift = c / ( b + shift )
END IF

f = ( sl + sm ) * ( sl - sm ) + shift
g = sl * el
mm1 = mn - 1

DO k = l, mm1

CALL drotg ( f, g, cs, sn )

IF ( k /= l ) THEN
e(k-1) = f
END IF

f = cs * s(k) + sn * e(k)
e(k) = cs * e(k) - sn * s(k)
g = sn * s(k+1)
s(k+1) = cs * s(k+1)

IF ( wantv ) THEN
CALL drot ( n, v(1,k), 1, v(1,k+1), 1, cs, sn )
END IF

CALL drotg ( f, g, cs, sn )
s(k) = f
f = cs * e(k) + sn * s(k+1)
s(k+1) = -sn * e(k) + cs * s(k+1)
g = sn * e(k+1)
e(k+1) = cs * e(k+1)

IF ( wantu .AND. k < m ) THEN
CALL drot ( m, u(1,k), 1, u(1,k+1), 1, cs, sn )
END IF

END DO

e(mn-1) = f
iter = iter + 1
ELSE IF ( kase == 4 ) THEN
IF ( s(l) < 0.0D+00 ) THEN
s(l) = -s(l)
IF ( wantv ) THEN
v(1:n,l) = -v(1:n,l)
END IF
END IF
DO

IF ( l == mm ) THEN
EXIT
END IF

IF ( s(l+1) <= s(l) ) THEN
EXIT
END IF

t = s(l)
s(l) = s(l+1)
s(l+1) = t

IF ( wantv .AND. l < n ) THEN
CALL dswap ( n, v(1,l), 1, v(1,l+1), 1 )
END IF

IF ( wantu .AND. l < m ) THEN
CALL dswap ( m, u(1,l), 1, u(1,l+1), 1 )
END IF

l = l + 1

END DO

iter = 0
mn = mn - 1

END IF

END DO

RETURN
END SUBROUTINE dsvdc
SUBROUTINE dqrsl ( a, lda, n, k, qraux, y, qy, qty, b, rsd, ab, job, info )
IMPLICIT NONE

INTEGER k
INTEGER lda
INTEGER n

REAL ( kind = 8 ) a(lda,*)
REAL ( kind = 8 ) ab(n)
REAL ( kind = 8 ) b(k)
LOGICAL cab
LOGICAL cb
LOGICAL cqty
LOGICAL cqy
LOGICAL cr
INTEGER info
INTEGER j
INTEGER jj
INTEGER job
INTEGER ju
REAL ( kind = 8 ) qraux(*)
REAL ( kind = 8 ) qty(n)
REAL ( kind = 8 ) qy(n)
REAL ( kind = 8 ) rsd(n)
REAL ( kind = 8 ) ddot
REAL ( kind = 8 ) t
REAL ( kind = 8 ) temp
REAL ( kind = 8 ) y(n)
info = 0
cqy =        job / 10000         /= 0
cqty = MOD ( job,  10000 )       /= 0
cb =   MOD ( job,   1000 ) / 100 /= 0
cr =   MOD ( job,    100 ) /  10 /= 0
cab =  MOD ( job,     10 )       /= 0

ju = MIN ( k, n - 1 )
IF ( ju == 0 ) THEN

IF ( cqy ) THEN
qy(1) = y(1)
END IF

IF ( cqty ) THEN
qty(1) = y(1)
END IF

IF ( cab ) THEN
ab(1) = y(1)
END IF

IF ( cb ) THEN

IF ( a(1,1) == 0.0D+00 ) THEN
info = 1
ELSE
b(1) = y(1) / a(1,1)
END IF

END IF

IF ( cr ) THEN
rsd(1) = 0.0D+00
END IF

RETURN

END IF
IF ( cqy ) THEN
qy(1:n) = y(1:n)
END IF

IF ( cqty ) THEN
qty(1:n) = y(1:n)
END IF
IF ( cqy ) THEN

DO jj = 1, ju

j = ju - jj + 1

IF ( qraux(j) /= 0.0D+00 ) THEN
temp = a(j,j)
a(j,j) = qraux(j)
t = -ddot ( n-j+1, a(j,j), 1, qy(j), 1 ) / a(j,j)
CALL daxpy ( n-j+1, t, a(j,j), 1, qy(j), 1 )
a(j,j) = temp
END IF

END DO

END IF
IF ( cqty ) THEN

DO j = 1, ju
IF ( qraux(j) /= 0.0D+00 ) THEN
temp = a(j,j)
a(j,j) = qraux(j)
t = -ddot ( n-j+1, a(j,j), 1, qty(j), 1 ) / a(j,j)
CALL daxpy ( n-j+1, t, a(j,j), 1, qty(j), 1 )
a(j,j) = temp
END IF
END DO

END IF
IF ( cb ) THEN
b(1:k) = qty(1:k)
END IF

IF ( cab ) THEN
ab(1:k) = qty(1:k)
END IF

IF ( cr .AND. k < n ) THEN
rsd(k+1:n) = qty(k+1:n)
END IF

IF ( cab .AND. k+1 <= n ) THEN
ab(k+1:n) = 0.0D+00
END IF

IF ( cr ) THEN
rsd(1:k) = 0.0D+00
END IF
IF ( cb ) THEN

DO jj = 1, k

j = k - jj + 1

IF ( a(j,j) == 0.0D+00 ) THEN
info = j
EXIT
END IF

b(j) = b(j) / a(j,j)

IF ( j /= 1 ) THEN
t = -b(j)
CALL daxpy ( j-1, t, a(1,j), 1, b, 1 )
END IF

END DO

END IF
IF ( cr .OR. cab ) THEN

DO jj = 1, ju

j = ju - jj + 1

IF ( qraux(j) /= 0.0D+00 ) THEN

temp = a(j,j)
a(j,j) = qraux(j)

IF ( cr ) THEN
t = -ddot ( n-j+1, a(j,j), 1, rsd(j), 1 ) / a(j,j)
CALL daxpy ( n-j+1, t, a(j,j), 1, rsd(j), 1 )
END IF

IF ( cab ) THEN
t = -ddot ( n-j+1, a(j,j), 1, ab(j), 1 ) / a(j,j)
CALL daxpy ( n-j+1, t, a(j,j), 1, ab(j), 1 )
END IF

a(j,j) = temp

END IF

END DO

END IF

RETURN
END SUBROUTINE dqrsl
SUBROUTINE dqrdc ( a, lda, n, p, qraux, jpvt, work, job )
IMPLICIT NONE

INTEGER lda
INTEGER n
INTEGER p

REAL ( kind = 8 ) a(lda,p)
INTEGER jpvt(p)
REAL ( kind = 8 ) qraux(p)
REAL ( kind = 8 ) work(p)
INTEGER j
INTEGER job
INTEGER jp
INTEGER l
INTEGER lup
INTEGER maxj
REAL ( kind = 8 ) maxnrm
REAL ( kind = 8 ) nrmxl
INTEGER pl
INTEGER pu
REAL ( kind = 8 ) ddot
REAL ( kind = 8 ) dnrm2
LOGICAL swapj
REAL ( kind = 8 ) t
REAL ( kind = 8 ) tt

pl = 1
pu = 0
IF ( job /= 0 ) THEN

DO j = 1, p

swapj = 0 < jpvt(j)

IF ( jpvt(j) < 0 ) THEN
jpvt(j) = -j
ELSE
jpvt(j) = j
END IF

IF ( swapj ) THEN

IF ( j /= pl ) THEN
CALL dswap ( n, a(1,pl), 1, a(1,j), 1 )
END IF

jpvt(j) = jpvt(pl)
jpvt(pl) = j
pl = pl + 1

END IF

END DO

pu = p

DO j = p, 1, -1

IF ( jpvt(j) < 0 ) THEN

jpvt(j) = -jpvt(j)

IF ( j /= pu ) THEN
CALL dswap ( n, a(1,pu), 1, a(1,j), 1 )
jp = jpvt(pu)
jpvt(pu) = jpvt(j)
jpvt(j) = jp
END IF

pu = pu - 1

END IF

END DO

END IF
DO j = pl, pu
qraux(j) = dnrm2 ( n, a(1,j), 1 )
END DO

work(pl:pu) = qraux(pl:pu)
lup = MIN ( n, p )

DO l = 1, lup
IF ( pl <= l .AND. l < pu ) THEN

maxnrm = 0.0D+00
maxj = l
DO j = l, pu
IF ( maxnrm < qraux(j) ) THEN
maxnrm = qraux(j)
maxj = j
END IF
END DO

IF ( maxj /= l ) THEN
CALL dswap ( n, a(1,l), 1, a(1,maxj), 1 )
qraux(maxj) = qraux(l)
work(maxj) = work(l)
jp = jpvt(maxj)
jpvt(maxj) = jpvt(l)
jpvt(l) = jp
END IF

END IF
qraux(l) = 0.0D+00

IF ( l /= n ) THEN

nrmxl = dnrm2 ( n-l+1, a(l,l), 1 )

IF ( nrmxl /= 0.0D+00 ) THEN

IF ( a(l,l) /= 0.0D+00 ) THEN
nrmxl = SIGN ( nrmxl, a(l,l) )
END IF

CALL dscal ( n-l+1, 1.0D+00 / nrmxl, a(l,l), 1 )
a(l,l) = 1.0D+00 + a(l,l)
DO j = l + 1, p

t = -ddot ( n-l+1, a(l,l), 1, a(l,j), 1 ) / a(l,l)
CALL daxpy ( n-l+1, t, a(l,l), 1, a(l,j), 1 )

IF ( pl <= j .AND. j <= pu ) THEN

IF ( qraux(j) /= 0.0D+00 ) THEN

tt = 1.0D+00 - ( ABS ( a(l,j) ) / qraux(j) )**2
tt = MAX ( tt, 0.0D+00 )
t = tt
tt = 1.0D+00 + 0.05D+00 * tt * ( qraux(j) / work(j) )**2

IF ( tt /= 1.0D+00 ) THEN
qraux(j) = qraux(j) * SQRT ( t )
ELSE
qraux(j) = dnrm2 ( n-l, a(l+1,j), 1 )
work(j) = qraux(j)
END IF

END IF

END IF

END DO
qraux(l) = a(l,l)
a(l,l) = -nrmxl

END IF

END IF

END DO

RETURN
END SUBROUTINE dqrdc

SUBROUTINE dgedi ( a, lda, n, ipvt, det, work, job )

IMPLICIT NONE

INTEGER lda
INTEGER n

REAL ( kind = 8 ) a(lda,n)
REAL ( kind = 8 ) det(2)
INTEGER i
INTEGER ipvt(n)
INTEGER j
INTEGER job
INTEGER k
INTEGER l
REAL ( kind = 8 ) t
REAL ( kind = 8 ) work(n)
IF ( job / 10 /= 0 ) THEN

det(1) = 1.0D+00
det(2) = 0.0D+00

DO i = 1, n

IF ( ipvt(i) /= i ) THEN
det(1) = -det(1)
END IF

det(1) = det(1) * a(i,i)

IF ( det(1) == 0.0D+00 ) THEN
EXIT
END IF

DO WHILE ( ABS ( det(1) ) < 1.0D+00 )
det(1) = det(1) * 10.0D+00
det(2) = det(2) - 1.0D+00
END DO

DO WHILE ( 10.0D+00 <= ABS ( det(1) ) )
det(1) = det(1) / 10.0D+00
det(2) = det(2) + 1.0D+00
END DO

END DO

END IF
IF ( MOD ( job, 10 ) /= 0 ) THEN

DO k = 1, n

a(k,k) = 1.0D+00 / a(k,k)
t = -a(k,k)
CALL dscal ( k-1, t, a(1,k), 1 )

DO j = k+1, n
t = a(k,j)
a(k,j) = 0.0D+00
CALL daxpy ( k, t, a(1,k), 1, a(1,j), 1 )
END DO

END DO
DO k = n-1, 1, -1

work(k+1:n) = a(k+1:n,k)

a(k+1:n,k) = 0.0D+00

DO j = k+1, n
t = work(j)
CALL daxpy ( n, t, a(1,j), 1, a(1,k), 1 )
END DO

l = ipvt(k)
IF ( l /= k ) THEN
CALL dswap ( n, a(1,k), 1, a(1,l), 1 )
END IF

END DO

END IF

RETURN
END SUBROUTINE dgedi
SUBROUTINE dgefa ( a, lda, n, ipvt, info )
IMPLICIT NONE

INTEGER lda
INTEGER n

REAL ( kind = 8 ) a(lda,n)
INTEGER info
INTEGER ipvt(n)
INTEGER idamax
INTEGER j
INTEGER k
INTEGER l
REAL ( kind = 8 ) t
info = 0

DO k = 1, n - 1
l = idamax ( n-k+1, a(k,k), 1 ) + k - 1
ipvt(k) = l
IF ( a(l,k) == 0.0D+00 ) THEN
info = k
CYCLE
END IF
IF ( l /= k ) THEN
t = a(l,k)
a(l,k) = a(k,k)
a(k,k) = t
END IF
t = -1.0D+00 / a(k,k)
CALL dscal ( n-k, t, a(k+1,k), 1 )
DO j = k+1, n
t = a(l,j)
IF ( l /= k ) THEN
a(l,j) = a(k,j)
a(k,j) = t
END IF
CALL daxpy ( n-k, t, a(k+1,k), 1, a(k+1,j), 1 )
END DO

END DO

ipvt(n) = n

IF ( a(n,n) == 0.0D+00 ) THEN
info = n
END IF

RETURN
END SUBROUTINE dgefa
SUBROUTINE dgesl ( a, lda, n, ipvt, b, job )
IMPLICIT NONE

INTEGER lda
INTEGER n

REAL ( kind = 8 ) a(lda,n)
REAL ( kind = 8 ) b(n)
INTEGER ipvt(n)
INTEGER job
INTEGER k
INTEGER l
REAL ( kind = 8 ) ddot
REAL ( kind = 8 ) t
IF ( job == 0 ) THEN

DO k = 1, n-1

l = ipvt(k)
t = b(l)

IF ( l /= k ) THEN
b(l) = b(k)
b(k) = t
END IF

CALL daxpy ( n-k, t, a(k+1,k), 1, b(k+1), 1 )

END DO

DO k = n, 1, -1
b(k) = b(k) / a(k,k)
t = -b(k)
CALL daxpy ( k-1, t, a(1,k), 1, b(1), 1 )
END DO

ELSE
DO k = 1, n
t = ddot ( k-1, a(1,k), 1, b(1), 1 )
b(k) = ( b(k) - t ) / a(k,k)
END DO

DO k = n-1, 1, -1

b(k) = b(k) + ddot ( n-k, a(k+1,k), 1, b(k+1), 1 )
l = ipvt(k)

IF ( l /= k ) THEN
t = b(l)
b(l) = b(k)
b(k) = t
END IF

END DO

END IF

RETURN
END SUBROUTINE dgesl
SUBROUTINE dsidi ( a, lda, n, kpvt, det, inert, work, job )
IMPLICIT NONE

INTEGER lda
INTEGER n

REAL ( kind = 8 ) a(lda,n)
REAL ( kind = 8 ) ak
REAL ( kind = 8 ) akkp1
REAL ( kind = 8 ) akp1
REAL ( kind = 8 ) d
REAL ( kind = 8 ) det(2)
LOGICAL dodet
LOGICAL doert
LOGICAL doinv
INTEGER inert(3)
INTEGER j
INTEGER jb
INTEGER job
INTEGER k
INTEGER kpvt(n)
INTEGER ks
INTEGER kstep
REAL ( kind = 8 ) ddot
REAL ( kind = 8 ) t
REAL ( kind = 8 ) temp
REAL ( kind = 8 ) work(n)

doinv = MOD ( job,   10 )       /= 0
dodet = MOD ( job,  100 ) /  10 /= 0
doert = MOD ( job, 1000 ) / 100 /= 0

IF ( dodet .OR. doert ) THEN

IF ( doert ) THEN
inert(1:3) = 0
END IF

IF ( dodet ) THEN
det(1) = 1.0D+00
det(2) = 0.0D+00
END IF

t = 0.0D+00

DO k = 1, n

d = a(k,k)
IF ( kpvt(k) <= 0 ) THEN

IF ( t == 0.0D+00 ) THEN
t = ABS ( a(k,k+1) )
d = ( d / t ) * a(k+1,k+1) - t
ELSE
d = t
t = 0.0D+00
END IF

END IF

IF ( doert ) THEN
IF ( 0.0D+00 < d ) THEN
inert(1) = inert(1) + 1
ELSE IF ( d < 0.0D+00 ) THEN
inert(2) = inert(2) + 1
ELSE IF ( d == 0.0D+00 ) THEN
inert(3) = inert(3) + 1
END IF
END IF

IF ( dodet ) THEN

det(1) = det(1) * d

IF ( det(1) /= 0.0D+00 ) THEN

DO WHILE ( ABS ( det(1) ) < 1.0D+00 )
det(1) = det(1) * 10.0D+00
det(2) = det(2) - 1.0D+00
END DO

DO WHILE ( 10.0D+00 <= ABS ( det(1) ) )
det(1) = det(1) / 10.0D+00
det(2) = det(2) + 1.0D+00
END DO

END IF

END IF

END DO

END IF
IF ( doinv ) THEN

k = 1

DO WHILE ( k <= n )

IF ( 0 <= kpvt(k) ) THEN
a(k,k) = 1.0D+00 / a(k,k)

IF ( 2 <= k ) THEN

work(1:k-1) = a(1:k-1,k)

DO j = 1, k-1
a(j,k) = ddot ( j, a(1,j), 1, work, 1 )
CALL daxpy ( j-1, work(j), a(1,j), 1, a(1,k), 1 )
END DO

a(k,k) = a(k,k) + ddot ( k-1, work, 1, a(1,k), 1 )

END IF

kstep = 1
ELSE

t = ABS ( a(k,k+1) )
ak = a(k,k) / t
akp1 = a(k+1,k+1) / t
akkp1 = a(k,k+1) / t
d = t * ( ak * akp1 - 1.0D+00 )
a(k,k) = akp1 / d
a(k+1,k+1) = ak / d
a(k,k+1) = -akkp1 / d

IF ( 2 <= k ) THEN

work(1:k-1) = a(1:k-1,k+1)

DO j = 1, k-1
a(j,k+1) = ddot ( j, a(1,j), 1, work, 1 )
CALL daxpy ( j-1, work(j), a(1,j), 1, a(1,k+1), 1 )
END DO

a(k+1,k+1) = a(k+1,k+1) + ddot ( k-1, work, 1, a(1,k+1), 1 )
a(k,k+1) = a(k,k+1) + ddot ( k-1, a(1,k), 1, a(1,k+1), 1 )

work(1:k-1) = a(1:k-1,k)

DO j = 1, k-1
a(j,k) = ddot ( j, a(1,j), 1, work, 1 )
CALL daxpy ( j-1, work(j), a(1,j), 1, a(1,k), 1 )
END DO

a(k,k) = a(k,k) + ddot ( k-1, work, 1, a(1,k), 1 )

END IF

kstep = 2

END IF
ks = ABS ( kpvt(k) )

IF ( ks /= k ) THEN

CALL dswap ( ks, a(1,ks), 1, a(1,k), 1 )

DO jb = ks, k
j = k + ks - jb
temp = a(j,k)
a(j,k) = a(ks,j)
a(ks,j) = temp
END DO

IF ( kstep /= 1 ) THEN
temp = a(ks,k+1)
a(ks,k+1) = a(k,k+1)
a(k,k+1) = temp
END IF

END IF

k = k + kstep

END DO

END IF

RETURN
END SUBROUTINE dsidi
SUBROUTINE dsifa ( a, lda, n, kpvt, info )
IMPLICIT NONE

INTEGER lda
INTEGER n

REAL ( kind = 8 ) a(lda,n)
REAL ( kind = 8 ) absakk
REAL ( kind = 8 ) ak
REAL ( kind = 8 ) akm1
REAL ( kind = 8 ) alpha
REAL ( kind = 8 ) bk
REAL ( kind = 8 ) bkm1
REAL ( kind = 8 ) colmax
REAL ( kind = 8 ) denom
INTEGER imax
INTEGER imaxp1
INTEGER info
INTEGER idamax
INTEGER j
INTEGER jj
INTEGER jmax
INTEGER k
INTEGER kpvt(n)
INTEGER kstep
REAL ( kind = 8 ) mulk
REAL ( kind = 8 ) mulkm1
REAL ( kind = 8 ) rowmax
LOGICAL swap
REAL ( kind = 8 ) t
alpha = ( 1.0D+00 + SQRT ( 17.0D+00 ) ) / 8.0D+00

info = 0
k = n

DO WHILE ( 0 < k )

IF ( k == 1 ) THEN
kpvt(1) = 1
IF ( a(1,1) == 0.0D+00 ) THEN
info = 1
END IF
RETURN
END IF
absakk = ABS ( a(k,k) )
imax = idamax ( k-1, a(1,k), 1 )
colmax = ABS ( a(imax,k) )

IF ( alpha * colmax <= absakk ) THEN

kstep = 1
swap = .FALSE.
ELSE

rowmax = 0.0D+00
imaxp1 = imax + 1
DO j = imax+1, k
rowmax = MAX ( rowmax, ABS ( a(imax,j) ) )
END DO

IF ( imax /= 1 ) THEN
jmax = idamax ( imax-1, a(1,imax), 1 )
rowmax = MAX ( rowmax, ABS ( a(jmax,imax) ) )
END IF

IF ( alpha * rowmax <= ABS ( a(imax,imax) ) ) THEN
kstep = 1
swap = .TRUE.
ELSE IF ( alpha * colmax * ( colmax / rowmax ) <= absakk ) THEN
kstep = 1
swap = .FALSE.
ELSE
kstep = 2
swap = ( imax /= k-1 )
END IF

END IF
IF ( MAX ( absakk, colmax ) == 0.0D+00 ) THEN

kpvt(k) = k
info = k
ELSE IF ( kstep /= 2 ) THEN

IF ( swap ) THEN

CALL dswap ( imax, a(1,imax), 1, a(1,k), 1 )

DO jj = imax, k
j = k + imax - jj
t = a(j,k)
a(j,k) = a(imax,j)
a(imax,j) = t
END DO

END IF
DO jj = 1, k-1
j = k - jj
mulk = -a(j,k) / a(k,k)
t = mulk
CALL daxpy ( j, t, a(1,k), 1, a(1,j), 1 )
a(j,k) = mulk
END DO
IF ( swap ) THEN
kpvt(k) = imax
ELSE
kpvt(k) = k
END IF
ELSE

IF ( swap ) THEN

CALL dswap ( imax, a(1,imax), 1, a(1,k-1), 1 )

DO jj = imax, k-1
j = k-1 + imax - jj
t = a(j,k-1)
a(j,k-1) = a(imax,j)
a(imax,j) = t
END DO

t = a(k-1,k)
a(k-1,k) = a(imax,k)
a(imax,k) = t

END IF
IF ( k-2 /= 0 ) THEN

ak = a(k,k) / a(k-1,k)
akm1 = a(k-1,k-1) / a(k-1,k)
denom = 1.0D+00 - ak * akm1

DO jj = 1, k-2

j = k-1 - jj
bk = a(j,k) / a(k-1,k)
bkm1 = a(j,k-1) / a(k-1,k)
mulk = ( akm1 * bk - bkm1 ) / denom
mulkm1 = ( ak * bkm1 - bk ) / denom
t = mulk
CALL daxpy ( j, t, a(1,k), 1, a(1,j), 1 )
t = mulkm1
CALL daxpy ( j, t, a(1,k-1), 1, a(1,j), 1 )
a(j,k) = mulk
a(j,k-1) = mulkm1

END DO

END IF
IF ( swap ) THEN
kpvt(k) = -imax
ELSE
kpvt(k) = 1 - k
END IF

kpvt(k-1) = kpvt(k)

END IF

k = k - kstep

END DO

RETURN
END SUBROUTINE dsifa
SUBROUTINE dsisl ( a, lda, n, kpvt, b )
IMPLICIT NONE

INTEGER lda
INTEGER n

REAL ( kind = 8 ) a(lda,n)
REAL ( kind = 8 ) ak
REAL ( kind = 8 ) akm1
REAL ( kind = 8 ) b(n)
REAL ( kind = 8 ) bk
REAL ( kind = 8 ) bkm1
REAL ( kind = 8 ) denom
INTEGER k
INTEGER kp
INTEGER kpvt(n)
REAL ( kind = 8 ) ddot
REAL ( kind = 8 ) temp
k = n

DO WHILE ( 0 < k )

IF ( 0 <= kpvt(k) ) THEN
IF ( k /= 1 ) THEN

kp = kpvt(k)
IF ( kp /= k ) THEN
temp = b(k)
b(k) = b(kp)
b(kp) = temp
END IF
CALL daxpy ( k-1, b(k), a(1,k), 1, b(1), 1 )

END IF
b(k) = b(k) / a(k,k)
k = k - 1

ELSE
IF ( k /= 2 ) THEN

kp = ABS ( kpvt(k) )
IF ( kp /= k-1 ) THEN
temp = b(k-1)
b(k-1) = b(kp)
b(kp) = temp
END IF
CALL daxpy ( k-2, b(k), a(1,k), 1, b(1), 1 )
CALL daxpy ( k-2, b(k-1), a(1,k-1), 1, b(1), 1 )

END IF
ak = a(k,k) / a(k-1,k)
akm1 = a(k-1,k-1) / a(k-1,k)
bk = b(k) / a(k-1,k)
bkm1 = b(k-1) / a(k-1,k)
denom = ak * akm1 - 1.0D+00
b(k) = ( akm1 * bk - bkm1 ) / denom
b(k-1) = ( ak * bkm1 - bk ) / denom
k = k - 2

END IF

END DO
k = 1

DO WHILE ( k <= n )

IF ( 0 <= kpvt(k) ) THEN
IF ( k /= 1 ) THEN
b(k) = b(k) + ddot ( k-1, a(1,k), 1, b(1), 1 )
kp = kpvt(k)
IF ( kp /= k ) THEN
temp = b(k)
b(k) = b(kp)
b(kp) = temp
END IF

END IF

k = k + 1

ELSE
IF ( k /= 1 ) THEN
b(k) = b(k) + ddot ( k-1, a(1,k), 1, b(1), 1 )
b(k+1) = b(k+1) + ddot ( k-1, a(1,k+1), 1, b(1), 1 )
kp = ABS ( kpvt(k) )
IF ( kp /= k ) THEN
temp = b(k)
b(k) = b(kp)
b(kp) = temp
END IF

END IF

k = k + 2

END IF

END DO

RETURN
END SUBROUTINE dsisl
SUBROUTINE solvesystem(solve,symbo,na,ia,ja,a,b)
USE basfun
IMPLICIT REAL(8)(a-h,o-z)
LOGICAL::symbo,solve
LOGICAL,SAVE::ifirst=.TRUE.
INTEGER,DIMENSION(*)::ia,ja
REAL(8),DIMENSION(*)::a,b
INTEGER,DIMENSION(:),ALLOCATABLE::ia2,ja2
INTEGER,DIMENSION(:),ALLOCATABLE::parent,lnz,li,lp
REAL(8),DIMENSION(:),ALLOCATABLE::lx
REAL(8),DIMENSION(:),ALLOCATABLE::d,a2
INTEGER,DIMENSION(:),ALLOCATABLE,SAVE::list,temp
CALL salloc(na,parent)
CALL salloc(na,lnz)
CALL salloc(na+1,lp)
CALL ldlsymbolic(na,ia,ja,lp,parent,lnz)
nfill=lp(na+1)
IF(symbo)WRITE(*,*)"nfill,nnz",nfill,ia(na+1)-1
CALL salloc(nfill,li)
CALL salloc(nfill,lx)
CALL salloc(na,d)
CALL ldlnumeric(na,ia,ja,a,lp,parent,lnz,li,lx,d)
CALL ldllsolve(na,b,lp,li,lx)
CALL ldldsolve(na,b,d)
CALL ldlltsolve(na,b,lp,li,lx)
END SUBROUTINE solvesystem
SUBROUTINE solvesky(n,ia,ja,a,b,x)
USE basfun
IMPLICIT REAL(8) (a-h,o-z)
LOGICAL,SAVE::ifirst=.TRUE.
LOGICAL::sere
REAL(8),DIMENSION(*)::a,b,x
INTEGER,DIMENSION(*)::ia,ja
INTEGER,DIMENSION(:),ALLOCATABLE,SAVE::iapo
REAL(8),DIMENSION(:),ALLOCATABLE,SAVE::diag
REAL(8),DIMENSION(:),ALLOCATABLE,SAVE::triai,trias
INTEGER,DIMENSION(:),ALLOCATABLE,SAVE::list,temp
IF(ifirst)THEN
CALL salloc(n,list)
CALL salloc(n,temp)
do i=1,n
list(i)=i
temp(i)=i
end do
ifirst=.FALSE.
CALL ordenn(ja,ia,n,n,list,sere,redu,ierr)
CALL ncopy(n,temp,list)
DO i=1,n
list(temp(i))=i
END DO
1111 continue
END IF
CALL salloc(n,iapo)
DO i=1,n
irow=list(i)
DO j=ia(i),ia(i+1)-1
icol=list(ja(j))
IF(icol.GE.irow)iapo(icol)=MAX(iapo(icol),icol-irow)
END DO
END DO
iapo(1)=0
DO i=2,n
iapo(i)=iapo(i)+iapo(i-1)
END DO
CALL salloc(iapo(n),trias)
CALL salloc(iapo(n),triai)
CALL salloc(n,diag)
DO i=1,n
irow=list(i)
DO j=ia(i),ia(i+1)-1
icol=list(ja(j))
IF(icol.GT.irow)THEN
trias(iapo(icol)-icol+irow+1)=a(j)
elseif(icol.lt.irow)then
triai(iapo(irow)-irow+icol+1)=a(j)
ELSEIF(icol.EQ.irow)THEN
diag(icol)=a(j)
END IF
END DO
END DO
CALL dvperm(n,b,list)
CALL decomptri(triai,trias,diag,iapo,n)
CALL resolve(triai,trias,diag,b,x,iapo,n)
CALL dvperm(n,x,temp)
END SUBROUTINE solvesky
SUBROUTINE decomptri(triai,trias,diag,iapo,nequ)
USE basfun
IMPLICIT REAL(8) (a-h,o-z)
LOGICAL::asym
REAL(8),DIMENSION(*)::triai,trias,diag
INTEGER,DIMENSION(*)::iapo
IF(loc(triai(1)).NE.loc(trias(1)))THEN
asym=.TRUE.
ELSE
asym=.FALSE.
END IF
jdiag=1
DO jequ=1,nequ
jlin=jdiag+1
jdiag=iapo(jequ)
jalt=jdiag-jlin
IF(jalt.GT.0)THEN
iini=jequ-jalt
iequ=jequ-1
DO i=iini,iequ
jlin=jlin+1
idiag=iapo(i)
ialt=MIN(idiag-iapo(i-1),i-iini+1)
IF(ialt.GT.0) THEN
jlina=jlin-ialt
idalt=idiag-ialt+1
IF(jlin.GT.iapo(nequ).OR.jlin.LE.0)STOP "error in exceeding"
trias(jlin)=trias(jlin)-dotprod(ialt,trias(jlina),triai(idalt))
IF(asym)THEN
triai(jlin)=triai(jlin)-dotprod(ialt,triai(jlina),trias(idalt))
ENDIF
ENDIF
ENDDO
ENDIF
IF(jalt.GE.0)THEN
dd=diag(jequ)
jlin=jdiag-jalt
jlina=jequ-jalt-1
CALL reducc(triai(jlin),trias(jlin),diag(jlina),jalt+1,asym,diag(jequ))
ENDIF
diag(jequ)=1.0d00/diag(jequ)
ENDDO
END SUBROUTINE decomptri
SUBROUTINE resolve(triai,trias,diag,segm,solu,iapo,nequ)
USE basfun
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::triai,trias,diag,segm,solu
INTEGER,DIMENSION(*)::iapo
DO iequ=1,nequ
solu(iequ)=segm(iequ)
ENDDO
DO jequ=2,nequ
jlin=iapo(jequ-1)
jalt=iapo(jequ)-jlin
IF(jalt.GT.0)THEN
solu(jequ)=solu(jequ)-dotprod(jalt,triai(jlin+1),solu(jequ-jalt))
ENDIF
ENDDO
DO jequ=1,nequ
solu(jequ)=solu(jequ)*diag(jequ)
ENDDO
IF(nequ.GT.1)THEN
DO jequ=nequ,2,-1
jlin=iapo(jequ-1)
jalt=iapo(jequ)-jlin
IF(jalt.GT.0)THEN
CALL redcolu(trias(jlin+1),solu(jequ),jalt,solu(jequ-jalt))
ENDIF
ENDDO
ENDIF
END SUBROUTINE resolve
SUBROUTINE reducc(triai,trias,diag,jh,asym,dj)
IMPLICIT REAL(8) (a-h,o-z)
LOGICAL::asym
REAL(8),DIMENSION(jh)::triai,trias,diag
DO j=1,jh
ud=trias(j)*diag(j)
dj=dj-triai(j)*ud
trias(j)=ud
ENDDO
IF(asym)THEN
DO j=1,jh
triai(j)=triai(j)*diag(j)
ENDDO
ENDIF
RETURN
END SUBROUTINE reducc
SUBROUTINE redcolu(trias,xj,nn,segm)
IMPLICIT REAL(8) (a-h,o-z)
REAL(8),DIMENSION(*)::trias,segm
DO n=1,nn
segm(n)=segm(n)-trias(n)*xj
ENDDO
RETURN
END SUBROUTINE redcolu
SUBROUTINE ldlsymbolic(n,ap,ai,lp,parent,lnz)
USE basfun
INTEGER,DIMENSION(*)::ap,ai,parent,lnz,lp
INTEGER,DIMENSION(:),ALLOCATABLE::flag
CALL salloc(n,flag)
DO k=1,n
parent(k)=0
flag(k)=k
lnz(k)=0
DO ip=ap(k),ap(k+1)-1
i=ai(ip)
IF(i.LT.k)THEN
DO
IF(flag(i).EQ.k)EXIT
IF(parent(i).EQ.0)parent(i)=k
lnz(i)=lnz(i)+1
flag(i)=k
i=parent(i)
END DO
END IF
END DO
END DO
lp(1)=1
DO k=1,n
lp(k+1)=lp(k)+lnz(k)
END DO
CALL salloc(0,flag)
END SUBROUTINE ldlsymbolic
SUBROUTINE ldlnumeric(n,ap,ai,ax,lp,parent,lnz,li,lx,d)
USE basfun
IMPLICIT REAL(8)(a-h,o-z)
INTEGER,DIMENSION(*)::ap,ai
REAL(8),DIMENSION(*)::ax
INTEGER,DIMENSION(*)::lp
INTEGER,DIMENSION(*)::parent
INTEGER,DIMENSION(*)::lnz
INTEGER,DIMENSION(*)::li
REAL(8),DIMENSION(*)::lx,d
REAL(8),DIMENSION(:),ALLOCATABLE::y
INTEGER,DIMENSION(:),ALLOCATABLE::pattern
INTEGER,DIMENSION(:),ALLOCATABLE::flag
REAL(8)::l_ki
INTEGER::top,p2
ALLOCATE(y(n))
CALL salloc(n,pattern);pattern=1
CALL salloc(n,flag)
flag=0
DO k=1,n!ok
y(k)=0.0e00
top=n+1!ok
flag(k)=k!ok
lnz(k)=0!ok
p2=ap(k+1)
DO ip=ap(k),ap(k+1)-1
i=ai(ip)
IF(i.LE.k)THEN
y(i)=y(i)+ax(ip)
len=1
DO
IF(flag(i).EQ.k)EXIT
pattern(len)=i
len=len+1
flag(i)=k
i=parent(i)
END DO
DO WHILE(len.GT.1)
len=len-1
top=top-1
pattern(top)=pattern(len)
END DO
END IF
END DO
d(k)=y(k)
y(k)=0.0e00
DO
IF(top.GE.n+1)EXIT
i=pattern(top)
yi=y(i)
y(i)=0.0e00
p2=lp(i)+lnz(i)
DO jp=lp(i),p2-1
y(li(jp))=y(li(jp))-lx(jp)*yi
END DO
l_ki=yi/d(i)
d(k)=d(k)-l_ki*yi
li(p2)=k
lx(p2)=l_ki
lnz(i)=lnz(i)+1
top=top+1
END DO
END DO
DEALLOCATE(y)
END SUBROUTINE ldlnumeric
SUBROUTINE ldllsolve(n,x,lp,li,lx)
IMPLICIT REAL(8)(a-h,o-z)
REAL(8),DIMENSION(*)::x,lx
INTEGER,DIMENSION(*)::lp,li
INTEGER::p
DO j=1,n
DO p=lp(j),lp(j+1)-1
x(li(p))=x(li(p))-lx(p)*x(j)
END DO
END DO
END SUBROUTINE ldllsolve
SUBROUTINE ldldsolve(n,x,d)
REAL(8),DIMENSION(*)::x,d
DO j=1,n
x(j)=x(j)/d(j)
END DO
END SUBROUTINE ldldsolve
SUBROUTINE ldlltsolve(n,x,lp,li,lx)
IMPLICIT REAL(8)(a-h,o-z)
REAL(8),DIMENSION(*)::x,lx
INTEGER,DIMENSION(*)::lp,li
INTEGER::p
DO j=n,1,-1
DO p=lp(j),lp(j+1)-1
x(j)=x(j)-lx(p)*x(li(p))
END DO
END DO
END SUBROUTINE ldlltsolve

SUBROUTINE ordenn(elno,elni,nele,nnos,list,sere,redu,ierr)
INTEGER::snode,oldpro,newpro,e2
INTEGER,DIMENSION(*)::elni
INTEGER,DIMENSION(*)::elno
INTEGER,DIMENSION(:),ALLOCATABLE::iper
INTEGER,DIMENSION(*)::list
INTEGER,DIMENSION(:),ALLOCATABLE::iw
INTEGER,DIMENSION(:),ALLOCATABLE::adj ! lista de adjacências
INTEGER,DIMENSION(:),ALLOCATABLE::xadj	! indice para adj
REAL(8)::redu
LOGICAL::sere
ALLOCATE(iper(nnos),iw(3*nnos+1),xadj(nnos+1),stat=ierr)
IF(ierr.NE.0)THEN
ierr=12
RETURN
ENDIF
ierr=0
DO i=1,nnos
list(i)=0
ENDDO
iadj=0
DO iele=1,nele
nnel=elni(iele+1)-elni(iele)
iadj=iadj+nnel*(nnel-1)
ENDDO
ALLOCATE(adj(iadj),stat=ierr)
IF(ierr.NE.0)THEN
ierr=10
RETURN
ENDIF
adj=0
xadj=0
DO i=1,nele
jstrt=elni(i)
jstop=elni(i+1)-1
nen1=jstop-jstrt
DO j=jstrt,jstop
nodej=elno(j)
IF(nodej.NE.0)xadj(nodej)=xadj(nodej)+nen1
ENDDO
ENDDO
l=1
DO i=1,nnos
l=l+xadj(i)
xadj(i)=l-xadj(i)
ENDDO
xadj(nnos+1)=l
ido:DO i=1,nele
jstrt=elni(i)
jstop=elni(i+1)-1
jdo:DO j=jstrt,jstop-1
nodej=elno(j)
IF(nodej.EQ.0)CYCLE
lstrt=xadj(nodej)
lstop=xadj(nodej+1)-1
kdo:DO k=j+1,jstop
nodek=elno(k)
IF(nodek.EQ.0)CYCLE
ldo:DO l=lstrt,lstop
lll=l
IF(adj(l).EQ.nodek)CYCLE kdo
IF(adj(l).EQ.0)EXIT	ldo
ENDDO ldo
IF(adj(lll).NE.0)THEN
ierr=11
RETURN
ENDIF
adj(l)=nodek
mstrt=xadj(nodek)
mstop=xadj(nodek+1)-1
mdo: DO m=mstrt,mstop
mmm=m
IF(adj(m).EQ.0)EXIT
ENDDO mdo
IF(adj(mmm).NE.0)THEN
ierr=12
RETURN
ENDIF
adj(m)=nodej
ENDDO kdo
ENDDO jdo
ENDDO ido
k=0
jstrt=1
iido:DO i=1,nnos
jstop=xadj(i+1)-1
jjdo:DO j=jstrt,jstop
IF(adj(j).EQ.0)EXIT jjdo
k=k+1
adj(k)=adj(j)
ENDDO jjdo
xadj(i+1)=k+1
jstrt=jstop+1
ENDDO iido
e2=xadj(nnos+1)-1
i1=1
i2=i1+nnos
i3=i2+nnos+1
lstnum=0
20 CONTINUE
CALL diamtr(nnos,adj,xadj,list,iw(i1),iw(i2),iw(i3),snode,nc)
CALL numberm(nc,snode,lstnum,adj,xadj,list,iw(i1),iw(i2))
IF(lstnum.LT.nnos)GOTO 20
CALL profil(nnos,list,adj,xadj,oldpro,newpro)
sere=.FALSE.
redu=-100.0d00*(newpro-oldpro)/oldpro
IF(oldpro.LE.newpro)THEN
DO inos=1,nnos
iper(list(inos))=inos
ENDDO
DO inos=1,nnos
list(inos)=iper(inos)
ENDDO
ELSE
sere=.TRUE.
DO inos=1,nnos
iper(list(inos))=inos
ENDDO
DO inos=1,nnos
list(inos)=iper(inos)
ENDDO
ENDIF
DEALLOCATE(adj,iper,iw,xadj)
END SUBROUTINE ordenn
SUBROUTINE diamtr(n,adj,xadj,mask,ls,xls,hlevel,snode,nc)
INTEGER nc,j,snode,degree,mindeg,istrt,istop,hsize,node,jstrt &
,jstop,ewidth,i,width,depth,enode,n,sdepth,xadj(*),adj(*), &
xls(*),ls(*),mask(*),hlevel(*)
mindeg=n
DO i=1,n
IF(mask(i).NE.0)CYCLE
degree=xadj(i+1)-xadj(i)
IF(degree.GE.mindeg)CYCLE
snode=i
mindeg=degree
ENDDO
CALL rootls(n,snode,n+1,adj,xadj,mask,ls,xls,sdepth,width)
nc=xls(sdepth+1)-1
15 CONTINUE
hsize=0
istrt=xls(sdepth)
istop=xls(sdepth+1)-1
DO i=istrt,istop
node=ls(i)
hsize=hsize+1
hlevel(hsize)=node
xls(node)=xadj(node+1)-xadj(node)
ENDDO
IF(hsize.GT.1)CALL isorti(hsize,hlevel,xls)
istop=hsize
hsize=1
degree=xls(hlevel(1))
DO i=2,istop
node=hlevel(i)
IF(xls(node).EQ.degree)CYCLE
degree=xls(node)
hsize=hsize+1
hlevel(hsize)=node
ENDDO
ewidth=nc+1
DO i=1,hsize
node=hlevel(i)
CALL rootls(n,node,ewidth,adj,xadj,mask,ls,xls,depth,width)
IF(width.GE.ewidth)CYCLE
IF(depth.GT.sdepth)THEN
snode=node
sdepth=depth
GOTO 15
ENDIF
enode=node
ewidth=width
ENDDO
IF(node.NE.enode)THEN
CALL rootls(n,enode,nc+1,adj,xadj,mask,ls,xls,depth,width)
ENDIF
DO i=1,depth
jstrt=xls(i)
jstop=xls(i+1)-1
DO j=jstrt,jstop
mask(ls(j))=i-1
ENDDO
ENDDO
END SUBROUTINE diamtr
SUBROUTINE rootls(n,root,maxwid,adj,xadj,mask,ls,xls,depth,width)
INTEGER root,depth,nbr,maxwid,lstrt,lstop,lwdth,node,nc,width,n, &
jstrt,jstop,i,j,xadj(*),adj(*),mask(n),xls(*),ls(*)
mask(root)=1
ls(1)=root
nc=1
width=1
depth=0
lstop=0
lwdth=1
1 CONTINUE
lstrt=lstop+1
lstop=nc
depth=depth+1
xls(depth)=lstrt
DO i=lstrt,lstop
node=ls(i)
jstrt=xadj(node)
jstop=xadj(node+1)-1
DO j=jstrt,jstop
nbr=adj(j)
IF(mask(nbr).EQ.0)THEN
nc=nc+1
ls(nc)=nbr
mask(nbr)=1
ENDIF
ENDDO
ENDDO
lwdth=nc-lstop
width=MAX(lwdth,width)
IF(width.GE.maxwid)GOTO 2
IF(lwdth.GT.0)GOTO 1
xls(depth+1)=lstop+1
2 CONTINUE
DO i=1,nc
mask(ls(i))=0
ENDDO
END SUBROUTINE rootls
SUBROUTINE isorti(nl,list,key)
INTEGER nl,i,j,t,value,list(*),key(*)
DO 11 i=2,nl
t=list(i)
value=key(t)
DO 22 j=i-1,1,-1
IF(value.LT.key(list(j)))GOTO 22
list(j+1)=t
GOTO 11
list(j+1)=list(j)
22      CONTINUE
list(1)=t
11      CONTINUE
END SUBROUTINE isorti
SUBROUTINE numberm(nc,snode,lstnum,adj,xadj,s,q,p)
INTEGER nc,lstnum,jstrt,jstop,istop,nbr,nabor,i,j,next,insertres, &
node,snode,istrt,maxprt,prty,w1,w2,q(*),xadj(*),nq,adj(*),p(*),s(*), &
active,preactive,inactive
DATA w1,w2,active,preactive,inactive/1,2,0,-1,-2/
DO i=1,nc
node=q(i)
p(node)=w1*s(node)-w2*(xadj(node+1)-xadj(node)+1)
s(node)=inactive
ENDDO
nq=1
q(nq)=snode
s(snode)=preactive
1       CONTINUE
insertres=1
maxprt=p(q(1))
DO i=2,nq
prty=p(q(i))
IF(prty.LE.maxprt)CYCLE
insertres=i
maxprt=prty
ENDDO
next=q(insertres)
q(insertres)=q(nq)
nq=nq-1
istrt=xadj(next)
istop=xadj(next+1)-1
IF(s(next).EQ.preactive)THEN
DO i=istrt,istop
nbr=adj(i)
p(nbr)=p(nbr)+w2
IF(s(nbr).NE.inactive)CYCLE
nq=nq+1
q(nq)=nbr
s(nbr)=preactive
ENDDO
ENDIF
lstnum=lstnum+1
s(next)=lstnum
DO i=istrt,istop
nbr=adj(i)
IF(s(nbr).NE.preactive)CYCLE
p(nbr)=p(nbr)+w2
s(nbr)=active
jstrt=xadj(nbr)
jstop=xadj(nbr+1)-1
DO j=jstrt,jstop
nabor=adj(j)
p(nabor)=p(nabor)+w2
IF(s(nabor).NE.inactive)CYCLE
nq=nq+1
q(nq)=nabor
s(nabor)=preactive
ENDDO
ENDDO
IF(nq.GT.0) GOTO 1
END SUBROUTINE numberm
SUBROUTINE profil(n,nnn,adj,xadj,oldpro,newpro)
INTEGER newpro,i,j,n,jstrt,jstop,oldpro,newmin,oldmin,nnn(*) &
,xadj(*),adj(*)
oldpro=0
newpro=0
DO i=1,n
jstrt=xadj(i)
jstop=xadj(i+1)-1
oldmin=adj(jstrt)
IF(oldmin.LE.0)CYCLE
newmin=nnn(adj(jstrt))
DO j=jstrt+1,jstop
oldmin=MIN(oldmin,adj(j))
newmin=MIN(newmin,nnn(adj(j)))
ENDDO
oldpro=oldpro+DIM(i,oldmin)
newpro=newpro+DIM(nnn(i),newmin)
ENDDO
oldpro=oldpro+n
newpro=newpro+n
END SUBROUTINE profil
module geompack
contains
FUNCTION d_is_int ( r )

implicit none

integer i
real ( kind = 8 ) r
logical d_is_int

if ( real ( huge ( i ), kind = 8 ) < r ) then
d_is_int = .false.
else if ( r < - real ( huge ( i ), kind = 8 ) ) then
d_is_int = .false.
else if ( r == real ( int ( r ), kind = 8 ) ) then
d_is_int = .true.
else
d_is_int = .false.
end if

return
END FUNCTION d_is_int
SUBROUTINE d2vec_part_quick_a ( n, a, l, r )

implicit none

integer n
integer, parameter :: dim_num = 2

real ( kind = 8 ) a(dim_num,n)
integer i
real ( kind = 8 ) key(dim_num)
integer l
integer m
integer r

if ( n < 1 ) then
write ( *, '(a)' ) ' '
write ( *, '(a)' ) 'D2VEC_PART_QUICK_A - Fatal error!'
write ( *, '(a)' ) '  N < 1.'
stop
else if ( n == 1 ) then
l = 0
r = 2
return
end if

key(1:dim_num) = a(1:dim_num,1)
m = 1
l = 1
r = n + 1

do i = 2, n

if ( dvec_gt ( dim_num, a(1:dim_num,l+1), key(1:dim_num) ) ) then
r = r - 1
call dvec_swap ( dim_num, a(1:dim_num,r), a(1:dim_num,l+1) )
else if ( dvec_eq ( dim_num, a(1:dim_num,l+1), key(1:dim_num) ) ) then
m = m + 1
call dvec_swap ( dim_num, a(1:dim_num,m), a(1:dim_num,l+1) )
l = l + 1
else if ( dvec_lt ( dim_num, a(1:dim_num,l+1), key(1:dim_num) ) ) then
l = l + 1
end if

end do
do i = 1, l - m
a(1:dim_num,i) = a(1:dim_num,i+m)
end do

l = l - m

do i = 1, dim_num
a(i,l+1:l+m) = key(i)
end do

return
END SUBROUTINE d2vec_part_quick_a
SUBROUTINE d2vec_permute ( n, a, p )

implicit none

integer n

real ( kind = 8 ) a(2,n)
real ( kind = 8 ) a_temp(2)
integer ierror
integer iget
integer iput
integer istart
integer p(n)

call perm_check ( n, p, ierror )

if ( ierror /= 0 ) then
write ( *, '(a)' ) ' '
write ( *, '(a)' ) 'D2VEC_PERMUTE - Fatal error!'
write ( *, '(a)' ) '  The input array does not represent'
write ( *, '(a)' ) '  a proper permutation.  In particular, the'
write ( *, '(a,i6)' ) '  array is missing the value ', ierror
stop
end if
do istart = 1, n

if ( p(istart) < 0 ) then

cycle

else if ( p(istart) == istart ) then

p(istart) = -p(istart)
cycle

else

a_temp(1:2) = a(1:2,istart)
iget = istart
do

iput = iget
iget = p(iget)

p(iput) = -p(iput)

if ( iget < 1 .or. n < iget ) then
write ( *, '(a)' ) ' '
write ( *, '(a)' ) 'D2VEC_PERMUTE - Fatal error!'
stop
end if

if ( iget == istart ) then
a(1:2,iput) = a_temp(1:2)
exit
end if

a(1:2,iput) = a(1:2,iget)

end do

end if

end do
p(1:n) = -p(1:n)

return
END SUBROUTINE d2vec_permute
SUBROUTINE d2vec_sort_heap_index_a ( n, a, indx )

implicit none

integer n

real ( kind = 8 ) a(2,n)
real ( kind = 8 ) aval(2)
integer i
integer indx(n)
integer indxt
integer ir
integer j
integer l

if ( n < 1 ) then
return
end if

do i = 1, n
indx(i) = i
end do

if ( n == 1 ) then
return
end if

l = n / 2 + 1
ir = n

do

if ( 1 < l ) then

l = l - 1
indxt = indx(l)
aval(1:2) = a(1:2,indxt)

else

indxt = indx(ir)
aval(1:2) = a(1:2,indxt)
indx(ir) = indx(1)
ir = ir - 1

if ( ir == 1 ) then
indx(1) = indxt
exit
end if

end if

i = l
j = l + l

do while ( j <= ir )

if ( j < ir ) then
if (   a(1,indx(j)) <  a(1,indx(j+1)) .or. &
( a(1,indx(j)) == a(1,indx(j+1)) .and. &
a(2,indx(j)) <  a(2,indx(j+1)) ) ) then
j = j + 1
end if
end if

if (   aval(1) <  a(1,indx(j)) .or. &
( aval(1) == a(1,indx(j)) .and. &
aval(2) <  a(2,indx(j)) ) ) then
indx(i) = indx(j)
i = j
j = j + j
else
j = ir + 1
end if

end do

indx(i) = indxt

end do

return
END SUBROUTINE d2vec_sort_heap_index_a
SUBROUTINE d2vec_sort_quick_a ( n, a )

implicit none

integer, parameter :: level_max = 25
integer n
integer, parameter :: dim_num = 2

real ( kind = 8 ) a(dim_num,n)
integer base
integer l_segment
integer level
integer n_segment
integer rsave(level_max)
integer r_segment

if ( n < 1 ) then
write ( *, '(a)' ) ' '
write ( *, '(a)' ) 'D2VEC_SORT_QUICK_A - Fatal error!'
write ( *, '(a)' ) '  N < 1.'
stop
else if ( n == 1 ) then
return
end if

level = 1
rsave(level) = n + 1
base = 1
n_segment = n

do
call d2vec_part_quick_a ( n_segment, a(1,base), l_segment, r_segment )
if ( 1 < l_segment ) then

if ( level_max < level ) then
write ( *, '(a)' ) ' '
write ( *, '(a)' ) 'D2VEC_SORT_QUICK_A - Fatal error!'
write ( *, '(a,i6)' ) '  Exceeding recursion maximum of ', level_max
stop
end if

level = level + 1
n_segment = l_segment
rsave(level) = r_segment + base - 1
else if ( r_segment < n_segment ) then

n_segment = n_segment + 1 - r_segment
base = base + r_segment - 1
else

do

if ( level <= 1 ) then
return
end if

base = rsave(level)
n_segment = rsave(level-1) - rsave(level)
level = level - 1

if ( 0 < n_segment ) then
exit
end if

end do

end if

end do

return
END SUBROUTINE d2vec_sort_quick_a

SUBROUTINE dmat_transpose_print ( m, n, a, title )

implicit none

integer m
integer n

real ( kind = 8 ) a(m,n)
character ( len = * ) title

call dmat_transpose_print_some ( m, n, a, 1, 1, m, n, title )

return
END SUBROUTINE dmat_transpose_print
SUBROUTINE dmat_transpose_print_some ( m, n, a, ilo, jlo, ihi, jhi, title )

implicit none

integer, parameter :: incx = 5
integer m
integer n

real ( kind = 8 ) a(m,n)
character ( len = 14 ) ctemp(incx)
integer i
integer i2
integer i2hi
integer i2lo
integer ihi
integer ilo
integer inc
integer j
integer j2hi
integer j2lo
integer jhi
integer jlo
character ( len = * ) title

if ( 0 < len_trim ( title ) ) then
write ( *, '(a)' ) ' '
write ( *, '(a)' ) trim ( title )
end if

do i2lo = max ( ilo, 1 ), min ( ihi, m ), incx

i2hi = i2lo + incx - 1
i2hi = min ( i2hi, m )
i2hi = min ( i2hi, ihi )

inc = i2hi + 1 - i2lo

write ( *, '(a)' ) ' '

do i = i2lo, i2hi
i2 = i + 1 - i2lo
write ( ctemp(i2), '(i7,7x)') i
end do

write ( *, '(''  Row   '',5a14)' ) ctemp(1:inc)
write ( *, '(a)' ) '  Col'
write ( *, '(a)' ) ' '

j2lo = max ( jlo, 1 )
j2hi = min ( jhi, n )

do j = j2lo, j2hi

do i2 = 1, inc
i = i2lo - 1 + i2
write ( ctemp(i2), '(g14.6)' ) a(i,j)
end do

write ( *, '(i5,1x,5a14)' ) j, ( ctemp(i), i = 1, inc )

end do

end do

write ( *, '(a)' ) ' '

return
END SUBROUTINE dmat_transpose_print_some
SUBROUTINE dmat_uniform ( m, n, a, b, seed, r )

implicit none

integer m
integer n

real ( kind = 8 ) a
real ( kind = 8 ) b
integer i
integer j
integer k
integer seed
real ( kind = 8 ) r(m,n)

do j = 1, n

do i = 1, m

k = seed / 127773

seed = 16807 * ( seed - k * 127773 ) - k * 2836

if ( seed < 0 ) then
seed = seed + 2147483647
end if

r(i,j) = a + ( b - a ) * real ( seed, kind = 8 ) * 4.656612875D-10

end do
end do

return
END SUBROUTINE dmat_uniform
subroutine delamesh2d(n,x,ne,co)
implicit real(8) (a-h,o-z)
integer,dimension(3,*)::co
real(8),dimension(2,*)::x
real(8),dimension(:,:),allocatable::xt
integer,dimension(:,:),allocatable::tn
allocate(tn(3,2*n),xt(2,n))
do i=1,n
do j=1,2
xt(j,i)=x(j,i)
end do
end do
call dtris2(n,xt,ne,co,tn)
deallocate(xt,tn)
end subroutine delamesh2d
subroutine dtris2(node_num,node_xy,triangle_num,triangle_node,triangle_neighbor)
implicit none

integer node_num

real ( kind = 8 ) cmax
integer e
integer i
integer ierr
integer,dimension(:),allocatable::indx,stack
integer j
integer k
integer l
integer ledg
integer lr
integer ltri
integer m
integer m1
integer m2
integer n
real ( kind = 8 ) node_xy(2,node_num)
integer redg
integer rtri
integer t
real ( kind = 8 ) tol
integer top
integer triangle_neighbor(3,node_num*2)
integer triangle_num
integer triangle_node(3,node_num*2)
allocate(indx(node_num),stack(node_num))
tol = 100.0D+00 * tiny ( tol )

ierr = 0
call d2vec_sort_heap_index_a ( node_num, node_xy, indx )

call d2vec_permute ( node_num, node_xy, indx )
m1 = 1

do i = 2, node_num

m = m1
m1 = i

k = 0

do j = 1, 2

cmax = 0.0d00!max ( abs ( node_xy(j,m) ), abs ( node_xy(j,m1) ) )

if ( tol * ( cmax + 1.0D+00 ) &
< abs ( node_xy(j,m) - node_xy(j,m1) ) ) then
k = j
exit
end if

end do

if ( k == 0 ) then
write ( *, '(a)' ) ' '
write ( *, '(a)' ) 'DTRIS2 - Fatal error!'
write ( *, '(a,i6)' ) '  Fails for point number I = ', i
write ( *, '(a,i6)' ) '  M = ', m
write ( *, '(a,i6)' ) '  M1 = ', m1
write ( *, '(a,2g14.6)' ) '  X,Y(M)  = ', node_xy(1:2,m)
write ( *, '(a,2g14.6)' ) '  X,Y(M1) = ', node_xy(1:2,m1)
ierr = 224
return
end if

end do
m1 = 1
m2 = 2
j = 3

do

if ( node_num < j ) then
write ( *, '(a)' ) ' '
write ( *, '(a)' ) 'DTRIS2 - Fatal error!'
ierr = 225
return
end if

m = j

lr = lrline ( node_xy(1,m), node_xy(2,m), node_xy(1,m1), &
node_xy(2,m1), node_xy(1,m2), node_xy(2,m2), 0.0D+00 )

if ( lr /= 0 ) then
exit
end if

j = j + 1

end do
triangle_num = j - 2

if ( lr == -1 ) then

triangle_node(1,1) = m1
triangle_node(2,1) = m2
triangle_node(3,1) = m
triangle_neighbor(3,1) = -3

do i = 2, triangle_num

m1 = m2
m2 = i+1
triangle_node(1,i) = m1
triangle_node(2,i) = m2
triangle_node(3,i) = m
triangle_neighbor(1,i-1) = -3 * i
triangle_neighbor(2,i-1) = i
triangle_neighbor(3,i) = i - 1

end do

triangle_neighbor(1,triangle_num) = -3 * triangle_num - 1
triangle_neighbor(2,triangle_num) = -5
ledg = 2
ltri = triangle_num

else

triangle_node(1,1) = m2
triangle_node(2,1) = m1
triangle_node(3,1) = m
triangle_neighbor(1,1) = -4

do i = 2, triangle_num
m1 = m2
m2 = i+1
triangle_node(1,i) = m2
triangle_node(2,i) = m1
triangle_node(3,i) = m
triangle_neighbor(3,i-1) = i
triangle_neighbor(1,i) = -3 * i - 3
triangle_neighbor(2,i) = i - 1
end do

triangle_neighbor(3,triangle_num) = -3 * triangle_num
triangle_neighbor(2,1) = -3 * triangle_num - 2
ledg = 2
ltri = 1

end if
top = 0

do i = j+1, node_num

m = i
m1 = triangle_node(ledg,ltri)

if ( ledg <= 2 ) then
m2 = triangle_node(ledg+1,ltri)
else
m2 = triangle_node(1,ltri)
end if

lr = lrline ( node_xy(1,m), node_xy(2,m), node_xy(1,m1), &
node_xy(2,m1), node_xy(1,m2), node_xy(2,m2), 0.0D+00 )

if ( 0 < lr ) then
rtri = ltri
redg = ledg
ltri = 0
else
l = -triangle_neighbor(ledg,ltri)
rtri = l / 3
redg = mod(l,3) + 1
end if

call vbedg ( node_xy(1,m), node_xy(2,m), node_num, node_xy, triangle_num, &
triangle_node, triangle_neighbor, ltri, ledg, rtri, redg )

n = triangle_num + 1
l = -triangle_neighbor(ledg,ltri)

do

t = l / 3
e = mod ( l, 3 ) + 1
l = -triangle_neighbor(e,t)
m2 = triangle_node(e,t)

if ( e <= 2 ) then
m1 = triangle_node(e+1,t)
else
m1 = triangle_node(1,t)
end if

triangle_num = triangle_num + 1
triangle_neighbor(e,t) = triangle_num
triangle_node(1,triangle_num) = m1
triangle_node(2,triangle_num) = m2
triangle_node(3,triangle_num) = m
triangle_neighbor(1,triangle_num) = t
triangle_neighbor(2,triangle_num) = triangle_num - 1
triangle_neighbor(3,triangle_num) = triangle_num + 1
top = top + 1

if ( node_num < top ) then
ierr = 8
write ( *, '(a)' ) ' '
write ( *, '(a)' ) 'DTRIS2 - Fatal error!'
write ( *, '(a)' ) '  Stack overflow.'
return
end if

stack(top) = triangle_num

if ( t == rtri .and. e == redg ) then
exit
end if

end do

triangle_neighbor(ledg,ltri) = -3 * n - 1
triangle_neighbor(2,n) = -3 * triangle_num - 2
triangle_neighbor(3,triangle_num) = -l
ltri = n
ledg = 2

call swapec ( m, top, ltri, ledg, node_num, node_xy, triangle_num, &
triangle_node, triangle_neighbor, stack, ierr )

if ( ierr /= 0 ) then
write ( *, '(a)' ) ' '
write ( *, '(a)' ) 'DTRIS2 - Fatal error!'
write ( *, '(a)' ) '  Error return from SWAPEC.'
return
end if

end do
do i = 1, 3
do j = 1, triangle_num
triangle_node(i,j) = indx ( triangle_node(i,j) )
end do
end do

call perm_inv ( node_num, indx )

call d2vec_permute ( node_num, node_xy, indx )
deallocate(indx,stack)
return
end subroutine dtris2
FUNCTION dvec_eq ( n, a1, a2 )

implicit none

integer n

real ( kind = 8 ) a1(n)
real ( kind = 8 ) a2(n)
logical dvec_eq

dvec_eq = ( all ( a1(1:n) == a2(1:n) ) )

return
END FUNCTION dvec_eq
FUNCTION dvec_gt ( n, a1, a2 )

implicit none

integer n

real ( kind = 8 ) a1(n)
real ( kind = 8 ) a2(n)
logical dvec_gt
integer i

dvec_gt = .false.

do i = 1, n

if ( a2(i) < a1(i) ) then
dvec_gt = .true.
exit
else if ( a1(i) < a2(i) ) then
dvec_gt = .false.
exit
end if

end do

return
END FUNCTION dvec_gt
FUNCTION dvec_lt ( n, a1, a2 )

implicit none

integer n

real ( kind = 8 ) a1(n)
real ( kind = 8 ) a2(n)
logical dvec_lt
integer i

dvec_lt = .false.

do i = 1, n

if ( a1(i) < a2(i) ) then
dvec_lt = .true.
exit
else if ( a2(i) < a1(i) ) then
dvec_lt = .false.
exit
end if

end do

return
END FUNCTION dvec_lt
SUBROUTINE dvec_print ( n, a, title )

implicit none

integer n

real ( kind = 8 ) a(n)
integer i
character ( len = * ) title

if ( 0 < len_trim ( title ) ) then
write ( *, '(a)' ) ' '
write ( *, '(a)' ) trim ( title )
end if

write ( *, '(a)' ) ' '
do i = 1, n
write ( *, '(2x,i6,g16.8)' ) i, a(i)
end do

return
END SUBROUTINE dvec_print
SUBROUTINE dvec_swap ( n, a1, a2 )

implicit none

integer n

real ( kind = 8 ) a1(n)
real ( kind = 8 ) a2(n)
real ( kind = 8 ) a3(n)

a3(1:n) = a1(1:n)
a1(1:n) = a2(1:n)
a2(1:n) = a3(1:n)

return
END SUBROUTINE dvec_swap
SUBROUTINE get_unit ( iunit )

implicit none

integer i
integer ios
integer iunit
logical lopen

iunit = 0

do i = 1, 99

if ( i /= 5 .and. i /= 6 .and. i /= 9 ) then

inquire ( unit = i, opened = lopen, iostat = ios )

if ( ios == 0 ) then
if ( .not. lopen ) then
iunit = i
return
end if
end if

end if

end do

return
END SUBROUTINE get_unit
FUNCTION i_modp ( i, j )

implicit none

integer i
integer i_modp
integer j

if ( j == 0 ) then
write ( *, '(a)' ) ' '
write ( *, '(a)' ) 'I_MODP - Fatal error!'
write ( *, '(a,i6)' ) '  I_MODP ( I, J ) called with J = ', j
stop
end if

i_modp = mod ( i, j )

if ( i_modp < 0 ) then
i_modp = i_modp + abs ( j )
end if

return
END FUNCTION i_modp
SUBROUTINE i_swap ( i, j )

implicit none

integer i
integer j
integer k

k = i
i = j
j = k

return
END SUBROUTINE i_swap
integer FUNCTION i_wrap ( ival, ilo, ihi )

implicit none


integer ihi
integer ilo
integer ival
integer jhi
integer jlo
integer wide

jlo = min ( ilo, ihi )
jhi = max ( ilo, ihi )

wide = jhi - jlo + 1

if ( wide == 1 ) then
i_wrap = jlo
else
i_wrap = jlo + i_modp ( ival - jlo, wide )
end if

return
END FUNCTION i_wrap
SUBROUTINE imat_transpose_print ( m, n, a, title )

implicit none

integer m
integer n

integer a(m,n)
character ( len = * ) title

call imat_transpose_print_some ( m, n, a, 1, 1, m, n, title )

return
END SUBROUTINE imat_transpose_print
SUBROUTINE imat_transpose_print_some ( m, n, a, ilo, jlo, ihi, jhi, title )

implicit none

integer, parameter :: incx = 10
integer m
integer n

integer a(m,n)
character ( len = 7 ) ctemp(incx)
integer i
integer i2
integer i2hi
integer i2lo
integer ihi
integer ilo
integer inc
integer j
integer j2hi
integer j2lo
integer jhi
integer jlo
character ( len = * ) title

if ( 0 < len_trim ( title ) ) then
write ( *, '(a)' ) ' '
write ( *, '(a)' ) trim ( title )
end if

do i2lo = max ( ilo, 1 ), min ( ihi, m ), incx

i2hi = i2lo + incx - 1
i2hi = min ( i2hi, m )
i2hi = min ( i2hi, ihi )

inc = i2hi + 1 - i2lo

write ( *, '(a)' ) ' '

do i = i2lo, i2hi
i2 = i + 1 - i2lo
write ( ctemp(i2), '(i7)') i
end do

write ( *, '(''  Row '',10a7)' ) ctemp(1:inc)
write ( *, '(a)' ) '  Col'
write ( *, '(a)' ) ' '

j2lo = max ( jlo, 1 )
j2hi = min ( jhi, n )

do j = j2lo, j2hi

do i2 = 1, inc

i = i2lo - 1 + i2

write ( ctemp(i2), '(i7)' ) a(i,j)

end do

write ( *, '(i5,1x,10a7)' ) j, ( ctemp(i), i = 1, inc )

end do

end do

write ( *, '(a)' ) ' '

return
END SUBROUTINE imat_transpose_print_some
SUBROUTINE ivec_heap_d ( n, a )

implicit none

integer n

integer a(n)
integer i
integer ifree
integer key
integer m
do i = n/2, 1, -1
key = a(i)
ifree = i

do
m = 2 * ifree
if ( n < m ) then
exit
end if
if ( m + 1 <= n ) then
if ( a(m) < a(m+1) ) then
m = m + 1
end if

end if
if ( a(m) <= key ) then
exit
end if

a(ifree) = a(m)
ifree = m

end do
a(ifree) = key

end do

return
END SUBROUTINE ivec_heap_d
SUBROUTINE ivec_sort_heap_a ( n, a )

implicit none

integer n

integer a(n)
integer n1

if ( n <= 1 ) then
return
end if
call ivec_heap_d ( n, a )
call i_swap ( a(1), a(n) )
do n1 = n-1, 2, -1
call ivec_heap_d ( n1, a )
call i_swap ( a(1), a(n1) )

end do

return
END SUBROUTINE ivec_sort_heap_a

integer FUNCTION diaedg ( x0, y0, x1, y1, x2, y2, x3, y3 )

implicit none

real ( kind = 8 ) ca
real ( kind = 8 ) cb
real ( kind = 8 ) dx10
real ( kind = 8 ) dx12
real ( kind = 8 ) dx30
real ( kind = 8 ) dx32
real ( kind = 8 ) dy10
real ( kind = 8 ) dy12
real ( kind = 8 ) dy30
real ( kind = 8 ) dy32
real ( kind = 8 ) s
real ( kind = 8 ) tol
real ( kind = 8 ) tola
real ( kind = 8 ) tolb
real ( kind = 8 ) x0
real ( kind = 8 ) x1
real ( kind = 8 ) x2
real ( kind = 8 ) x3
real ( kind = 8 ) y0
real ( kind = 8 ) y1
real ( kind = 8 ) y2
real ( kind = 8 ) y3

tol = 100.0D+00 * tiny ( tol )

dx10 = x1 - x0
dy10 = y1 - y0
dx12 = x1 - x2
dy12 = y1 - y2
dx30 = x3 - x0
dy30 = y3 - y0
dx32 = x3 - x2
dy32 = y3 - y2

tola = tol * max ( abs ( dx10 ), abs ( dy10 ), abs ( dx30 ), abs ( dy30 ) )
tolb = tol * max ( abs ( dx12 ), abs ( dy12 ), abs ( dx32 ), abs ( dy32 ) )

ca = dx10 * dx30 + dy10 * dy30
cb = dx12 * dx32 + dy12 * dy32

if ( tola < ca .and. tolb < cb ) then

diaedg = -1

else if ( ca < -tola .and. cb < -tolb ) then

diaedg = 1

else

tola = max ( tola, tolb )
s = ( dx10 * dy30 - dx30 * dy10 ) * cb + ( dx32 * dy12 - dx12 * dy32 ) * ca

if ( tola < s ) then
diaedg = -1
else if ( s < -tola ) then
diaedg = 1
else
diaedg = 0
end if

end if

return
END FUNCTION diaedg
SUBROUTINE ivec_sorted_unique ( n, a, nuniq )

implicit none

integer n

integer a(n)
integer itest
integer nuniq

nuniq = 0

if ( n <= 0 ) then
return
end if

nuniq = 1

do itest = 2, n

if ( a(itest) /= a(nuniq) ) then
nuniq = nuniq + 1
a(nuniq) = a(itest)
end if

end do

return
END SUBROUTINE ivec_sorted_unique
FUNCTION lrline( xu, yu, xv1, yv1, xv2, yv2, dv )

implicit none

real ( kind = 8 ) dv
real ( kind = 8 ) dx
real ( kind = 8 ) dxu
real ( kind = 8 ) dy
real ( kind = 8 ) dyu
integer lrline
real ( kind = 8 ) t
real ( kind = 8 ) tol
real ( kind = 8 ) tolabs
real ( kind = 8 ) xu
real ( kind = 8 ) xv1
real ( kind = 8 ) xv2
real ( kind = 8 ) yu
real ( kind = 8 ) yv1
real ( kind = 8 ) yv2

tol = 100.0D+00 * tiny ( tol )

dx = xv2 - xv1
dy = yv2 - yv1
dxu = xu - xv1
dyu = yu - yv1

tolabs =tol* max ( abs ( dx ), abs ( dy ), abs ( dxu ), &
abs ( dyu ), abs ( dv ) )

t = dy * dxu - dx * dyu + dv * sqrt ( dx * dx + dy * dy )

if ( tolabs < t ) then
lrline = 1
else if ( -tolabs <= t ) then
lrline = 0
else
lrline = -1
end if

return
END FUNCTION lrline
SUBROUTINE perm_check ( n, p, ierror )

implicit none

integer n

integer ierror
integer ifind
integer iseek
integer p(n)

ierror = 0

do iseek = 1, n

ierror = iseek

do ifind = 1, n
if ( p(ifind) == iseek ) then
ierror = 0
exit
end if
end do

if ( ierror /= 0 ) then
return
end if

end do

return
END SUBROUTINE perm_check
SUBROUTINE perm_inv ( n, p )

implicit none

integer n

integer i
integer i0
integer i1
integer i2
integer ierror
integer is
integer p(n)

if ( n <= 0 ) then
write ( *, '(a)' ) ' '
write ( *, '(a)' ) 'PERM_INV - Fatal error!'
write ( *, '(a,i6)' ) '  Input value of N = ', n
stop
end if

call perm_check ( n, p, ierror )

if ( ierror /= 0 ) then
write ( *, '(a)' ) ' '
write ( *, '(a)' ) 'PERM_INV - Fatal error!'
write ( *, '(a)' ) '  The input array does not represent'
write ( *, '(a)' ) '  a proper permutation.  In particular, the'
write ( *, '(a,i6)' ) '  array is missing the value ', ierror
stop
end if

is = 1

do i = 1, n

i1 = p(i)

do while ( i < i1 )
i2 = p(i1)
p(i1) = -i2
i1 = i2
end do

is = -sign ( 1, p(i) )
p(i) = sign ( p(i), is )

end do

do i = 1, n

i1 = -p(i)

if ( 0 <= i1 ) then

i0 = i

do

i2 = p(i1)
p(i1) = i0

if ( i2 < 0 ) then
exit
end if

i0 = i1
i1 = i2

end do

end if

end do

return
END SUBROUTINE perm_inv
SUBROUTINE points_delaunay_naive_2d ( node_num, node_xy, maxtri, &
triangle_num, triangle_node )

implicit none

integer, parameter :: dim_num = 2
integer maxtri
integer node_num

logical flag
integer i
integer j
integer k
integer m
real ( kind = 8 ) node_xy(dim_num,node_num)
integer triangle_node(3,maxtri)
integer triangle_num
real ( kind = 8 ) xn
real ( kind = 8 ) yn
real ( kind = 8 ) z(node_num)
real ( kind = 8 ) zn

triangle_num = 0

if ( node_num < 3 ) then
return
end if
z(1:node_num) = node_xy(1,1:node_num)**2 + node_xy(2,1:node_num)**2
do i = 1, node_num - 2
do j = i+1, node_num
do k = i+1, node_num

if ( j /= k ) then

xn = ( node_xy(2,j) - node_xy(2,i) ) * ( z(k) - z(i) ) &
- ( node_xy(2,k) - node_xy(2,i) ) * ( z(j) - z(i) )

yn = ( node_xy(1,k) - node_xy(1,i) ) * ( z(j) - z(i) ) &
- ( node_xy(1,j) - node_xy(1,i) ) * ( z(k) - z(i) )

zn = ( node_xy(1,j) - node_xy(1,i) ) &
* ( node_xy(2,k) - node_xy(2,i) ) &
- ( node_xy(1,k) - node_xy(1,i) ) &
* ( node_xy(2,j) - node_xy(2,i) )

flag = ( zn < 0.0D+00 )

if ( flag ) then
do m = 1, node_num
flag = flag .and. &
( ( node_xy(1,m) - node_xy(1,i) ) * xn &
+ ( node_xy(2,m) - node_xy(2,i) ) * yn &
+ ( z(m)   - z(i) )   * zn <= 0.0D+00 )
end do
end if

if ( flag ) then
if ( triangle_num < maxtri ) then
triangle_num = triangle_num + 1
triangle_node(1:3,triangle_num) = (/ i, j, k /)
end if
end if

end if

end do
end do
end do

return
END SUBROUTINE points_delaunay_naive_2d
SUBROUTINE swapec ( i, top, btri, bedg, node_num, node_xy, triangle_num, &
triangle_node, triangle_neighbor, stack, ierr )

implicit none

integer node_num
integer triangle_num

integer a
integer b
integer bedg
integer btri
integer c
integer e
integer ee
integer em1
integer ep1
integer f
integer fm1
integer fp1
integer i
integer ierr
integer l
real ( kind = 8 ) node_xy(2,node_num)
integer r
integer s
integer stack(node_num)
integer swap
integer t
integer top
integer triangle_neighbor(3,triangle_num)
integer triangle_node(3,triangle_num)
integer tt
integer u
real ( kind = 8 ) x
real ( kind = 8 ) y
x = node_xy(1,i)
y = node_xy(2,i)

do

if ( top <= 0 ) then
exit
end if

t = stack(top)
top = top - 1

if ( triangle_node(1,t) == i ) then
e = 2
b = triangle_node(3,t)
else if ( triangle_node(2,t) == i ) then
e = 3
b = triangle_node(1,t)
else
e = 1
b = triangle_node(2,t)
end if

a = triangle_node(e,t)
u = triangle_neighbor(e,t)

if ( triangle_neighbor(1,u) == t ) then
f = 1
c = triangle_node(3,u)
else if ( triangle_neighbor(2,u) == t ) then
f = 2
c = triangle_node(1,u)
else
f = 3
c = triangle_node(2,u)
end if

swap = diaedg ( x, y, node_xy(1,a), node_xy(2,a), node_xy(1,c), &
node_xy(2,c), node_xy(1,b), node_xy(2,b) )

if ( swap == 1 ) then

em1 = i_wrap ( e - 1, 1, 3 )
ep1 = i_wrap ( e + 1, 1, 3 )
fm1 = i_wrap ( f - 1, 1, 3 )
fp1 = i_wrap ( f + 1, 1, 3 )

triangle_node(ep1,t) = c
triangle_node(fp1,u) = i
r = triangle_neighbor(ep1,t)
s = triangle_neighbor(fp1,u)
triangle_neighbor(ep1,t) = u
triangle_neighbor(fp1,u) = t
triangle_neighbor(e,t) = s
triangle_neighbor(f,u) = r

if ( 0 < triangle_neighbor(fm1,u) ) then
top = top + 1
stack(top) = u
end if

if ( 0 < s ) then

if ( triangle_neighbor(1,s) == u ) then
triangle_neighbor(1,s) = t
else if ( triangle_neighbor(2,s) == u ) then
triangle_neighbor(2,s) = t
else
triangle_neighbor(3,s) = t
end if

top = top + 1

if ( node_num < top ) then
ierr = 8
return
end if

stack(top) = t

else

if ( u == btri .and. fp1 == bedg ) then
btri = t
bedg = e
end if

l = - ( 3 * t + e - 1 )
tt = t
ee = em1

do while ( 0 < triangle_neighbor(ee,tt) )

tt = triangle_neighbor(ee,tt)

if ( triangle_node(1,tt) == a ) then
ee = 3
else if ( triangle_node(2,tt) == a ) then
ee = 1
else
ee = 2
end if

end do

triangle_neighbor(ee,tt) = l

end if

if ( 0 < r ) then

if ( triangle_neighbor(1,r) == t ) then
triangle_neighbor(1,r) = u
else if ( triangle_neighbor(2,r) == t ) then
triangle_neighbor(2,r) = u
else
triangle_neighbor(3,r) = u
end if

else

if ( t == btri .and. ep1 == bedg ) then
btri = u
bedg = f
end if

l = - ( 3 * u + f - 1 )
tt = u
ee = fm1

do while ( 0 < triangle_neighbor(ee,tt) )

tt = triangle_neighbor(ee,tt)

if ( triangle_node(1,tt) == b ) then
ee = 3
else if ( triangle_node(2,tt) == b ) then
ee = 1
else
ee = 2
end if

end do

triangle_neighbor(ee,tt) = l

end if

end if

end do

return
END SUBROUTINE swapec
SUBROUTINE timestamp ( )

implicit none

character ( len = 40 ) string

call timestring ( string )

write ( *, '(a)' ) trim ( string )

return
END SUBROUTINE timestamp
SUBROUTINE timestring ( string )

implicit none

character ( len = 8 ) ampm
integer d
character ( len = 8 ) date
integer h
integer m
integer mm
character ( len = 9 ), parameter, dimension(12) :: month = (/ &
'January  ', 'February ', 'March    ', 'April    ', &
'May      ', 'June     ', 'July     ', 'August   ', &
'September', 'October  ', 'November ', 'December ' /)
integer n
integer s
character ( len = * ) string
character ( len = 10 ) time
integer values(8)
integer y
character ( len = 5 ) zone

call date_and_time ( date, time, zone, values )

y = values(1)
m = values(2)
d = values(3)
h = values(5)
n = values(6)
s = values(7)
mm = values(8)

if ( h < 12 ) then
ampm = 'AM'
else if ( h == 12 ) then
if ( n == 0 .and. s == 0 ) then
ampm = 'Noon'
else
ampm = 'PM'
end if
else
h = h - 12
if ( h < 12 ) then
ampm = 'PM'
else if ( h == 12 ) then
if ( n == 0 .and. s == 0 ) then
ampm = 'Midnight'
else
ampm = 'AM'
end if
end if
end if

write ( string, '(a,1x,i2,1x,i4,2x,i2,a1,i2.2,a1,i2.2,a1,i3.3,1x,a)' ) &
trim ( month(m) ), d, y, h, ':', n, ':', s, '.', mm, trim ( ampm )

return
END SUBROUTINE timestring
SUBROUTINE triangle_circumcenter_2d ( t, center )

implicit none

integer, parameter :: dim_num = 2

real ( kind = 8 ) asq
real ( kind = 8 ) bot
real ( kind = 8 ) center(dim_num)
real ( kind = 8 ) csq
real ( kind = 8 ) t(dim_num,3)
real ( kind = 8 ) top(dim_num)

asq = ( t(1,2) - t(1,1) )**2 + ( t(2,2) - t(2,1) )**2
csq = ( t(1,3) - t(1,1) )**2 + ( t(2,3) - t(2,1) )**2

top(1) =  ( t(2,2) - t(2,1) ) * csq - ( t(2,3) - t(2,1) ) * asq
top(2) =  ( t(1,2) - t(1,1) ) * csq - ( t(1,3) - t(1,1) ) * asq

bot  =  ( t(2,2) - t(2,1) ) * ( t(1,3) - t(1,1) ) &
- ( t(2,3) - t(2,1) ) * ( t(1,2) - t(1,1) )

center(1:2) = t(1:2,1) + 0.5D+00 * top(1:2) / bot

return
END SUBROUTINE triangle_circumcenter_2d
SUBROUTINE triangulation_order3_plot ( file_name, node_num, node_xy, &
triangle_num, triangle_node, node_show, triangle_show )

implicit none

integer node_num
integer triangle_num

real ( kind = 8 ) ave_x
real ( kind = 8 ) ave_y
character ( len = 40 ) date_time
integer, parameter :: circle_size = 5
integer delta
integer e
character ( len = * ) file_name
integer file_unit
integer i
integer ios
integer node
integer node_show
real ( kind = 8 ) node_xy(2,node_num)
character ( len = 40 ) string
integer triangle
integer triangle_node(3,triangle_num)
integer triangle_show
real ( kind = 8 ) x_max
real ( kind = 8 ) x_min
integer x_ps
integer :: x_ps_max = 576
integer :: x_ps_max_clip = 594
integer :: x_ps_min = 36
integer :: x_ps_min_clip = 18
real ( kind = 8 ) x_scale
real ( kind = 8 ) y_max
real ( kind = 8 ) y_min
integer y_ps
integer :: y_ps_max = 666
integer :: y_ps_max_clip = 684
integer :: y_ps_min = 126
integer :: y_ps_min_clip = 108
real ( kind = 8 ) y_scale

call timestring ( date_time )
x_max = maxval ( node_xy(1,1:node_num) )
x_min = minval ( node_xy(1,1:node_num) )
x_scale = x_max - x_min

x_max = x_max + 0.05D+00 * x_scale
x_min = x_min - 0.05D+00 * x_scale
x_scale = x_max - x_min

y_max = maxval ( node_xy(2,1:node_num) )
y_min = minval ( node_xy(2,1:node_num) )
y_scale = y_max - y_min

y_max = y_max + 0.05D+00 * y_scale
y_min = y_min - 0.05D+00 * y_scale
y_scale = y_max - y_min

if ( x_scale < y_scale ) then

delta = nint ( real ( x_ps_max - x_ps_min, kind = 8 ) &
* ( y_scale - x_scale ) / ( 2.0D+00 * y_scale ) )

x_ps_max = x_ps_max - delta
x_ps_min = x_ps_min + delta

x_ps_max_clip = x_ps_max_clip - delta
x_ps_min_clip = x_ps_min_clip + delta

x_scale = y_scale

else if ( y_scale < x_scale ) then

delta = nint ( real ( y_ps_max - y_ps_min, kind = 8 ) &
* ( x_scale - y_scale ) / ( 2.0D+00 * x_scale ) )

y_ps_max      = y_ps_max - delta
y_ps_min      = y_ps_min + delta

y_ps_max_clip = y_ps_max_clip - delta
y_ps_min_clip = y_ps_min_clip + delta

y_scale = x_scale

end if

call get_unit ( file_unit )

open ( unit = file_unit, file = file_name, status = 'replace', &
iostat = ios )

if ( ios /= 0 ) then
write ( *, '(a)' ) ' '
write ( *, '(a)' ) 'TRIANGULATION_ORDER3_PLOT - Fatal error!'
write ( *, '(a)' ) '  Can not open output file "', trim ( file_name ), '".'
return
end if

write ( file_unit, '(a)' ) '%!PS-Adobe-3.0 EPSF-3.0'
write ( file_unit, '(a)' ) '%%Creator: triangulation_order3_plot.f90'
write ( file_unit, '(a)' ) '%%Title: ' // trim ( file_name )
write ( file_unit, '(a)' ) '%%CreationDate: ' // trim ( date_time )
write ( file_unit, '(a)' ) '%%Pages: 1'
write ( file_unit, '(a,i3,2x,i3,2x,i3,2x,i3)' ) '%%BoundingBox: ', &
x_ps_min, y_ps_min, x_ps_max, y_ps_max
write ( file_unit, '(a)' ) '%%Document-Fonts: Times-Roman'
write ( file_unit, '(a)' ) '%%LanguageLevel: 1'
write ( file_unit, '(a)' ) '%%EndComments'
write ( file_unit, '(a)' ) '%%BeginProlog'
write ( file_unit, '(a)' ) '/inch {72 mul} def'
write ( file_unit, '(a)' ) '%%EndProlog'
write ( file_unit, '(a)' ) '%%Page: 1 1'
write ( file_unit, '(a)' ) 'save'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '%  Set the RGB line color to very light gray.'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '0.900  0.900  0.900 setrgbcolor'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '%  Draw a gray border around the page.'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) 'newpath'
write ( file_unit, '(a,i3,2x,i3,2x,a)' ) '  ', x_ps_min, y_ps_min, ' moveto'
write ( file_unit, '(a,i3,2x,i3,2x,a)' ) '  ', x_ps_max, y_ps_min, ' lineto'
write ( file_unit, '(a,i3,2x,i3,2x,a)' ) '  ', x_ps_max, y_ps_max, ' lineto'
write ( file_unit, '(a,i3,2x,i3,2x,a)' ) '  ', x_ps_min, y_ps_max, ' lineto'
write ( file_unit, '(a,i3,2x,i3,2x,a)' ) '  ', x_ps_min, y_ps_min, ' lineto'
write ( file_unit, '(a)' ) 'stroke'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '%  Set the RGB color to black.'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '0.000  0.000  0.000 setrgbcolor'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '%  Set the font and its size.'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '/Times-Roman findfont'
write ( file_unit, '(a)' ) '0.50 inch scalefont'
write ( file_unit, '(a)' ) 'setfont'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '%  Print a title.'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '%  210  702  moveto'
write ( file_unit, '(a)' ) '%  (Triangulation)  show'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '%  Define a clipping polygon.'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) 'newpath'
write ( file_unit, '(a,i3,2x,i3,2x,a)' ) '  ', &
x_ps_min_clip, y_ps_min_clip, ' moveto'
write ( file_unit, '(a,i3,2x,i3,2x,a)' ) '  ', &
x_ps_max_clip, y_ps_min_clip, ' lineto'
write ( file_unit, '(a,i3,2x,i3,2x,a)' ) '  ', &
x_ps_max_clip, y_ps_max_clip, ' lineto'
write ( file_unit, '(a,i3,2x,i3,2x,a)' ) '  ', &
x_ps_min_clip, y_ps_max_clip, ' lineto'
write ( file_unit, '(a,i3,2x,i3,2x,a)' ) '  ', &
x_ps_min_clip, y_ps_min_clip, ' lineto'
write ( file_unit, '(a)' ) 'clip newpath'
if ( 1 <= node_show ) then
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '%  Draw filled dots at the nodes.'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '%  Set the RGB color to blue.'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '0.000  0.150  0.750 setrgbcolor'
write ( file_unit, '(a)' ) '%'

do node = 1, node_num

x_ps = int ( &
( ( x_max - node_xy(1,node)         ) * real ( x_ps_min, kind = 8 )   &
+ (         node_xy(1,node) - x_min ) * real ( x_ps_max, kind = 8 ) ) &
/ ( x_max                   - x_min ) )

y_ps = int ( &
( ( y_max - node_xy(2,node)         ) * real ( y_ps_min, kind = 8 )   &
+ (         node_xy(2,node) - y_min ) * real ( y_ps_max, kind = 8 ) ) &
/ ( y_max                   - y_min ) )

write ( file_unit, '(a,i4,2x,i4,2x,i4,2x,a)' ) 'newpath ', x_ps, y_ps, &
circle_size, '0 360 arc closepath fill'

end do

end if
if ( 2 <= node_show ) then

write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '%  Label the nodes:'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '%  Set the RGB color to darker blue.'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '0.000  0.250  0.850 setrgbcolor'
write ( file_unit, '(a)' ) '/Times-Roman findfont'
write ( file_unit, '(a)' ) '0.20 inch scalefont'
write ( file_unit, '(a)' ) 'setfont'
write ( file_unit, '(a)' ) '%'

do node = 1, node_num

x_ps = int ( &
( ( x_max - node_xy(1,node)         ) * real ( x_ps_min, kind = 8 )   &
+ (       + node_xy(1,node) - x_min ) * real ( x_ps_max, kind = 8 ) ) &
/ ( x_max                   - x_min ) )

y_ps = int ( &
( ( y_max - node_xy(2,node)         ) * real ( y_ps_min, kind = 8 )   &
+ (         node_xy(2,node) - y_min ) * real ( y_ps_max, kind = 8 ) ) &
/ ( y_max                   - y_min ) )

write ( string, '(i4)' ) node
string = adjustl ( string )

write ( file_unit, '(i4,2x,i4,a)' ) x_ps, y_ps+5, &
' moveto (' // trim ( string ) // ') show'

end do

end if
if ( 1 <= triangle_show ) then
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '%  Set the RGB color to red.'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '0.900  0.200  0.100 setrgbcolor'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '%  Draw the triangles.'
write ( file_unit, '(a)' ) '%'

do triangle = 1, triangle_num

write ( file_unit, '(a)' ) 'newpath'

do i = 1, 4

e = i_wrap ( i, 1, 3 )

node = triangle_node(e,triangle)

x_ps = int ( &
( ( x_max - node_xy(1,node)         ) * real ( x_ps_min, kind = 8 )   &
+ (         node_xy(1,node) - x_min ) * real ( x_ps_max, kind = 8 ) ) &
/ ( x_max                   - x_min ) )

y_ps = int ( &
( ( y_max - node_xy(2,node)         ) * real ( y_ps_min, kind = 8 )   &
+ (         node_xy(2,node) - y_min ) * real ( y_ps_max, kind = 8 ) ) &
/ ( y_max                   - y_min ) )

if ( i == 1 ) then
write ( file_unit, '(i3,2x,i3,2x,a)' ) x_ps, y_ps, ' moveto'
else
write ( file_unit, '(i3,2x,i3,2x,a)' ) x_ps, y_ps, ' lineto'
end if

end do

write ( file_unit, '(a)' ) 'stroke'

end do

end if
if ( 2 <= triangle_show ) then

write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '%  Label the triangles:'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '%  Set the RGB color to darker red.'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '0.950  0.250  0.150 setrgbcolor'
write ( file_unit, '(a)' ) '/Times-Roman findfont'
write ( file_unit, '(a)' ) '0.20 inch scalefont'
write ( file_unit, '(a)' ) 'setfont'
write ( file_unit, '(a)' ) '%'

do triangle = 1, triangle_num

ave_x = 0.0D+00
ave_y = 0.0D+00

do i = 1, 3

node = triangle_node(i,triangle)

ave_x = ave_x + node_xy(1,node)
ave_y = ave_y + node_xy(2,node)

end do

ave_x = ave_x / 3.0D+00
ave_y = ave_y / 3.0D+00

x_ps = int ( &
( ( x_max - ave_x         ) * real ( x_ps_min, kind = 8 )   &
+ (       + ave_x - x_min ) * real ( x_ps_max, kind = 8 ) ) &
/ ( x_max         - x_min ) )

y_ps = int ( &
( ( y_max - ave_y         ) * real ( y_ps_min, kind = 8 )   &
+ (         ave_y - y_min ) * real ( y_ps_max, kind = 8 ) ) &
/ ( y_max         - y_min ) )

write ( string, '(i4)' ) triangle
string = adjustl ( string )

write ( file_unit, '(i4,2x,i4,a)' ) x_ps, y_ps, ' moveto (' &
// trim ( string ) // ') show'

end do

end if

write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) 'restore  showpage'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '%  End of page.'
write ( file_unit, '(a)' ) '%'
write ( file_unit, '(a)' ) '%%Trailer'
write ( file_unit, '(a)' ) '%%EOF'
close ( unit = file_unit )

return
END SUBROUTINE triangulation_order3_plot
SUBROUTINE triangulation_order3_print ( node_num, triangle_num, node_xy, &
triangle_node, triangle_neighbor )

implicit none

integer, parameter :: dim_num = 2
integer node_num
integer triangle_num

integer boundary_num
integer i
integer j
integer k
integer n1
integer n2
real ( kind = 8 ) node_xy(dim_num,node_num)
integer s
logical skip
integer t
integer triangle_node(3,triangle_num)
integer triangle_neighbor(3,triangle_num)
integer, allocatable, dimension ( : ) :: vertex_list
integer vertex_num

write ( *, '(a)' ) ' '
write ( *, '(a)' ) 'TRIANGULATION_ORDER3_PRINT'
write ( *, '(a)' ) '  Information defining an order3 triangulation.'
write ( *, '(a)' ) ' '
write ( *, '(a,i6)' ) '  The number of nodes is ', node_num

call dmat_transpose_print ( dim_num, node_num, node_xy, '  Node coordinates' )

write ( *, '(a)' ) ' '
write ( *, '(a,i6)' ) '  The number of triangles is ', triangle_num
write ( *, '(a)' ) ' '
write ( *, '(a)' ) '  Sets of three nodes are used as vertices of'
write ( *, '(a)' ) '  the triangles.  For each triangle, the nodes'
write ( *, '(a)' ) '  are listed in counterclockwise order.'

call imat_transpose_print ( 3, triangle_num, triangle_node, &
'  Triangle nodes:' )

write ( *, '(a)' ) ' '
write ( *, '(a)' ) '  On each side of a given triangle, there is either'
write ( *, '(a)' ) '  another triangle, or a piece of the convex hull.'
write ( *, '(a)' ) '  For each triangle, we list the indices of the three'
write ( *, '(a)' ) '  neighbors, or (if negative) the codes of the'
write ( *, '(a)' ) '  segments of the convex hull.'

call imat_transpose_print ( 3, triangle_num, triangle_neighbor, &
'  Triangle neighbors' )
allocate ( vertex_list(1:3*triangle_num) )

vertex_list(1:3*triangle_num) = reshape ( triangle_node(1:3,1:triangle_num), &
(/ 3*triangle_num /) )

call ivec_sort_heap_a ( 3*triangle_num, vertex_list )

call ivec_sorted_unique ( 3*triangle_num, vertex_list, vertex_num )

deallocate ( vertex_list )
boundary_num = 2 * vertex_num - triangle_num - 2

write ( *, '(a)' ) ' '
write ( *, '(a,i6)' ) '  The number of boundary points is ', boundary_num

write ( *, '(a)' ) ' '
write ( *, '(a)' ) '  The segments that make up the convex hull can be'
write ( *, '(a)' ) '  determined from the negative entries of the triangle'
write ( *, '(a)' ) '  neighbor list.'
write ( *, '(a)' ) ' '
write ( *, '(a)' ) '     #   Tri  Side    N1    N2'
write ( *, '(a)' ) ' '

skip = .false.

k = 0

do i = 1, triangle_num

do j = 1, 3

if ( triangle_neighbor(j,i) < 0 ) then
s = - triangle_neighbor(j,i)
t = s / 3

if ( t < 1 .or. triangle_num < t ) then
write ( *, '(a)' ) ' '
write ( *, '(a)' ) '  Sorry, this data does not use the DTRIS2'
write ( *, '(a)' ) '  convention for convex hull segments.'
skip = .true.
exit
end if

s = mod ( s, 3 ) + 1
k = k + 1
n1 = triangle_node(s,t)
n2 = triangle_node(i_wrap(s+1,1,3),t)
write ( *, '(2x,i4,2x,i4,2x,i4,2x,i4,2x,i4)' ) k, t, s, n1, n2
end if

end do

if ( skip ) then
exit
end if

end do

return
END SUBROUTINE triangulation_order3_print
SUBROUTINE vbedg ( x, y, node_num, node_xy, triangle_num, triangle_node, &
triangle_neighbor, ltri, ledg, rtri, redg )

implicit none

integer, parameter :: dim_num = 2
integer node_num
integer triangle_num

integer a
integer b
integer e
integer l
logical ldone
integer ledg
integer lr
integer ltri
real ( kind = 8 ) node_xy(2,node_num)
integer redg
integer rtri
integer t
integer triangle_neighbor(3,triangle_num)
integer triangle_node(3,triangle_num)
real ( kind = 8 ) x
real ( kind = 8 ) y
if ( ltri == 0 ) then
ldone = .false.
ltri = rtri
ledg = redg
else
ldone = .true.
end if

do

l = -triangle_neighbor(redg,rtri)
t = l / 3
e = mod ( l, 3 ) + 1
a = triangle_node(e,t)

if ( e <= 2 ) then
b = triangle_node(e+1,t)
else
b = triangle_node(1,t)
end if

lr = lrline ( x, y, node_xy(1,a), node_xy(2,a), node_xy(1,b), &
node_xy(2,b), 0.0D+00 )

if ( lr <= 0 ) then
exit
end if

rtri = t
redg = e

end do

if ( ldone ) then
return
end if

t = ltri
e = ledg

do

b = triangle_node(e,t)
e = i_wrap ( e-1, 1, 3 )

do while ( 0 < triangle_neighbor(e,t) )

t = triangle_neighbor(e,t)

if ( triangle_node(1,t) == b ) then
e = 3
else if ( triangle_node(2,t) == b ) then
e = 1
else
e = 2
end if

end do

a = triangle_node(e,t)

lr = lrline ( x, y, node_xy(1,a), node_xy(2,a), node_xy(1,b), &
node_xy(2,b), 0.0D+00 )

if ( lr <= 0 ) then
exit
end if

end do

ltri = t
ledg = e

return
END SUBROUTINE vbedg
END module geompack
SUBROUTINE MA37AD(N,NZ,IRN,ICN,IW,LIW,IKEEP,IW1,NSTEPS,IFLAG)
INTEGER IFLAG,LIW,N,NSTEPS,NZ
INTEGER ICN(*),IKEEP(N,3),IRN(*),IW(LIW),IW1(N,2)
INTEGER I,IWFR,K,L1,L2,LLIW
EXTERNAL MA37GD,MA37HD,MA37JD,MA37KD,MA37LD,MA37MD,MA37VD
INTRINSIC MIN0
COMMON /MA37DD/U,LP,MP,LDIAG
COMMON /MA37ED/OPSA,OPSB,IERROR,NRLTOT,NIRTOT,NRLNEC,NIRNEC,NRLB, &
&       NIRB,NRLADU,NIRADU,NRLBDU,NIRBDU,NCMPA,NCMPBR,NCMPBI,NOFF
COMMON /MA37FD/IOVFLO,NEMIN,IFRLVL(20)
DOUBLE PRECISION OPSA,OPSB,U
INTEGER IERROR,IOVFLO,LDIAG,LP,MP,NCMPA,NCMPBI,NCMPBR,NEMIN,      &
&        NIRADU,NIRB,NIRBDU,NIRNEC,NIRTOT,NOFF,NRLADU,NRLB,NRLBDU, &
&        NRLNEC,NRLTOT
INTEGER IFRLVL
SAVE /MA37DD/,/MA37ED/,/MA37FD/
IERROR = 0
IF (N.LT.1 .OR. N.GT.IOVFLO) GO TO 40
IF (NZ.LT.0) GO TO 50
IF (LDIAG.LE.0 .OR. MP.LE.0) GO TO 10
WRITE (MP,FMT=99999) N,NZ,LIW,IFLAG
K = MIN0(8,NZ)
IF (LDIAG.GT.1) K = NZ
IF (K.GT.0) WRITE (MP,FMT=99998) (IRN(I),ICN(I),I=1,K)
K = MIN0(10,N)
IF (LDIAG.GT.1) K = N
IF (IFLAG.EQ.1 .AND. K.GT.0) WRITE (MP,FMT=99997) (IKEEP(I,1),I=1,&
&    K)
10 LLIW = LIW - 2*N
L1 = LLIW + 1
L2 = L1 + N
IF (IFLAG.EQ.1) GO TO 20
IF (LIW.LT.2*NZ+3*N+1) GO TO 70
IFLAG = 0
CALL MA37GD(N,NZ,IRN,ICN,IW,LLIW,IW1,IW1(1,2),IW(L1),IWFR,IFLAG)
CALL MA37HD(N,IW1,IW,LLIW,IWFR,IW(L1),IW(L2),IKEEP(1,2),          &
&            IKEEP(1,3),IKEEP)
GO TO 30
20 IF (LIW.LT.NZ+3*N+1) GO TO 60
CALL MA37JD(N,NZ,IRN,ICN,IKEEP,IW,LLIW,IW1,IW1(1,2),IW(L1),IWFR,  &
&            IFLAG)
CALL MA37KD(N,IW1,IW,LLIW,IWFR,IKEEP,IKEEP(1,2),IW(L1),IW(L2))
30 CALL MA37LD(N,IW1,IW(L1),IKEEP,IKEEP(1,2),IKEEP(1,3),IW(L2),      &
&            NSTEPS)
IW(1) = IRN(1) + 1
CALL MA37MD(N,NZ,IRN,ICN,IKEEP,IKEEP(1,3),IKEEP(1,2),IW(L2),      &
&            NSTEPS,IW1,IW1(1,2),IW)
GO TO 90
40 IFLAG = -1
IF (LP.GT.0) WRITE (LP,FMT=99996) IFLAG
IF (LP.GT.0) WRITE (LP,FMT=99995) N
GO TO 90
50 IFLAG = -2
IF (LP.GT.0) WRITE (LP,FMT=99996) IFLAG
IF (LP.GT.0) WRITE (LP,FMT=99994) NZ
GO TO 90
60 IERROR = NZ + 3*N + 1
GO TO 80
70 IERROR = 2*NZ + 3*N + 1
80 IFLAG = -3
IF (LP.GT.0) WRITE (LP,FMT=99996) IFLAG
IF (LP.GT.0) WRITE (LP,FMT=99993) LIW,IERROR
90 IF (LDIAG.LE.0 .OR. MP.LE.0) GO TO 100
WRITE (MP,FMT=99992) NSTEPS,IFLAG,IERROR,NRLTOT,NIRTOT,OPSA,      &
&  NRLNEC,NIRNEC,NRLADU,NIRADU,NCMPA
K = MIN0(9,N)
IF (LDIAG.GT.1) K = N
IF (K.GT.0) WRITE (MP,FMT=99997) (IKEEP(I,1),I=1,K)
K = MIN0(K,NSTEPS)
IF (K.GT.0) WRITE (MP,FMT=99991) (IKEEP(I,2),I=1,K)
IF (K.GT.0) WRITE (MP,FMT=99990) (IKEEP(I,3),I=1,K)
100 RETURN
99999 FORMAT (/,/,49H ENTERING MA37AD WITH      N     NZ    LIW  IFLAG, &
&       /,21X,4I7)
99998 FORMAT (17H MATRIX NON-ZEROS,3 (I10,I6),/,                        &
&       (17X,I10,I6,I10,I6,I10,I6))
99997 FORMAT (12H IKEEP(.,1)=,10I6,/, (12X,10I6))
99996 FORMAT (42H **** ERROR RETURN FROM MA37AD **** IFLAG=,I3)
99995 FORMAT (30H VALUE OF N OUT OF RANGE ... =,I10)
99994 FORMAT (30H VALUE OF NZ OUT OF RANGE .. =,I10)
99993 FORMAT (38H LIW TOO SMALL, MUST BE INCREASED FROM,I10,7H TO AT ,  &
&       5HLEAST,I10)
99992 FORMAT (/,48H LEAVING MA37AD WITH NSTEPS  IFLAG IERROR NRLTOT,    &
&       17H NIRTOT      OPSA,/,20X,5I7,F10.0,/,21X,                &
&       19HNRLNEC NIRNEC NRLAD,15HU NIRADU  NCMPA,/,20X,6I7)
99991 FORMAT (12H IKEEP(.,2)=,10I6,/, (12X,10I6))
99990 FORMAT (12H IKEEP(.,3)=,10I6,/, (12X,10I6))
END
SUBROUTINE MA37BD(N,NZ,IRN,ICN,A,LA,IW,LIW,IKEEP,NSTEPS,MAXFRT,   &
&                  IFLAG)
INTEGER IFLAG,LA,LIW,MAXFRT,N,NSTEPS,NZ
DOUBLE PRECISION A(LA)
INTEGER ICN(*),IKEEP(N,3),IRN(*),IW(LIW)
INTEGER I,IAPOS,IBLK,IFL,IPIV,IPOS,J1,J2,JJ,K,KBLK,KZ,LEN,LIW1,   &
&        LIW2,LIW3,NCOLS,NPIV
INTEGER NZ1(2)
EXTERNAL MA37ND,MA37OD,MA37PD,MA37VD
INTRINSIC IABS,MAX0,MIN0
COMMON /MA37DD/U,LP,MP,LDIAG
COMMON /MA37ED/OPSA,OPSB,IERROR,NRLTOT,NIRTOT,NRLNEC,NIRNEC,NRLB, &
&       NIRB,NRLADU,NIRADU,NRLBDU,NIRBDU,NCMPA,NCMPBR,NCMPBI,NOFF
COMMON /MA37FD/IOVFLO,NEMIN,IFRLVL(20)
DOUBLE PRECISION OPSA,OPSB,U
INTEGER IERROR,IOVFLO,LDIAG,LP,MP,NCMPA,NCMPBI,NCMPBR,NEMIN,      &
&        NIRADU,NIRB,NIRBDU,NIRNEC,NIRTOT,NOFF,NRLADU,NRLB,NRLBDU, &
&        NRLNEC,NRLTOT
INTEGER IFRLVL
SAVE /MA37DD/,/MA37ED/,/MA37FD/
IF (N.LT.1 .OR. N.GT.IOVFLO) GO TO 20
IF (NZ.LT.0) GO TO 30
IF (LDIAG.LE.0 .OR. MP.LE.0) GO TO 10
WRITE (MP,FMT=99999) N,NZ,LA,LIW,NSTEPS,U
KZ = MIN0(6,NZ)
IF (LDIAG.GT.1) KZ = NZ
IF (NZ.GT.0) WRITE (MP,FMT=99998) (A(K),IRN(K),ICN(K),K=1,KZ)
K = MIN0(9,N)
IF (LDIAG.GT.1) K = N
IF (K.GT.0) WRITE (MP,FMT=99997) (IKEEP(I,1),I=1,K)
K = MIN0(K,NSTEPS)
IF (K.GT.0) WRITE (MP,FMT=99996) (IKEEP(I,2),I=1,K)
IF (K.GT.0) WRITE (MP,FMT=99995) (IKEEP(I,3),I=1,K)
10 IF (LIW.LT.MAX0(NZ,N)+2*N) GO TO 40
IF (LA.LT.MAX0(NZ,N)+N) GO TO 60
LIW1 = LIW - N
LIW2 = LIW - 2*N + 1
IW(1) = IRN(1) + 1
CALL MA37ND(N,NZ,IW,LIW,IRN,ICN,IFL)
IF (IFL.EQ.-3) IFLAG = IFL
IF (IFLAG.EQ.-3) GO TO 50
IF (IFL.EQ.0) CALL MA37OD(N,NZ,NZ1,A,LA,IRN,ICN,IW,LIW1,IKEEP,    &
&                          IW(LIW2),IFLAG)
IF (IFL.EQ.1) CALL MA37OD(N,NZ,NZ1,A,LA,IRN,IW(NZ+1),IW,LIW1,     &
&                          IKEEP,IW(LIW2),IFLAG)
IF (IFLAG.EQ.-3) GO TO 50
IF (IFLAG.EQ.-4) GO TO 70
LIW3 = LIW1 + 1
CALL MA37PD(N,NZ1,A,LA,IW,LIW1,IKEEP,IKEEP(1,3),NSTEPS,MAXFRT,    &
&            IKEEP(1,2),IW(LIW3),IFLAG)
IF (IFLAG.EQ.-3) GO TO 50
IF (IFLAG.EQ.-4) GO TO 70
IF (IFLAG.EQ.-5) GO TO 80
IF (IFLAG.EQ.2 .AND. MP.GT.0) WRITE (MP,FMT=99994) IFLAG,IERROR
GO TO 100
20 IFLAG = -1
IF (LP.GT.0) WRITE (LP,FMT=99993) IFLAG
IF (LP.GT.0) WRITE (LP,FMT=99992) N
GO TO 100
30 IFLAG = -2
IF (LP.GT.0) WRITE (LP,FMT=99993) IFLAG
IF (LP.GT.0) WRITE (LP,FMT=99991) NZ
GO TO 100
40 IFLAG = -3
IERROR = MAX0(NZ,N) + 2*N
50 IF (LP.GT.0) WRITE (LP,FMT=99993) IFLAG
IF (LP.GT.0) WRITE (LP,FMT=99990) LIW,IERROR
GO TO 100
60 IFLAG = -4
IERROR = MAX0(NZ,N) + N
70 IF (LP.GT.0) WRITE (LP,FMT=99993) IFLAG
IF (LP.GT.0) WRITE (LP,FMT=99989) LA,IERROR
GO TO 100
80 IF (LP.GT.0) WRITE (LP,FMT=99993) IFLAG
IF (LP.GT.0) WRITE (LP,FMT=99988) IERROR
100 IF (LDIAG.LE.0 .OR. MP.LE.0) GO TO 130
WRITE (MP,FMT=99986) MAXFRT,IFLAG,NRLBDU,NIRBDU,NCMPBR,NCMPBI,    &
&  OPSB,NRLB,NIRB,IERROR,NOFF
IF (IFLAG.LT.0) GO TO 130
KBLK = IABS(IW(1)+0)
IF (KBLK.EQ.0) GO TO 130
IF (LDIAG.EQ.1) KBLK = 1
IPOS = 2
IAPOS = 1
DO 120 IBLK = 1,KBLK
NCOLS = IW(IPOS)
NPIV = IW(IPOS+1)
J1 = IPOS + 2
WRITE (MP,FMT=99985) IBLK,NPIV,NCOLS
J2 = J1 + NCOLS - 1
WRITE (MP,FMT=99984) (IW(JJ),JJ=J1,J2)
J1 = J2 + 1
J2 = J1 + NCOLS - 1
WRITE (MP,FMT=99983) (IW(JJ),JJ=J1,J2)
IPOS = J2 + 1
WRITE (MP,FMT=99982)
LEN = NCOLS
DO 110 IPIV = 1,NPIV
J1 = IAPOS
J2 = IAPOS + LEN - 1
WRITE (MP,FMT=99981) (A(JJ),JJ=J1,J2)
LEN = LEN - 1
IAPOS = J2 + 1
J1 = IAPOS
J2 = IAPOS + LEN - 1
IF (J2.GE.J1) WRITE (MP,FMT=99981) (A(JJ),JJ=J1,J2)
IAPOS = J2 + 1
110   CONTINUE
120 END DO
130 RETURN
99999 FORMAT (/,/,                                                      &
&       52H ENTERING MA37BD WITH      N     NZ     LA    LIW  N,   &
&       14HSTEPS        U,/,21X,4I7,I8,F9.3)
99998 FORMAT (17H MATRIX NON-ZEROS, (1P,D13.3,2I6,1P,D15.3,2I6),/,      &
&       (17X,1P,D13.3,2I6,1P,D15.3,2I6))
99997 FORMAT (12H IKEEP(.,1)=,10I6,/, (12X,10I6))
99996 FORMAT (12H IKEEP(.,2)=,10I6,/, (12X,10I6))
99995 FORMAT (12H IKEEP(.,3)=,10I6,/, (12X,10I6))
99994 FORMAT (54H *** WARNING MESSAGE FROM SUBROUTINE MA37BD *** IFLAG ,&
&       1H=,I2,/,5X,25HMATRIX IS SINGULAR. RANK=,I5)
99993 FORMAT (42H **** ERROR RETURN FROM MA37BD **** IFLAG=,I3)
99992 FORMAT (30H VALUE OF N OUT OF RANGE ... =,I10)
99991 FORMAT (30H VALUE OF NZ OUT OF RANGE .. =,I10)
99990 FORMAT (38H LIW TOO SMALL, MUST BE INCREASED FROM,I10,7H TO AT ,  &
&       5HLEAST,I10)
99989 FORMAT (38H LA TOO SMALL, MUST BE INCREASED FROM ,I10,7H TO AT ,  &
&       5HLEAST,I10)
99988 FORMAT (20H ZERO PIVOT AT STAGE,I10,22H INPUT MATRIX DECLARED,    &
&       20H DIAGONALLY DOMINANT)
99986 FORMAT (54H LEAVING MA37BD WITH MAXFRT  IFLAG NRLBDU NIRBDU NCMPB,&
&       1HR,17H NCMPBI      OPSB,/,20X,6I7,F10.0,/,20X,            &
&       14H   NRLB   NIRB,14H IERROR   NOFF,/,20X,4I7)
99985 FORMAT (14H BLOCK PIVOT =,I7,9H   NPIV =,I7,10H  NFRONT =,I7)
99984 FORMAT (17H ROW INDICES    =,9I6,/, (17X,9I6))
99983 FORMAT (17H COLUMN INDICES =,9I6,/, (17X,9I6))
99982 FORMAT (50H REAL ENTRIES .. EACH R AND C STARTS ON A NEW LINE)
99981 FORMAT (1P,5D13.3)
END
SUBROUTINE MA37CD(N,A,LA,IW,LIW,W,MAXFRT,RHS,IW1,NSTEPS,W2,MTYPE)
INTEGER LA,LIW,MAXFRT,MTYPE,N,NSTEPS
DOUBLE PRECISION A(LA),RHS(N),W(MAXFRT),W2(N)
INTEGER IW(LIW),IW1(NSTEPS)
INTEGER I,IAPOS,IBLK,IPIV,IPOS,J1,J2,JJ,K,KBLK,KL,LATOP,LEN,NBLK, &
&        NCOLS,NPIV
EXTERNAL MA37RD,MA37SD,MA37TD,MA37UD,MA37VD
INTRINSIC IABS,MIN0
COMMON /MA37DD/U,LP,MP,LDIAG
DOUBLE PRECISION U
INTEGER LDIAG,LP,MP
SAVE /MA37DD/
IF (LDIAG.LE.0 .OR. MP.LE.0) GO TO 40
WRITE (MP,FMT=99999) N,LA,LIW,MAXFRT,NSTEPS
KBLK = IABS(IW(1)+0)
IF (KBLK.EQ.0) GO TO 30
IF (LDIAG.EQ.1) KBLK = 1
IPOS = 2
IAPOS = 1
DO 20 IBLK = 1,KBLK
NCOLS = IW(IPOS)
NPIV = IW(IPOS+1)
J1 = IPOS + 2
WRITE (MP,FMT=99998) IBLK,NPIV,NCOLS
J2 = J1 + NCOLS - 1
WRITE (MP,FMT=99997) (IW(JJ),JJ=J1,J2)
J1 = J2 + 1
J2 = J1 + NCOLS - 1
WRITE (MP,FMT=99996) (IW(JJ),JJ=J1,J2)
IPOS = J2 + 1
WRITE (MP,FMT=99995)
LEN = NCOLS
DO 10 IPIV = 1,NPIV
J1 = IAPOS
J2 = IAPOS + LEN - 1
WRITE (MP,FMT=99994) (A(JJ),JJ=J1,J2)
LEN = LEN - 1
IAPOS = J2 + 1
J1 = IAPOS
J2 = IAPOS + LEN - 1
IF (J2.GE.J1) WRITE (MP,FMT=99994) (A(JJ),JJ=J1,J2)
IAPOS = J2 + 1
10   CONTINUE
20 END DO
30 K = MIN0(10,N)
IF (LDIAG.GT.1) K = N
IF (N.GT.0) WRITE (MP,FMT=99993) (RHS(I),I=1,K)
40 IF (IW(1).LT.0) GO TO 60
NBLK = IW(1)
IF (NBLK.GT.0) GO TO 70
DO 50 I = 1,N
RHS(I) = 0.0D0
50 END DO
GO TO 110
60 NBLK = -IW(1)
70 IF (MTYPE.NE.1) GO TO 80
CALL MA37RD(N,A,LA,IW(2),LIW-1,W,MAXFRT,RHS,IW1,NBLK,LATOP)
CALL MA37SD(N,A,LA,IW(2),LIW-1,W,MAXFRT,RHS,IW1,NBLK,LATOP,W2)
GO TO 90
80 CALL MA37TD(N,A,LA,IW(2),LIW-1,W,MAXFRT,RHS,IW1,NBLK,LATOP)
CALL MA37UD(N,A,LA,IW(2),LIW-1,W,MAXFRT,RHS,IW1,NBLK,LATOP,W2)
90 DO 100 KL = 1,N
RHS(KL) = W2(KL)
100 END DO
110 IF (LDIAG.LE.0 .OR. MP.LE.0) GO TO 120
WRITE (MP,FMT=99992)
IF (N.GT.0) WRITE (MP,FMT=99993) (RHS(I),I=1,K)
120 RETURN
99999 FORMAT (/,/,                                                      &
&       52H ENTERING MA37CD WITH      N     LA    LIW MAXFRT  N,   &
&       5HSTEPS,/,21X,5I7)
99998 FORMAT (14H BLOCK PIVOT =,I7,9H   NPIV =,I7,10H  NFRONT =,I7)
99997 FORMAT (17H ROW INDICES    =,9I6,/, (17X,9I6))
99996 FORMAT (17H COLUMN INDICES =,9I6,/, (17X,9I6))
99995 FORMAT (46H REAL ENTRIES .. EACH R/C STARTS ON A NEW LINE)
99994 FORMAT (1P,5D13.3)
99993 FORMAT (4H RHS,/, (1X,1P,5D13.3))
99992 FORMAT (/,/,20H LEAVING MA37CD WITH)
END
BLOCK DATA MA37VD
COMMON /MA37DD/U,LP,MP,LDIAG
COMMON /MA37FD/IOVFLO,NEMIN,IFRLVL(20)
DOUBLE PRECISION U
INTEGER IOVFLO,LDIAG,LP,MP,NEMIN
INTEGER IFRLVL
SAVE /MA37DD/,/MA37FD/
DATA U/0.1D0/,LP/6/,MP/6/,LDIAG/0/,IOVFLO/2147483646/,NEMIN/1/,   &
&     IFRLVL(1),IFRLVL(2),IFRLVL(3),IFRLVL(4),IFRLVL(5),IFRLVL(6), &
&     IFRLVL(7),IFRLVL(8),IFRLVL(9),IFRLVL(10),IFRLVL(11),         &
&     IFRLVL(12),IFRLVL(13),IFRLVL(14),IFRLVL(15),IFRLVL(16),      &
&     IFRLVL(17),IFRLVL(18),IFRLVL(19),IFRLVL(20)/99999,99999,     &
&     99999,99999,99999,18,12,10,10,10,99999,99999,99999,99999,    &
&     99999,25,16,14,13,12/
END
SUBROUTINE MA37GD(N,NZ,IRN,ICN,IW,LW,IPE,IQ,FLAG,IWFR,IFLAG)
INTEGER IFLAG,IWFR,LW,N,NZ
INTEGER FLAG(N),ICN(*),IPE(N),IQ(N),IRN(*),IW(LW)
INTEGER I,ID,J,JN,K,K1,K2,L,LAST,LR,N1,NDUP
COMMON /MA37DD/U,LP,MP,LDIAG
COMMON /MA37ED/OPSA,OPSB,IERROR,NRLTOT,NIRTOT,NRLNEC,NIRNEC,NRLB, &
&       NIRB,NRLADU,NIRADU,NRLBDU,NIRBDU,NCMPA,NCMPBR,NCMPBI,NOFF
DOUBLE PRECISION OPSA,OPSB,U
INTEGER IERROR,LDIAG,LP,MP,NCMPA,NCMPBI,NCMPBR,NIRADU,NIRB,NIRBDU,&
&        NIRNEC,NIRTOT,NOFF,NRLADU,NRLB,NRLBDU,NRLNEC,NRLTOT
SAVE /MA37DD/,/MA37ED/
IERROR = 0
DO 10 I = 1,N
IPE(I) = 0
10 END DO
LR = NZ
IF (NZ.EQ.0) GO TO 100
DO 90 K = 1,NZ
I = IRN(K)
J = ICN(K)
IF (I-J) 20,40,30
20   IF (I.GE.1 .AND. J.LE.N) GO TO 70
GO TO 50
30   IF (J.GE.1 .AND. I.LE.N) GO TO 70
GO TO 50
40   IF (I.GE.1 .AND. I.LE.N) GO TO 60
50   IERROR = IERROR + 1
IFLAG = 1
IF (IERROR.LE.1 .AND. MP.GT.0) WRITE (MP,FMT=99999) IFLAG
IF (IERROR.LE.10 .AND. MP.GT.0) WRITE (MP,FMT=99998) K,I,J
60   I = 0
J = 0
GO TO 80
70   IPE(I) = IPE(I) + 1
IPE(J) = IPE(J) + 1
80   IW(K) = J
LR = LR + 1
IW(LR) = I
90 END DO
100 IQ(1) = 1
N1 = N - 1
IF (N1.LE.0) GO TO 120
DO 110 I = 1,N1
FLAG(I) = 0
IF (IPE(I).EQ.0) IPE(I) = -1
IQ(I+1) = IPE(I) + IQ(I) + 1
IPE(I) = IQ(I)
110 END DO
120 LAST = IPE(N) + IQ(N)
FLAG(N) = 0
IF (LR.GE.LAST) GO TO 140
K1 = LR + 1
DO 130 K = K1,LAST
IW(K) = 0
130 END DO
140 IPE(N) = IQ(N)
IWFR = LAST + 1
IF (NZ.EQ.0) GO TO 210
DO 200 K = 1,NZ
J = IW(K)
IF (J.LE.0) GO TO 200
L = K
IW(K) = 0
DO 190 ID = 1,NZ
IF (L.GT.NZ) GO TO 150
L = L + NZ
GO TO 160
150     L = L - NZ
160     I = IW(L)
IW(L) = 0
IF (I.LT.J) GO TO 170
L = IQ(J) + 1
IQ(J) = L
JN = IW(L)
IW(L) = -I
GO TO 180
170     L = IQ(I) + 1
IQ(I) = L
JN = IW(L)
IW(L) = -J
180     J = JN
IF (J.LE.0) GO TO 200
190   CONTINUE
200 END DO
210 NDUP = 0
DO 260 I = 1,N
K1 = IPE(I) + 1
K2 = IQ(I)
IF (K1.LE.K2) GO TO 220
IPE(I) = 0
IQ(I) = 0
GO TO 260
220   DO 240 K = K1,K2
J = -IW(K)
IF (J.LE.0) GO TO 250
L = IQ(J) + 1
IQ(J) = L
IW(L) = I
IW(K) = J
IF (FLAG(J).NE.I) GO TO 230
NDUP = NDUP + 1
IW(L) = 0
IW(K) = 0
230     FLAG(J) = I
240   CONTINUE
250   IQ(I) = IQ(I) - IPE(I)
IF (NDUP.EQ.0) IW(K1-1) = IQ(I)
260 END DO
IF (NDUP.EQ.0) GO TO 290
IWFR = 1
DO 280 I = 1,N
K1 = IPE(I) + 1
IF (K1.EQ.1) GO TO 280
K2 = IQ(I) + IPE(I)
L = IWFR
IPE(I) = IWFR
IWFR = IWFR + 1
DO 270 K = K1,K2
IF (IW(K).EQ.0) GO TO 270
IW(IWFR) = IW(K)
IWFR = IWFR + 1
270   CONTINUE
IW(L) = IWFR - L - 1
280 END DO
290 RETURN
99999 FORMAT (54H *** WARNING MESSAGE FROM SUBROUTINE MA37AD *** IFLAG ,&
&       1H=,I2)
99998 FORMAT (I6,19HTH NON-ZERO (IN ROW,I6,11H AND COLUMN,I6,           &
&       9H) IGNORED)
END
SUBROUTINE MA37HD(N,IPE,IW,LW,IWFR,NV,NXT,LST,IPD,FLAG)
INTEGER IWFR,LW,N
INTEGER FLAG(N),IPD(N),IPE(N),IW(LW),LST(N),NV(N),NXT(N)
INTEGER I,ID,IDL,IDN,IE,IP,IS,JP,JP1,JP2,JS,K,K1,K2,KE,KP,KP0,KP1,&
&        KP2,KS,L,LEN,LN,LS,LWFR,MD,ME,ML,MS,NEL,NFLG,NP,NP0,NS,   &
&        NVPIV
EXTERNAL MA37ID
INTRINSIC IABS,MIN0
COMMON /MA37ED/OPSA,OPSB,IERROR,NRLTOT,NIRTOT,NRLNEC,NIRNEC,NRLB, &
&       NIRB,NRLADU,NIRADU,NRLBDU,NIRBDU,NCMPA,NCMPBR,NCMPBI,NOFF
COMMON /MA37FD/IOVFLO,NEMIN,IFRLVL(20)
DOUBLE PRECISION OPSA,OPSB
INTEGER IERROR,IOVFLO,NCMPA,NCMPBI,NCMPBR,NEMIN,NIRADU,NIRB,      &
&        NIRBDU,NIRNEC,NIRTOT,NOFF,NRLADU,NRLB,NRLBDU,NRLNEC,NRLTOT
INTEGER IFRLVL
SAVE /MA37ED/,/MA37FD/
DO 10 I = 1,N
IPD(I) = 0
NV(I) = 1
FLAG(I) = IOVFLO
10 END DO
MD = 1
NCMPA = 0
NFLG = IOVFLO
NEL = 0
DO 30 IS = 1,N
K = IPE(IS)
IF (K.LE.0) GO TO 20
ID = IW(K) + 1
NS = IPD(ID)
IF (NS.GT.0) LST(NS) = IS
NXT(IS) = NS
IPD(ID) = IS
LST(IS) = -ID
GO TO 30
20   NEL = NEL + 1
FLAG(IS) = -1
NXT(IS) = 0
LST(IS) = 0
30 END DO
DO 340 ML = 1,N
IF (NEL.GE.N) GO TO 350
DO 40 ID = MD,N
MS = IPD(ID)
IF (MS.GT.0) GO TO 50
40   CONTINUE
50   MD = ID
NVPIV = NV(MS)
NV(MS) = ID
NS = NXT(MS)
NXT(MS) = 0
LST(MS) = 0
IF (NS.GT.0) LST(NS) = -ID
IPD(ID) = NS
ME = MS
NEL = NEL + NVPIV
IDN = ID - NVPIV
KP = IPE(ME)
FLAG(MS) = -1
IP = IWFR
LEN = IW(KP)
DO 140 KP1 = 1,LEN
KP = KP + 1
KE = IW(KP)
IF (FLAG(KE).LE.-2) GO TO 60
IF (FLAG(KE).LE.0) GO TO 140
JP = KP - 1
LN = LEN - KP1 + 1
IE = MS
GO TO 70
60     IE = KE
JP = IPE(IE)
LN = IW(JP)
70     DO 130 JP1 = 1,LN
JP = JP + 1
IS = IW(JP)
IF (FLAG(IS).LE.0) GO TO 130
FLAG(IS) = 0
IF (IWFR.LT.LW) GO TO 100
IPE(MS) = KP
IW(KP) = LEN - KP1
IPE(IE) = JP
IW(JP) = LN - JP1
CALL MA37ID(N,IPE,IW,IP-1,LWFR)
JP2 = IWFR - 1
IWFR = LWFR
IF (IP.GT.JP2) GO TO 90
DO 80 JP = IP,JP2
IW(IWFR) = IW(JP)
IWFR = IWFR + 1
80       CONTINUE
90       IP = LWFR
JP = IPE(IE)
KP = IPE(ME)
100       IW(IWFR) = IS
IWFR = IWFR + 1
LS = LST(IS)
LST(IS) = 0
NS = NXT(IS)
NXT(IS) = 0
IF (NS.GT.0) LST(NS) = LS
IF (LS) 110,130,120
110       LS = -LS
IPD(LS) = NS
GO TO 130
120       NXT(LS) = NS
130     CONTINUE
IF (IE.EQ.MS) GO TO 150
IPE(IE) = -ME
FLAG(IE) = -1
140   CONTINUE
150   IF (IWFR.EQ.IP) GO TO 330
K1 = IP
K2 = IWFR - 1
DO 310 K = K1,K2
IS = IW(K)
IF (NFLG.GT.2) GO TO 170
DO 160 I = 1,N
IF (FLAG(I).GT.0) FLAG(I) = IOVFLO
IF (FLAG(I).LE.-2) FLAG(I) = -IOVFLO
160     CONTINUE
NFLG = IOVFLO
170     NFLG = NFLG - 1
ID = IDN
KP1 = IPE(IS) + 1
NP = KP1
KP2 = IW(KP1-1) + KP1 - 1
DO 220 KP = KP1,KP2
KE = IW(KP)
IF (FLAG(KE)+1) 180,220,230
180       JP1 = IPE(KE) + 1
JP2 = IW(JP1-1) + JP1 - 1
IDL = ID
DO 190 JP = JP1,JP2
JS = IW(JP)
IF (FLAG(JS).LE.NFLG) GO TO 190
ID = ID + NV(JS)
FLAG(JS) = NFLG
190       CONTINUE
IF (ID.GT.IDL) GO TO 210
DO 200 JP = JP1,JP2
JS = IW(JP)
IF (FLAG(JS).NE.0) GO TO 210
200       CONTINUE
IPE(KE) = -ME
FLAG(KE) = -1
GO TO 220
210       IW(NP) = KE
FLAG(KE) = -NFLG
NP = NP + 1
220     CONTINUE
NP0 = NP
GO TO 250
230     KP0 = KP
NP0 = NP
DO 240 KP = KP0,KP2
KS = IW(KP)
IF (FLAG(KS).LE.NFLG) GO TO 240
ID = ID + NV(KS)
FLAG(KS) = NFLG
IW(NP) = KS
NP = NP + 1
240     CONTINUE
250     IW(NP) = IW(NP0)
IW(NP0) = IW(KP1)
IW(KP1) = ME
IW(KP1-1) = NP - KP1 + 1
JS = IPD(ID)
DO 280 L = 1,N
IF (JS.LE.0) GO TO 300
KP1 = IPE(JS) + 1
IF (IW(KP1).NE.ME) GO TO 300
KP2 = KP1 - 1 + IW(KP1-1)
DO 260 KP = KP1,KP2
IE = IW(KP)
IF (IABS(FLAG(IE)+0).GT.NFLG) GO TO 270
260       CONTINUE
GO TO 290
270       JS = NXT(JS)
280     CONTINUE
290     IPE(JS) = -IS
NV(IS) = NV(IS) + NV(JS)
NV(JS) = 0
FLAG(JS) = -1
NS = NXT(JS)
LS = LST(JS)
IF (NS.GT.0) LST(NS) = IS
IF (LS.GT.0) NXT(LS) = IS
LST(IS) = LS
NXT(IS) = NS
LST(JS) = 0
NXT(JS) = 0
IF (IPD(ID).EQ.JS) IPD(ID) = IS
GO TO 310
300     NS = IPD(ID)
IF (NS.GT.0) LST(NS) = IS
NXT(IS) = NS
IPD(ID) = IS
LST(IS) = -ID
MD = MIN0(MD,ID)
310   CONTINUE
DO 320 K = K1,K2
IS = IW(K)
IF (NV(IS).EQ.0) GO TO 320
FLAG(IS) = NFLG
IW(IP) = IS
IP = IP + 1
320   CONTINUE
IWFR = K1
FLAG(ME) = -NFLG
IW(IP) = IW(K1)
IW(K1) = IP - K1
IPE(ME) = K1
IWFR = IP + 1
GO TO 340
330   IPE(ME) = 0
340 END DO
350 RETURN
END
SUBROUTINE MA37ID(N,IPE,IW,LW,IWFR)
INTEGER IWFR,LW,N
INTEGER IPE(N),IW(LW)
INTEGER I,IR,K,K1,K2,LWFR
COMMON /MA37ED/OPSA,OPSB,IERROR,NRLTOT,NIRTOT,NRLNEC,NIRNEC,NRLB, &
&       NIRB,NRLADU,NIRADU,NRLBDU,NIRBDU,NCMPA,NCMPBR,NCMPBI,NOFF
DOUBLE PRECISION OPSA,OPSB
INTEGER IERROR,NCMPA,NCMPBI,NCMPBR,NIRADU,NIRB,NIRBDU,NIRNEC,     &
&        NIRTOT,NOFF,NRLADU,NRLB,NRLBDU,NRLNEC,NRLTOT
SAVE /MA37ED/
NCMPA = NCMPA + 1
DO 10 I = 1,N
K1 = IPE(I)
IF (K1.LE.0) GO TO 10
IPE(I) = IW(K1)
IW(K1) = -I
10 END DO
IWFR = 1
LWFR = IWFR
DO 60 IR = 1,N
IF (LWFR.GT.LW) GO TO 70
DO 20 K = LWFR,LW
IF (IW(K).LT.0) GO TO 30
20   CONTINUE
GO TO 70
30   I = -IW(K)
IW(IWFR) = IPE(I)
IPE(I) = IWFR
K1 = K + 1
K2 = K + IW(IWFR)
IWFR = IWFR + 1
IF (K1.GT.K2) GO TO 50
DO 40 K = K1,K2
IW(IWFR) = IW(K)
IWFR = IWFR + 1
40   CONTINUE
50   LWFR = K2 + 1
60 END DO
70 RETURN
END
SUBROUTINE MA37JD(N,NZ,IRN,ICN,PERM,IW,LW,IPE,IQ,FLAG,IWFR,IFLAG)
INTEGER IFLAG,IWFR,LW,N,NZ
INTEGER FLAG(N),ICN(*),IPE(N),IQ(N),IRN(*),IW(LW),PERM(N)
INTEGER I,ID,IN,J,JDUMMY,K,K1,K2,L,LBIG,LEN
INTRINSIC MAX0
COMMON /MA37DD/U,LP,MP,LDIAG
COMMON /MA37ED/OPSA,OPSB,IERROR,NRLTOT,NIRTOT,NRLNEC,NIRNEC,NRLB, &
&       NIRB,NRLADU,NIRADU,NRLBDU,NIRBDU,NCMPA,NCMPBR,NCMPBI,NOFF
COMMON /MA37FD/IOVFLO,NEMIN,IFRLVL(20)
DOUBLE PRECISION OPSA,OPSB,U
INTEGER IERROR,IOVFLO,LDIAG,LP,MP,NCMPA,NCMPBI,NCMPBR,NEMIN,      &
&        NIRADU,NIRB,NIRBDU,NIRNEC,NIRTOT,NOFF,NRLADU,NRLB,NRLBDU, &
&        NRLNEC,NRLTOT
INTEGER IFRLVL
SAVE /MA37DD/,/MA37ED/,/MA37FD/
IFLAG = 0
IERROR = 0
DO 10 I = 1,N
IQ(I) = 0
10 END DO
IF (NZ.EQ.0) GO TO 90
DO 80 K = 1,NZ
I = IRN(K)
J = ICN(K)
IW(K) = -I
IF (I-J) 20,40,30
20   IF (I.GE.1 .AND. J.LE.N) GO TO 60
GO TO 50
30   IF (J.GE.1 .AND. I.LE.N) GO TO 60
GO TO 50
40   IW(K) = 0
IF (I.GE.1 .AND. I.LE.N) GO TO 80
50   IERROR = IERROR + 1
IFLAG = 1
IW(K) = 0
IF (IERROR.LE.1 .AND. MP.GT.0) WRITE (MP,FMT=99999) IFLAG
IF (IERROR.LE.10 .AND. MP.GT.0) WRITE (MP,FMT=99998) K,I,J
GO TO 80
60   IF (PERM(J).GT.PERM(I)) GO TO 70
IQ(J) = IQ(J) + 1
GO TO 80
70   IQ(I) = IQ(I) + 1
80 END DO
90 IWFR = 1
LBIG = 0
DO 100 I = 1,N
L = IQ(I)
LBIG = MAX0(L,LBIG)
IWFR = IWFR + L
IPE(I) = IWFR - 1
100 END DO
IF (NZ.EQ.0) GO TO 230
DO 140 K = 1,NZ
I = -IW(K)
IF (I.LE.0) GO TO 140
L = K
IW(K) = 0
DO 130 ID = 1,NZ
J = ICN(L)
IF (PERM(I).LT.PERM(J)) GO TO 110
L = IPE(J)
IPE(J) = L - 1
IN = IW(L)
IW(L) = I
GO TO 120
110     L = IPE(I)
IPE(I) = L - 1
IN = IW(L)
IW(L) = J
120     I = -IN
IF (I.LE.0) GO TO 140
130   CONTINUE
140 END DO
K = IWFR - 1
L = K + N
IWFR = L + 1
DO 170 I = 1,N
FLAG(I) = 0
J = N + 1 - I
LEN = IQ(J)
IF (LEN.LE.0) GO TO 160
DO 150 JDUMMY = 1,LEN
IW(L) = IW(K)
K = K - 1
L = L - 1
150   CONTINUE
160   IPE(J) = L
L = L - 1
170 END DO
IF (LBIG.GE.IOVFLO) GO TO 190
DO 180 I = 1,N
K = IPE(I)
IW(K) = IQ(I)
IF (IQ(I).EQ.0) IPE(I) = 0
180 END DO
GO TO 230
190 IWFR = 1
DO 220 I = 1,N
K1 = IPE(I) + 1
K2 = IPE(I) + IQ(I)
IF (K1.LE.K2) GO TO 200
IPE(I) = 0
GO TO 220
200   IPE(I) = IWFR
IWFR = IWFR + 1
DO 210 K = K1,K2
J = IW(K)
IF (FLAG(J).EQ.I) GO TO 210
IW(IWFR) = J
IWFR = IWFR + 1
FLAG(J) = I
210   CONTINUE
K = IPE(I)
IW(K) = IWFR - K - 1
220 END DO
230 RETURN
99999 FORMAT (54H *** WARNING MESSAGE FROM SUBROUTINE MA37AD *** IFLAG ,&
&       1H=,I2)
99998 FORMAT (I6,19HTH NON-ZERO (IN ROW,I6,11H AND COLUMN,I6,           &
&       9H) IGNORED)
END
SUBROUTINE MA37KD(N,IPE,IW,LW,IWFR,IPS,IPV,NV,FLAG)
INTEGER IWFR,LW,N
INTEGER FLAG(N),IPE(N),IPS(N),IPV(N),IW(LW),NV(N)
INTEGER I,IE,IP,J,JE,JP,JP1,JP2,JS,KDUMMY,LN,LWFR,ME,MINJS,ML,MS
EXTERNAL MA37ID
INTRINSIC MIN0
COMMON /MA37ED/OPSA,OPSB,IERROR,NRLTOT,NIRTOT,NRLNEC,NIRNEC,NRLB, &
&       NIRB,NRLADU,NIRADU,NRLBDU,NIRBDU,NCMPA,NCMPBR,NCMPBI,NOFF
DOUBLE PRECISION OPSA,OPSB
INTEGER IERROR,NCMPA,NCMPBI,NCMPBR,NIRADU,NIRB,NIRBDU,NIRNEC,     &
&        NIRTOT,NOFF,NRLADU,NRLB,NRLBDU,NRLNEC,NRLTOT
SAVE /MA37ED/
DO 10 I = 1,N
FLAG(I) = 0
NV(I) = 0
J = IPS(I)
IPV(J) = I
10 END DO
NCMPA = 0
DO 100 ML = 1,N
MS = IPV(ML)
ME = MS
FLAG(MS) = ME
IP = IWFR
MINJS = N
IE = ME
DO 70 KDUMMY = 1,N
JP = IPE(IE)
LN = 0
IF (JP.LE.0) GO TO 60
LN = IW(JP)
DO 50 JP1 = 1,LN
JP = JP + 1
JS = IW(JP)
IF (FLAG(JS).EQ.ME) GO TO 50
FLAG(JS) = ME
IF (IWFR.LT.LW) GO TO 40
IPE(IE) = JP
IW(JP) = LN - JP1
CALL MA37ID(N,IPE,IW,IP-1,LWFR)
JP2 = IWFR - 1
IWFR = LWFR
IF (IP.GT.JP2) GO TO 30
DO 20 JP = IP,JP2
IW(IWFR) = IW(JP)
IWFR = IWFR + 1
20       CONTINUE
30       IP = LWFR
JP = IPE(IE)
40       IW(IWFR) = JS
MINJS = MIN0(MINJS,IPS(JS)+0)
IWFR = IWFR + 1
50     CONTINUE
60     IPE(IE) = -ME
JE = NV(IE)
NV(IE) = LN + 1
IE = JE
IF (IE.EQ.0) GO TO 80
70   CONTINUE
80   IF (IWFR.GT.IP) GO TO 90
IPE(ME) = 0
NV(ME) = 1
GO TO 100
90   MINJS = IPV(MINJS)
NV(ME) = NV(MINJS)
NV(MINJS) = ME
IW(IWFR) = IW(IP)
IW(IP) = IWFR - IP
IPE(ME) = IP
IWFR = IWFR + 1
100 END DO
RETURN
END
SUBROUTINE MA37LD(N,IPE,NV,IPS,NE,NA,ND,NSTEPS)
INTEGER N,NSTEPS
INTEGER IPE(N),IPS(N),NA(N),ND(N),NE(N),NV(N)
INTEGER I,IB,IF,IL,IS,ISON,K,L,NR
COMMON /MA37FD/IOVFLO,NEMIN,IFRLVL(20)
INTEGER IOVFLO,NEMIN
INTEGER IFRLVL
SAVE /MA37FD/
DO 10 I = 1,N
IPS(I) = 0
NE(I) = 0
10 END DO
DO 20 I = 1,N
IF (NV(I).GT.0) GO TO 20
IF = -IPE(I)
IS = -IPS(IF)
IF (IS.GT.0) IPE(I) = IS
IPS(IF) = -I
20 END DO
NR = N + 1
DO 50 I = 1,N
IF (NV(I).LE.0) GO TO 50
IF = -IPE(I)
IF (IF.EQ.0) GO TO 40
IS = -IPS(IF)
IF (IS.LE.0) GO TO 30
IPE(I) = IS
30   IPS(IF) = -I
GO TO 50
40   NR = NR - 1
NE(NR) = I
50 END DO
IS = 1
I = 0
DO 160 K = 1,N
IF (I.GT.0) GO TO 60
I = NE(NR)
NE(NR) = 0
NR = NR + 1
IL = N
NA(N) = 0
60   DO 70 L = 1,N
IF (IPS(I).GE.0) GO TO 80
ISON = -IPS(I)
IPS(I) = 0
I = ISON
IL = IL - 1
NA(IL) = 0
70   CONTINUE
80   IPS(I) = K
NE(IS) = NE(IS) + 1
IF (NV(I).LE.0) GO TO 120
IF (IL.LT.N) NA(IL+1) = NA(IL+1) + 1
NA(IS) = NA(IL)
ND(IS) = NV(I)
IF (NA(IS).NE.1) GO TO 90
IF (ND(IS-1)-NE(IS-1).EQ.ND(IS)) GO TO 100
90   IF (NE(IS).GE.NEMIN) GO TO 110
IF (NA(IS).EQ.0) GO TO 110
IF (NE(IS-1).GE.NEMIN) GO TO 110
100   NA(IS-1) = NA(IS-1) + NA(IS) - 1
ND(IS-1) = ND(IS) + NE(IS-1)
NE(IS-1) = NE(IS) + NE(IS-1)
NE(IS) = 0
GO TO 120
110   IS = IS + 1
120   IB = IPE(I)
IF (IB) 150,140,130
130   NA(IL) = 0
140   I = IB
GO TO 160
150   I = -IB
IL = IL + 1
160 END DO
NSTEPS = IS - 1
RETURN
END
SUBROUTINE MA37MD(N,NZ,IRN,ICN,PERM,NA,NE,ND,NSTEPS,LSTKI,LSTKR,  &
&                  IW)
INTEGER N,NSTEPS,NZ
INTEGER ICN(*),IRN(*),IW(*),LSTKI(N),LSTKR(N),NA(NSTEPS),         &
&        ND(NSTEPS),NE(NSTEPS),PERM(N)
INTEGER I,INEW,IOLD,IORG,ISP,ISTKI,ISTKR,ITOP,ITREE,JNEW,JOLD,    &
&        JORG,K,LSTK,NASSR,NELIM,NFR,NSTK,NUMORG,NZ1,NZ2,NZ3,NZ4
DOUBLE PRECISION DELIM
INTRINSIC MAX0,MIN0
COMMON /MA37ED/OPSA,OPSB,IERROR,NRLTOT,NIRTOT,NRLNEC,NIRNEC,NRLB, &
&       NIRB,NRLADU,NIRADU,NRLBDU,NIRBDU,NCMPA,NCMPBR,NCMPBI,NOFF
DOUBLE PRECISION OPSA,OPSB
INTEGER IERROR,NCMPA,NCMPBI,NCMPBR,NIRADU,NIRB,NIRBDU,NIRNEC,     &
&        NIRTOT,NOFF,NRLADU,NRLB,NRLBDU,NRLNEC,NRLTOT
SAVE /MA37ED/
IF (IRN(1).NE.IW(1)) GO TO 20
IRN(1) = IW(1) - 1
NZ1 = 3*N
DO 10 IOLD = 1,N
INEW = PERM(IOLD)
LSTKI(INEW) = LSTKR(IOLD) + 3
NZ1 = NZ1 + LSTKR(IOLD)
10 END DO
GO TO 50
20 DO 30 I = 1,N
LSTKI(I) = 3
30 END DO
NZ1 = N*3
IF (NZ.EQ.0) GO TO 50
DO 40 I = 1,NZ
IOLD = IRN(I)
JOLD = ICN(I)
IF (IOLD.LT.1 .OR. IOLD.GT.N) GO TO 40
IF (JOLD.LT.1 .OR. JOLD.GT.N) GO TO 40
IF (IOLD.EQ.JOLD) GO TO 40
NZ1 = NZ1 + 1
INEW = PERM(IOLD)
JNEW = PERM(JOLD)
IF (JNEW.GT.INEW) LSTKI(INEW) = LSTKI(INEW) + 1
IF (JNEW.LT.INEW) LSTKI(JNEW) = LSTKI(JNEW) + 1
40 END DO
50 ISTKI = 0
ISTKR = 0
OPSA = 0.0D0
NRLADU = 0
NIRADU = 1
NZ2 = NZ1
NZ3 = NZ1 - 2*N
NZ4 = NZ2 - 2*N
NIRTOT = NZ1
NRLTOT = NZ3
NIRNEC = NZ2
NRLNEC = NZ4
NUMORG = 0
ITOP = 0
DO 90 ITREE = 1,NSTEPS
NELIM = NE(ITREE)
DELIM = NELIM
NFR = ND(ITREE)
NSTK = NA(ITREE)
NASSR = NFR*NFR
NRLTOT = MAX0(NRLTOT,NRLADU+NASSR+ISTKR+NZ3)
NIRTOT = MAX0(NIRTOT,NIRADU+2*NFR+2+ISTKI+NZ1)
NRLNEC = MAX0(NRLNEC,NRLADU+NASSR+ISTKR+NZ4)
NIRNEC = MAX0(NIRNEC,NIRADU+2*NFR+2+ISTKI+NZ2)
DO 60 IORG = 1,NELIM
JORG = NUMORG + IORG
NZ2 = NZ2 - LSTKI(JORG)
NZ4 = NZ4 - LSTKI(JORG) + 2
60   CONTINUE
NUMORG = NUMORG + NELIM
ISP = (NFR*NFR+3)/4 + 1
IF (NELIM.LE. (NFR/2)) ISP = NELIM*NFR - NELIM*NELIM + 1
NRLTOT = MAX0(NRLTOT,NRLADU+ISP+NASSR+ISTKR+NZ3)
NRLNEC = MAX0(NRLNEC,NRLADU+ISP+NASSR+ISTKR+NZ4)
IF (NSTK.LE.0) GO TO 80
DO 70 K = 1,NSTK
LSTK = LSTKR(ITOP)
ISTKR = ISTKR - LSTK
LSTK = LSTKI(ITOP)
ISTKI = ISTKI - LSTK
ITOP = ITOP - 1
70   CONTINUE
80   NRLADU = NRLADU + NELIM* (2*NFR-NELIM)
NIRADU = NIRADU + 2 + 2*NFR
OPSA = OPSA + (NFR*DELIM* (NFR-DELIM-1)+                        &
&         (DELIM* (DELIM+1)* (2*DELIM+1))/6)
IF (ITREE.EQ.NSTEPS) GO TO 90
IF (NFR.EQ.NELIM) GO TO 90
ITOP = ITOP + 1
LSTKR(ITOP) = (NFR-NELIM)* (NFR-NELIM)
LSTKI(ITOP) = 2* (NFR-NELIM) + 1
ISTKI = ISTKI + LSTKI(ITOP)
ISTKR = ISTKR + LSTKR(ITOP)
NIRTOT = MAX0(NIRTOT,NIRADU+ISTKI+NZ1)
NIRNEC = MAX0(NIRNEC,NIRADU+ISTKI+NZ2)
90 END DO
NRLNEC = MAX0(NRLNEC,N+MAX0(NZ,NZ3))
NRLTOT = MAX0(NRLTOT,N+MAX0(NZ,NZ3))
NIRTOT = MAX0(NIRTOT+N,2*N+MAX0(NZ,NZ1))
NIRNEC = MAX0(NIRNEC+N,2*N+MAX0(NZ,NZ1))
NRLNEC = MIN0(NRLNEC,NRLTOT)
NIRNEC = MAX0(NZ,NIRNEC)
NIRTOT = MAX0(NZ,NIRTOT)
NIRNEC = MIN0(NIRNEC,NIRTOT)
RETURN
END
SUBROUTINE MA37ND(N,NZ,IW,LIW,IRN,ICN,IFLAG)
INTEGER IFLAG,LIW,N,NZ
INTEGER ICN(*),IRN(*),IW(LIW)
INTEGER I,K
INTRINSIC MAX0
COMMON /MA37ED/OPSA,OPSB,IERROR,NRLTOT,NIRTOT,NRLNEC,NIRNEC,NRLB, &
&       NIRB,NRLADU,NIRADU,NRLBDU,NIRBDU,NCMPA,NCMPBR,NCMPBI,NOFF
DOUBLE PRECISION OPSA,OPSB
INTEGER IERROR,NCMPA,NCMPBI,NCMPBR,NIRADU,NIRB,NIRBDU,NIRNEC,     &
&        NIRTOT,NOFF,NRLADU,NRLB,NRLBDU,NRLNEC,NRLTOT
SAVE /MA37ED/
IFLAG = 0
NIRB = NZ + 2*N
NRLB = NZ + N
IF (IRN(1).NE.IW(1)) GO TO 30
IRN(1) = IW(1) - 1
NIRB = MAX0(2*NZ+2*N,NIRB)
IF (LIW.GE.2*NZ+2*N) GO TO 10
IERROR = 2*NZ + 2*N
IFLAG = -3
GO TO 30
10 IFLAG = 1
IF (NZ.LE.0) GO TO 30
K = NZ + 1
DO 20 I = 1,NZ
IW(K) = ICN(I)
K = K + 1
20 END DO
30 RETURN
END
SUBROUTINE MA37OD(N,NZ,NZ1,A,LA,IRN,ICN,IW,LIW,PERM,IW4,IFLAG)
DOUBLE PRECISION ZERO
PARAMETER (ZERO=0.0D0)
INTEGER IFLAG,LA,LIW,N,NZ
DOUBLE PRECISION A(LA)
INTEGER ICN(*),IRN(*),IW(LIW),IW4(N,2),NZ1(2),PERM(N)
DOUBLE PRECISION ANEXT,ANOW
INTEGER I,IA,ICH,II,IIW,INEW,IOLD,IPOS,J1,J2,JJ,JNEW,JOLD,JPOS,K, &
&        L,NARROW,NZSORT
INTRINSIC MAX0
COMMON /MA37DD/U,LP,MP,LDIAG
COMMON /MA37ED/OPSA,OPSB,IERROR,NRLTOT,NIRTOT,NRLNEC,NIRNEC,NRLB, &
&       NIRB,NRLADU,NIRADU,NRLBDU,NIRBDU,NCMPA,NCMPBR,NCMPBI,NOFF
DOUBLE PRECISION OPSA,OPSB,U
INTEGER IERROR,LDIAG,LP,MP,NCMPA,NCMPBI,NCMPBR,NIRADU,NIRB,NIRBDU,&
&        NIRNEC,NIRTOT,NOFF,NRLADU,NRLB,NRLBDU,NRLNEC,NRLTOT
SAVE /MA37DD/,/MA37ED/
IFLAG = 0
IA = LA
DO 10 IOLD = 1,N
IW4(IOLD,1) = 0
IW4(IOLD,2) = 0
A(IA) = ZERO
IA = IA - 1
10 END DO
IERROR = 0
NZSORT = N
IF (NZ.EQ.0) GO TO 80
DO 70 K = 1,NZ
IOLD = IRN(K)
IF (IOLD.GT.N .OR. IOLD.LE.0) GO TO 50
JOLD = ICN(K)
IF (JOLD.GT.N .OR. JOLD.LE.0) GO TO 50
INEW = PERM(IOLD)
JNEW = PERM(JOLD)
IF (INEW.NE.JNEW) GO TO 20
IA = LA - N + IOLD
A(IA) = A(IA) + A(K)
GO TO 60
20   IF (INEW.LT.JNEW) GO TO 30
IW4(JNEW,1) = IW4(JNEW,1) + 1
GO TO 40
30   IW4(INEW,2) = IW4(INEW,2) + 1
40   IW(K) = -IOLD
NZSORT = NZSORT + 1
GO TO 70
50   IFLAG = 1
IERROR = IERROR + 1
IF (IERROR.LE.1 .AND. MP.GT.0) WRITE (MP,FMT=99999) IFLAG
IF (IERROR.LE.10 .AND. MP.GT.0) WRITE (MP,FMT=99998) K,IRN(K),  &
&      ICN(K)
60   IW(K) = 0
70 END DO
80 NZ1(1) = NZSORT
NZ1(2) = NZSORT
IF (NZSORT+N.GT.LA) GO TO 270
IF (NZSORT+3*N.GT.LIW) GO TO 260
K = 1
IF (NZ.LT.NZSORT .AND. NZSORT.NE.N) GO TO 100
DO 90 I = 1,N
IF (IW4(I,1).NE.IW4(I,2)) NZ1(2) = NZ1(2) + 1
K = K + IW4(I,1) + 1
IW4(I,1) = K
K = K + IW4(I,2)
IW4(I,2) = K
90 END DO
GO TO 120
100 DO 110 I = 1,N
IF (IW4(I,1).NE.IW4(I,2)) NZ1(2) = NZ1(2) + 1
K = K + IW4(I,1)
IW4(I,1) = K
K = K + IW4(I,2)
IW4(I,2) = K
110 END DO
120 NZ1(2) = NZ1(2) + N
NIRB = MAX0(NIRB,NZSORT+4*N)
NRLB = MAX0(NRLB,NZSORT+N)
IF (NZ.EQ.0) GO TO 170
DO 160 K = 1,NZ
IOLD = -IW(K)
IF (IOLD.LE.0) GO TO 160
JOLD = ICN(K)
ANOW = A(K)
IW(K) = 0
DO 150 ICH = 1,NZ
INEW = PERM(IOLD)
JNEW = PERM(JOLD)
IF (JNEW.GT.INEW) GO TO 130
JPOS = IW4(JNEW,1) - 1
JOLD = IOLD
IOLD = -IW(JPOS)
ANEXT = A(JPOS)
A(JPOS) = ANOW
IW(JPOS) = JOLD
IW4(JNEW,1) = JPOS
GO TO 140
130     JPOS = IW4(INEW,2) - 1
IOLD = -IW(JPOS)
ANEXT = A(JPOS)
A(JPOS) = ANOW
IW(JPOS) = JOLD
IW4(INEW,2) = JPOS
140     IF (IOLD.EQ.0) GO TO 160
ANOW = ANEXT
JOLD = ICN(JPOS)
150   CONTINUE
160 END DO
170 IF (NZ.GE.NZSORT .OR. NZSORT.EQ.N) GO TO 210
IPOS = NZSORT
JPOS = NZSORT - N
DO 200 II = 1,N
I = N - II + 1
J1 = IW4(I,1)
J2 = JPOS
IF (J1.GT.J2) GO TO 190
DO 180 JJ = J1,J2
IW(IPOS) = IW(JPOS)
A(IPOS) = A(JPOS)
IPOS = IPOS - 1
JPOS = JPOS - 1
180   CONTINUE
190   IW4(I,1) = IPOS + 1
IW4(I,2) = IW4(I,2) - JPOS + IPOS
IPOS = IPOS - 1
200 END DO
210 DO 220 IOLD = 1,N
INEW = PERM(IOLD)
JPOS = IW4(INEW,1) - 1
IA = LA - N + IOLD
A(JPOS) = A(IA)
IW(JPOS) = -IOLD
IW4(INEW,2) = IW4(INEW,2) - IW4(INEW,1)
220 END DO
IPOS = NZSORT
IA = LA
IIW = LIW
NARROW = 0
INEW = N
DO 250 I = 1,NZSORT
A(IA) = A(IPOS)
IW(IIW) = IW(IPOS)
NARROW = NARROW + 1
IF (IW(IIW).GT.0) GO TO 240
IW(IIW) = -IW(IIW)
L = IW4(INEW,2)
INEW = INEW - 1
K = NARROW - 1 - L
NARROW = 0
IIW = IIW - 1
IW(IIW) = K
IF (K.EQ.L) GO TO 240
IW(IIW) = -IW(IIW)
IIW = IIW - 1
IW(IIW) = L
240   IPOS = IPOS - 1
IA = IA - 1
IIW = IIW - 1
250 END DO
GO TO 290
260 IFLAG = -3
IERROR = NZSORT + 2*N
GO TO 290
270 IFLAG = -4
IERROR = NZ1(1) + N
290 RETURN
99999 FORMAT (54H *** WARNING MESSAGE FROM SUBROUTINE MA37BD *** IFLAG ,&
&       1H=,I2)
99998 FORMAT (I6,19HTH NON-ZERO (IN ROW,I6,11H AND COLUMN,I6,           &
&       9H) IGNORED)
END
SUBROUTINE MA37PD(N,NZ,A,LA,IW,LIW,PERM,NSTK,NSTEPS,MAXFRT,NELIM, &
&                  IW2,IFLAG)
DOUBLE PRECISION ZERO,ONE
PARAMETER (ZERO=0.0D0,ONE=1.0D0)
INTEGER IFLAG,LA,LIW,MAXFRT,N,NSTEPS
DOUBLE PRECISION A(LA)
INTEGER IW(LIW),IW2(N),NELIM(NSTEPS),NSTK(NSTEPS),NZ(2),PERM(N)
DOUBLE PRECISION AMAX,AMULT,RMAX,SWOP,UU
INTEGER AINPUT,APOS,APOS2,ASTK,ASTK2,IASS,ICOL,IDIAG,IDUMMY,IELL, &
&        IFIRST,IFR,IINPUT,IJLAST,IJNEW,IJNEXT,IJROW,IOLDPS,IORG,  &
&        IPIV,IPOS,IRO,IROW,IRWPOS,ISP,ISTK,ISTK2,ISW,ISWPS1,      &
&        ISWPS2,IWPOS,J,J1,J2,J3,J4,JDUMMY,JFIRST,JJ,JJJ,JLAST,    &
&        JMAX,JROW,K,KDUMMY,KK,KRO,KSW,LAELL,LAPOS2,LIELL,LPOS,    &
&        LSTK,NASS,NBLK,NEL,NEWEL,NFR,NFRM1,NFRONT,NPIV,NPIVP1,    &
&        NTOTPV,NUMASS,NUMORG,NUMSTK,POSELT,POSFAC,UPOS,UUPOS
EXTERNAL MA37QD
INTRINSIC DABS,DMAX1,DMIN1,IABS,MAX0
COMMON /MA37DD/U,LP,MP,LDIAG
COMMON /MA37ED/OPSA,OPSB,IERROR,NRLTOT,NIRTOT,NRLNEC,NIRNEC,NRLB, &
&       NIRB,NRLADU,NIRADU,NRLBDU,NIRBDU,NCMPA,NCMPBR,NCMPBI,NOFF
DOUBLE PRECISION OPSA,OPSB,U
INTEGER IERROR,LDIAG,LP,MP,NCMPA,NCMPBI,NCMPBR,NIRADU,NIRB,NIRBDU,&
&        NIRNEC,NIRTOT,NOFF,NRLADU,NRLB,NRLBDU,NRLNEC,NRLTOT
SAVE /MA37DD/,/MA37ED/
NOFF = 0
NBLK = 0
NCMPBI = 0
NCMPBR = 0
MAXFRT = 0
OPSB = 0.0D0
DO 10 J = 1,N
IW2(J) = 0
10 END DO
IWPOS = 2
POSFAC = 1
ISTK = LIW - NZ(2) + 1
ISTK2 = ISTK - 1
ASTK = LA - NZ(1) + 1
ASTK2 = ASTK - 1
IINPUT = ISTK
AINPUT = ASTK
NTOTPV = 0
NUMASS = 0
DO 600 IASS = 1,NSTEPS
NASS = NELIM(IASS)
NEWEL = IWPOS + 1
IFIRST = N + 1
JFIRST = N + 1
NFRONT = 0
NUMSTK = NSTK(IASS)
IF (NUMSTK.EQ.0) GO TO 110
J2 = ISTK - 1
DO 100 IELL = 1,NUMSTK
LSTK = IW(J2+1)
J1 = J2 + LSTK + 2
J2 = J2 + LSTK*2 + 1
IJNEXT = IFIRST
IJLAST = N + 1
DO 90 JJ = J1,J2
J = IW(JJ)
IF (IW2(J).GT.0) GO TO 90
IJNEW = PERM(J)
IF (IJNEW.GT.NUMASS) GO TO 30
NASS = NASS + 1
IF (JFIRST.LE.N) GO TO 20
JFIRST = J
JLAST = J
20       IW2(JLAST) = J
IW2(J) = J
JLAST = J
GO TO 80
30       DO 40 IDUMMY = 1,N
IF (IJNEXT.EQ.N+1) GO TO 50
IF (PERM(IJNEXT).GT.IJNEW) GO TO 50
IJLAST = IJNEXT
IJNEXT = IW2(IJLAST)
40       CONTINUE
50       IF (IJLAST.NE.N+1) GO TO 60
IFIRST = J
GO TO 70
60       IW2(IJLAST) = J
70       IW2(J) = IJNEXT
IJLAST = J
80       NFRONT = NFRONT + 1
90     CONTINUE
100   CONTINUE
110   NUMORG = NELIM(IASS)
J2 = IINPUT - 1
DO 180 IORG = 1,NUMORG
J1 = J2 + 2
J2 = J1 + IW(J1-1)*2
IF (IW(J1).GT.0) GO TO 120
J1 = J1 + 1
J2 = J1 + IW(J1-2) - IW(J1-1)
120     DO 170 JJ = J1,J2
J = IW(JJ)
IF (IW2(J).GT.0) GO TO 170
IJLAST = N + 1
IJNEW = PERM(J)
IJNEXT = IFIRST
DO 130 JDUMMY = 1,N
IF (IJNEXT.EQ.N+1) GO TO 140
IF (PERM(IJNEXT).GT.IJNEW) GO TO 140
IJLAST = IJNEXT
IJNEXT = IW2(IJLAST)
130       CONTINUE
140       IF (IJLAST.NE.N+1) GO TO 150
IFIRST = J
GO TO 160
150       IW2(IJLAST) = J
160       IW2(J) = IJNEXT
NFRONT = NFRONT + 1
170     CONTINUE
180   CONTINUE
IF (JFIRST.GT.N) GO TO 190
IW2(JLAST) = IFIRST
IFIRST = JFIRST
190   NIRB = MAX0(NIRB,LIW-IINPUT+1+ISTK2-ISTK+1+NEWEL+2*NFRONT+N)
IF (NEWEL+2*NFRONT.LT.ISTK) GO TO 200
CALL MA37QD(A,IW,ISTK,ISTK2,IINPUT,2)
IF (NEWEL+2*NFRONT.LT.ISTK) GO TO 200
IERROR = LIW + 1 + NEWEL + 2*NFRONT - ISTK + N
GO TO 610
200   J = IFIRST
IPOS = NEWEL
DO 210 IFR = 1,NFRONT
NEWEL = NEWEL + 1
IW(NEWEL) = J
JJ = NEWEL + NFRONT
IW(JJ) = J
IJNEXT = IW2(J)
IW2(J) = NEWEL - IPOS
J = IJNEXT
210   CONTINUE
MAXFRT = MAX0(MAXFRT,NFRONT)
IW(IWPOS) = NFRONT
LAELL = NFRONT*NFRONT
NRLB = MAX0(NRLB,LA-AINPUT+1+ASTK2-ASTK+1+POSFAC-1+LAELL)
IF (ASTK-LAELL.GE.POSFAC) GO TO 220
CALL MA37QD(A,IW,ASTK,ASTK2,AINPUT,1)
IF (ASTK-LAELL.GE.POSFAC) GO TO 220
IERROR = POSFAC + LAELL + LA - ASTK
GO TO 620
220   POSELT = ASTK - LAELL
LAPOS2 = ASTK - 1
DO 230 K = POSELT,LAPOS2
A(K) = ZERO
230   CONTINUE
IF (NUMSTK.EQ.0) GO TO 290
NEWEL = IWPOS + 1
DO 280 IELL = 1,NUMSTK
LSTK = IW(ISTK)
J1 = ISTK + 1 + LSTK
J2 = ISTK + LSTK*2
DO 250 JJ = J1,J2
IROW = IW(JJ)
IF (PERM(IROW).GT.NUMASS) GO TO 240
NEWEL = NEWEL + 1
J = JJ - LSTK
IW(NEWEL) = IW(J)
240       IW(JJ) = IW2(IROW)
250     CONTINUE
DO 270 JJ = J1,J2
IROW = IW(JJ)
APOS = POSELT + (IROW-1)*NFRONT
DO 260 JJJ = J1,J2
APOS2 = APOS + IW(JJJ) - 1
A(APOS2) = A(APOS2) + A(ASTK)
ASTK = ASTK + 1
260       CONTINUE
270     CONTINUE
ISTK = J2 + 1
280   CONTINUE
290   DO 320 IORG = 1,NUMORG
JJ = IINPUT
IF (IW(JJ+1).LE.0) JJ = JJ + 1
J1 = JJ + 1
J2 = J1 + IW(IINPUT)
J3 = J2 + 1
J4 = J2 + IABS(IW(JJ)+0)
J = IW(J1)
IINPUT = J4 + 1
IJROW = IW2(J)
DO 300 JJ = J1,J2
J = IW(JJ)
APOS2 = POSELT + (IW2(J)-1)*NFRONT + IJROW - 1
A(APOS2) = A(APOS2) + A(AINPUT)
AINPUT = AINPUT + 1
300     CONTINUE
IF (J3.GT.J4) GO TO 320
DO 310 JJ = J3,J4
J = IW(JJ)
APOS2 = POSELT + (IJROW-1)*NFRONT + IW2(J) - 1
A(APOS2) = A(APOS2) + A(AINPUT)
AINPUT = AINPUT + 1
310     CONTINUE
320   CONTINUE
NUMASS = NUMASS + NUMORG
J1 = IWPOS + 2 + NFRONT
J2 = J1 + NFRONT - 1
DO 330 KK = J1,J2
J = IW(KK)
IW2(J) = 0
330   CONTINUE
NPIV = 0
DO 470 KDUMMY = 1,NASS
NPIVP1 = NPIV + 1
DO 460 IPIV = NPIVP1,NASS
APOS = POSELT + NFRONT* (IPIV-1) + NPIV
JMAX = 1
goto 340
IF (A(APOS).EQ.ZERO) GO TO 630
GO TO 380
340       AMAX = ZERO
J1 = APOS
J2 = APOS - NPIV + NASS - 1
DO 350 JJ = J1,J2
IF (DABS(A(JJ)).LE.AMAX) GO TO 350
JMAX = JJ - J1 + 1
AMAX = DABS(A(JJ))
350       CONTINUE
RMAX = AMAX
J1 = J2 + 1
J2 = APOS - NPIV + NFRONT - 1
IF (J2.LT.J1) GO TO 370
DO 360 JJ = J1,J2
RMAX = DMAX1(DABS(A(JJ)),RMAX)
360       CONTINUE
370       IF (RMAX.EQ.ZERO) GO TO 460
IDIAG = APOS + IPIV - NPIVP1
JMAX = IPIV - NPIV
GO TO 380
NOFF = NOFF + 1
380       IF (IPIV.EQ.NPIVP1) GO TO 400
J1 = POSELT + NPIV*NFRONT
J2 = J1 + NFRONT - 1
J3 = POSELT + (IPIV-1)*NFRONT
DO 390 JJ = J1,J2
SWOP = A(JJ)
A(JJ) = A(J3)
A(J3) = SWOP
J3 = J3 + 1
390       CONTINUE
ISWPS1 = IWPOS + 1 + NPIVP1
ISWPS2 = IWPOS + 1 + IPIV
ISW = IW(ISWPS1)
IW(ISWPS1) = IW(ISWPS2)
IW(ISWPS2) = ISW
400       IF (JMAX.EQ.1) GO TO 420
J1 = POSELT + NPIV
J2 = POSELT + NPIV + JMAX - 1
DO 410 KSW = 1,NFRONT
SWOP = A(J1)
A(J1) = A(J2)
A(J2) = SWOP
J1 = J1 + NFRONT
J2 = J2 + NFRONT
410       CONTINUE
ISWPS1 = IWPOS + 1 + NFRONT + NPIV + 1
ISWPS2 = IWPOS + 1 + NFRONT + NPIV + JMAX
ISW = IW(ISWPS1)
IW(ISWPS1) = IW(ISWPS2)
IW(ISWPS2) = ISW
420       NEL = NFRONT - NPIV - 1
APOS = POSELT + (NPIV)*NFRONT + NPIV
A(APOS) = ONE/A(APOS)
IF (NEL.EQ.0) GO TO 450
OPSB = OPSB + NEL*NEL
LPOS = APOS
UPOS = APOS + 1
DO 440 IROW = 1,NEL
LPOS = LPOS + NFRONT
AMULT = -A(LPOS)*A(APOS)
A(LPOS) = AMULT
IRWPOS = LPOS + 1
UUPOS = UPOS
DO 430 JROW = 1,NEL
A(IRWPOS) = A(IRWPOS) + AMULT*A(UUPOS)
UUPOS = UUPOS + 1
IRWPOS = IRWPOS + 1
430         CONTINUE
440       CONTINUE
450       NPIV = NPIV + 1
NTOTPV = NTOTPV + 1
GO TO 470
460     CONTINUE
GO TO 480
470   CONTINUE
480   IF (NPIV.NE.0) NBLK = NBLK + 1
IOLDPS = IWPOS
IROW = IWPOS + NPIV + 2
IWPOS = IWPOS + 2*NFRONT + 2
IF (NPIV.EQ.0) GO TO 530
IW(IOLDPS+1) = NPIV
ISP = (NFRONT*NFRONT+3)/4 + 1
IF (NPIV.LE. (NFRONT/2)) ISP = NPIV*NFRONT - NPIV*NPIV + 1
NRLB = MAX0(NRLB,POSFAC-1+ISP+LA-AINPUT+1+LAELL+ASTK2-ASTK+1)
IF ((POSFAC-1+ISP).LT.POSELT) GO TO 490
J2 = POSELT + LAELL - 1
CALL MA37QD(A,IW,POSELT,J2,ASTK,1)
IF ((POSFAC-1+ISP).LT.POSELT) GO TO 490
CALL MA37QD(A,IW,POSELT,ASTK2,AINPUT,1)
ASTK = POSELT + LAELL
IF ((POSFAC-1+ISP).LT.POSELT) GO TO 490
IERROR = POSFAC + ISP + LA - POSELT
GO TO 620
490   APOS = POSELT
DO 520 IPIV = 1,NPIV
J1 = APOS + IPIV - 1
NFR = NFRONT - IPIV + 1
DO 500 K = 1,NFR
A(POSFAC) = A(J1)
J1 = J1 + NFRONT
POSFAC = POSFAC + 1
500     CONTINUE
APOS = APOS + IPIV
NFRM1 = NFR - 1
IF (NFRM1.EQ.0) GO TO 520
DO 510 K = 1,NFRM1
A(POSFAC) = A(APOS)
POSFAC = POSFAC + 1
APOS = APOS + 1
510     CONTINUE
520   CONTINUE
530   LIELL = NFRONT - NPIV
IF (LIELL.EQ.0 .OR. IASS.EQ.NSTEPS) GO TO 590
KK = POSELT + NFRONT*NFRONT - 1
DO 550 KRO = 1,LIELL
DO 540 IRO = 1,LIELL
ASTK = ASTK - 1
A(ASTK) = A(KK)
KK = KK - 1
540     CONTINUE
KK = KK - NPIV
550   CONTINUE
NIRB = MAX0(NIRB,LIW-IINPUT+1+ISTK2-ISTK+1+IWPOS+2*LIELL+N)
IF (ISTK-2*LIELL.GT.IWPOS) GO TO 560
CALL MA37QD(A,IW,ISTK,ISTK2,IINPUT,2)
IF (ISTK-2*LIELL.GT.IWPOS) GO TO 560
IERROR = IWPOS + LIW - ISTK + 2*LIELL + 1 + N
GO TO 610
560   ISTK = ISTK - 2*LIELL - 1
IW(ISTK) = LIELL
ICOL = IROW + NFRONT
J1 = ISTK + 1
DO 570 K = 1,LIELL
IW(J1) = IW(IROW)
J1 = J1 + 1
IROW = IROW + 1
570   CONTINUE
DO 580 K = 1,LIELL
IW(J1) = IW(ICOL)
J1 = J1 + 1
ICOL = ICOL + 1
580   CONTINUE
590   IF (NPIV.EQ.0) IWPOS = IOLDPS
600 END DO
IW(1) = NBLK
IF (NOFF.GT.0) IW(1) = -NBLK
NRLBDU = POSFAC - 1
NIRBDU = IWPOS - 1
IF (NTOTPV.EQ.N) GO TO 640
IFLAG = 2
IERROR = NTOTPV
GO TO 640
610 IFLAG = -3
GO TO 640
620 IFLAG = -4
GO TO 640
630 IFLAG = -5
IERROR = NTOTPV + 1
640 RETURN
END
SUBROUTINE MA37QD(A,IW,J1,J2,ITOP,IREAL)
INTEGER IREAL,ITOP,J1,J2
DOUBLE PRECISION A(*)
INTEGER IW(*)
INTEGER IPOS,JJ,JJJ
COMMON /MA37ED/OPSA,OPSB,IERROR,NRLTOT,NIRTOT,NRLNEC,NIRNEC,NRLB, &
&       NIRB,NRLADU,NIRADU,NRLBDU,NIRBDU,NCMPA,NCMPBR,NCMPBI,NOFF
DOUBLE PRECISION OPSA,OPSB
INTEGER IERROR,NCMPA,NCMPBI,NCMPBR,NIRADU,NIRB,NIRBDU,NIRNEC,     &
&        NIRTOT,NOFF,NRLADU,NRLB,NRLBDU,NRLNEC,NRLTOT
SAVE /MA37ED/
IPOS = ITOP - 1
IF (J2.EQ.IPOS) GO TO 50
IF (IREAL.EQ.2) GO TO 20
NCMPBR = NCMPBR + 1
IF (J1.GT.J2) GO TO 40
DO 10 JJJ = J1,J2
JJ = J2 - JJJ + J1
A(IPOS) = A(JJ)
IPOS = IPOS - 1
10 END DO
GO TO 40
20 NCMPBI = NCMPBI + 1
IF (J1.GT.J2) GO TO 40
DO 30 JJJ = J1,J2
JJ = J2 - JJJ + J1
IW(IPOS) = IW(JJ)
IPOS = IPOS - 1
30 END DO
40 J2 = ITOP - 1
J1 = IPOS + 1
50 RETURN
END
SUBROUTINE MA37RD(N,A,LA,IW,LIW,W,MAXFNT,RHS,IW2,NBLK,LATOP)
INTEGER LA,LATOP,LIW,MAXFNT,N,NBLK
DOUBLE PRECISION A(LA),RHS(N),W(MAXFNT)
INTEGER IW(LIW),IW2(NBLK)
DOUBLE PRECISION W1
INTEGER APOS,IBLK,IFR,ILVL,IPIV,IPIVP1,IPOS,IRHS,IROW,J,J1,J2,JJ, &
&        K,LIELL,NPIV
INTRINSIC MIN0
COMMON /MA37FD/IOVFLO,NEMIN,IFRLVL(20)
INTEGER IOVFLO,NEMIN
INTEGER IFRLVL
SAVE /MA37FD/
APOS = 1
IPOS = 1
IBLK = 0
NPIV = 0
DO 70 IROW = 1,N
IF (NPIV.GT.0) GO TO 50
IBLK = IBLK + 1
IF (IBLK.GT.NBLK) GO TO 80
IW2(IBLK) = IPOS
LIELL = IW(IPOS)
IPOS = IPOS + 1
NPIV = IW(IPOS)
J1 = IPOS + 1
J2 = IPOS + LIELL
IPOS = IPOS + 2*LIELL + 1
ILVL = MIN0(NPIV,10)
IF (LIELL.LT.IFRLVL(ILVL)) GO TO 50
IFR = 0
DO 10 JJ = J1,J2
J = IW(JJ)
IFR = IFR + 1
W(IFR) = RHS(J)
10   CONTINUE
DO 30 IPIV = 1,NPIV
APOS = APOS + 1
IF (IPIV.EQ.LIELL) GO TO 30
W1 = W(IPIV)
K = APOS
IPIVP1 = IPIV + 1
DO 20 J = IPIVP1,LIELL
W(J) = W(J) + A(K)*W1
K = K + 1
20     CONTINUE
APOS = APOS + (LIELL-IPIV)*2
30   CONTINUE
IFR = 0
DO 40 JJ = J1,J2
J = IW(JJ)
IFR = IFR + 1
RHS(J) = W(IFR)
40   CONTINUE
NPIV = 0
GO TO 70
50   NPIV = NPIV - 1
APOS = APOS + 1
J1 = J1 + 1
IF (J1.GT.J2) GO TO 70
IRHS = IW(J1-1)
W1 = RHS(IRHS)
K = APOS
DO 60 J = J1,J2
IRHS = IW(J)
RHS(IRHS) = RHS(IRHS) + A(K)*W1
K = K + 1
60   CONTINUE
APOS = K + K - APOS
70 END DO
80 LATOP = APOS - 1
RETURN
END
SUBROUTINE MA37SD(N,A,LA,IW,LIW,W,MAXFNT,RHS,IW2,NBLK,LATOP,W2)
INTEGER LA,LATOP,LIW,MAXFNT,N,NBLK
DOUBLE PRECISION A(LA),RHS(N),W(MAXFNT),W2(N)
INTEGER IW(LIW),IW2(NBLK)
DOUBLE PRECISION W1
INTEGER APOS,IBLK,IFR,IIPIV,IIRHS,ILVL,IPIV,IPOS,IPSPIV,IRHS,IST, &
&        J,J1,J2,JJ,JJ1,JPOS,K,LIELL,LOOP,NPIV
INTRINSIC MIN0
COMMON /MA37FD/IOVFLO,NEMIN,IFRLVL(20)
INTEGER IOVFLO,NEMIN
INTEGER IFRLVL
SAVE /MA37FD/
APOS = LATOP + 1
NPIV = 0
IBLK = NBLK + 1
DO 110 LOOP = 1,N
IF (NPIV.GT.0) GO TO 80
IBLK = IBLK - 1
IF (IBLK.LT.1) GO TO 120
IPOS = IW2(IBLK)
LIELL = IW(IPOS)
IPOS = IPOS + 1
NPIV = IW(IPOS)
JPOS = IPOS + NPIV + LIELL
J2 = IPOS + LIELL*2
ILVL = MIN0(10,NPIV) + 10
IF (LIELL.LT.IFRLVL(ILVL)) GO TO 80
J1 = IPOS + 1
J2 = IPOS + NPIV
IFR = 0
DO 10 JJ = J1,J2
J = IW(JJ)
IFR = IFR + 1
W(IFR) = RHS(J)
10   CONTINUE
J1 = IPOS + LIELL + NPIV + 1
J2 = IPOS + 2*LIELL
IF (J2.LT.J1) GO TO 30
DO 20 JJ = J1,J2
J = IW(JJ)
IFR = IFR + 1
W(IFR) = W2(J)
20   CONTINUE
30   DO 60 IIPIV = 1,NPIV
IPIV = NPIV - IIPIV + 1
APOS = APOS - (LIELL+1-IPIV)
IST = IPIV + 1
W1 = W(IPIV)
IF (LIELL.LT.IST) GO TO 50
JJ1 = APOS + 1
DO 40 J = IST,LIELL
W1 = W1 - A(JJ1)*W(J)
JJ1 = JJ1 + 1
40     CONTINUE
50     APOS = APOS - (LIELL-IPIV)
W(IPIV) = W1*A(APOS)
60   CONTINUE
IFR = 0
J1 = IPOS + LIELL + 1
J2 = IPOS + LIELL + NPIV
DO 70 JJ = J1,J2
J = IW(JJ)
IFR = IFR + 1
W2(J) = W(IFR)
70   CONTINUE
NPIV = 0
GO TO 110
80   NPIV = NPIV - 1
APOS = APOS - (LIELL-NPIV)
IPSPIV = JPOS - LIELL
IIRHS = IW(IPSPIV)
W1 = RHS(IIRHS)
J1 = JPOS + 1
IF (J1.GT.J2) GO TO 100
K = APOS + 1
DO 90 J = J1,J2
IRHS = IW(J)
W1 = W1 - A(K)*W2(IRHS)
K = K + 1
90   CONTINUE
100   APOS = APOS - (LIELL-NPIV-1)
IIRHS = IW(JPOS)
W2(IIRHS) = W1*A(APOS)
JPOS = JPOS - 1
110 END DO
120 RETURN
END
SUBROUTINE MA37TD(N,A,LA,IW,LIW,W,MAXFNT,RHS,IW2,NBLK,LATOP)
INTEGER LA,LATOP,LIW,MAXFNT,N,NBLK
DOUBLE PRECISION A(LA),RHS(N),W(MAXFNT)
INTEGER IW(LIW),IW2(NBLK)
DOUBLE PRECISION PIVOT,W1
INTEGER APOS,IBLK,IFR,ILVL,IPIV,IPIVP1,IPOS,IRHS,IROW,J,J1,J2,JJ, &
&        K,LIELL,NPIV
INTRINSIC MIN0
COMMON /MA37FD/IOVFLO,NEMIN,IFRLVL(20)
INTEGER IOVFLO,NEMIN
INTEGER IFRLVL
SAVE /MA37FD/
APOS = 1
IPOS = 1
IBLK = 0
NPIV = 0
DO 70 IROW = 1,N
IF (NPIV.GT.0) GO TO 50
IBLK = IBLK + 1
IF (IBLK.GT.NBLK) GO TO 80
IW2(IBLK) = IPOS
LIELL = IW(IPOS)
IPOS = IPOS + 1
NPIV = IW(IPOS)
J1 = IPOS + LIELL + 1
IPOS = J1 + LIELL
J2 = IPOS - 1
ILVL = MIN0(NPIV,10)
IF (LIELL.LT.IFRLVL(ILVL)) GO TO 50
IFR = 0
DO 10 JJ = J1,J2
J = IW(JJ)
IFR = IFR + 1
W(IFR) = RHS(J)
10   CONTINUE
DO 30 IPIV = 1,NPIV
PIVOT = A(APOS)
APOS = APOS + LIELL - IPIV + 1
IF (IPIV.EQ.LIELL) GO TO 30
W1 = -W(IPIV)*PIVOT
K = APOS
IPIVP1 = IPIV + 1
DO 20 J = IPIVP1,LIELL
W(J) = W(J) + A(K)*W1
K = K + 1
20     CONTINUE
APOS = APOS + (LIELL-IPIV)
30   CONTINUE
IFR = 0
DO 40 JJ = J1,J2
J = IW(JJ)
IFR = IFR + 1
RHS(J) = W(IFR)
40   CONTINUE
NPIV = 0
GO TO 70
50   PIVOT = A(APOS)
NPIV = NPIV - 1
J1 = J1 + 1
APOS = APOS + (J2-J1+2)
IF (J1.GT.J2) GO TO 70
IRHS = IW(J1-1)
W1 = -RHS(IRHS)*PIVOT
K = APOS
DO 60 J = J1,J2
IRHS = IW(J)
RHS(IRHS) = RHS(IRHS) + A(K)*W1
K = K + 1
60   CONTINUE
APOS = APOS + (J2-J1+1)
70 END DO
80 LATOP = APOS - 1
RETURN
END
SUBROUTINE MA37UD(N,A,LA,IW,LIW,W,MAXFNT,RHS,IW2,NBLK,LATOP,W2)
INTEGER LA,LATOP,LIW,MAXFNT,N,NBLK
DOUBLE PRECISION A(LA),RHS(N),W(MAXFNT),W2(N)
INTEGER IW(LIW),IW2(NBLK)
DOUBLE PRECISION W1
INTEGER APOS,IBLK,IFR,IIPIV,IIRHS,ILVL,IPIV,IPOS,IPSPIV,IRHS,IST, &
&        J,J1,J2,JJ,JJ1,JPOS,K,LIELL,LOOP,NPIV
INTRINSIC MIN0
COMMON /MA37FD/IOVFLO,NEMIN,IFRLVL(20)
INTEGER IOVFLO,NEMIN
INTEGER IFRLVL
SAVE /MA37FD/
APOS = LATOP + 1
NPIV = 0
IBLK = NBLK + 1
DO 110 LOOP = 1,N
IF (NPIV.GT.0) GO TO 80
IBLK = IBLK - 1
IF (IBLK.LT.1) GO TO 120
IPOS = IW2(IBLK)
LIELL = IW(IPOS)
IPOS = IPOS + 1
NPIV = IW(IPOS)
JPOS = IPOS + NPIV
J2 = IPOS + LIELL
ILVL = MIN0(10,NPIV) + 10
IF (LIELL.LT.IFRLVL(ILVL)) GO TO 80
J1 = IPOS + 1 + LIELL
J2 = IPOS + NPIV + LIELL
IFR = 0
DO 10 JJ = J1,J2
J = IW(JJ)
IFR = IFR + 1
W(IFR) = RHS(J)
10   CONTINUE
J1 = IPOS + NPIV + 1
J2 = IPOS + LIELL
IF (J2.LT.J1) GO TO 30
DO 20 JJ = J1,J2
J = IW(JJ)
IFR = IFR + 1
W(IFR) = W2(J)
20   CONTINUE
30   DO 60 IIPIV = 1,NPIV
IPIV = NPIV - IIPIV + 1
APOS = APOS - 2* (LIELL-IPIV) - 1
IST = IPIV + 1
W1 = W(IPIV)*A(APOS)
IF (LIELL.LT.IST) GO TO 50
JJ1 = APOS + 1
DO 40 J = IST,LIELL
W1 = W1 + A(JJ1)*W(J)
JJ1 = JJ1 + 1
40     CONTINUE
50     W(IPIV) = W1
60   CONTINUE
IFR = 0
J1 = IPOS + 1
J2 = IPOS + NPIV
DO 70 JJ = J1,J2
J = IW(JJ)
IFR = IFR + 1
W2(J) = W(IFR)
70   CONTINUE
NPIV = 0
GO TO 110
80   APOS = APOS - 2* (LIELL-NPIV) - 1
NPIV = NPIV - 1
IPSPIV = JPOS + LIELL
IIRHS = IW(IPSPIV)
W1 = RHS(IIRHS)*A(APOS)
J1 = JPOS + 1
IF (J1.GT.J2) GO TO 100
K = APOS + 1
DO 90 J = J1,J2
IRHS = IW(J)
W1 = W1 + A(K)*W2(IRHS)
K = K + 1
90   CONTINUE
100   IIRHS = IW(JPOS)
W2(IIRHS) = W1
JPOS = JPOS - 1
110 END DO
120 RETURN
END
DOUBLE PRECISION FUNCTION FA01AD(I)
INTEGER I
DOUBLE PRECISION R,S
INTRINSIC DINT,MOD
COMMON /FA01ED/GL,GR
DOUBLE PRECISION GL,GR
EXTERNAL FA01FD
SAVE /FA01ED/
R = GR*9228907D0/65536D0
S = DINT(R)
GL = MOD(S+GL*9228907D0,65536D0)
GR = R - S
IF (I.GE.0) FA01AD = (GL+GR)/65536D0
IF (I.LT.0) FA01AD = (GL+GR)/32768D0 - 1.D0
GR = GR*65536D0
RETURN
END
SUBROUTINE FA01BD(MAX,NRAND)
INTEGER MAX,NRAND
DOUBLE PRECISION FA01AD
EXTERNAL FA01AD
INTRINSIC DBLE,INT
NRAND = INT(FA01AD(1)*DBLE(MAX)) + 1
RETURN
END
SUBROUTINE FA01CD(IL,IR)
INTEGER IL,IR
COMMON /FA01ED/GL,GR
DOUBLE PRECISION GL,GR
SAVE /FA01ED/
IL = GL
IR = GR
RETURN
END
SUBROUTINE FA01DD(IL,IR)
INTEGER IL,IR
COMMON /FA01ED/GL,GR
DOUBLE PRECISION GL,GR
SAVE /FA01ED/
GL = IL
GR = IR
RETURN
END
BLOCK DATA FA01FD
COMMON /FA01ED/GL,GR
DOUBLE PRECISION GL,GR
SAVE /FA01ED/
DATA GL/21845D0/
DATA GR/21845D0/
END
